[求助]：在CAD中读取EXCEL中的数据

ahlzl

看看我的这段代码，错在哪呢？
我在CAD打开一个EXCEL工作薄，想把一单元格的内容赋给一变量a1，好用于CAD绘图，却出错了。请高手指导！谢谢！！

Sub yuty()
Dim xlApp As Object
   
On Error Resume Next
Set xlApp = GetObject(, "Excel.Application")
If Err.Number <> 0 Then
Err.Clear
Set xlApp = CreateObject("Excel.Application")
End If
xlApp.Visible = True

Dim xlworkbook As Object
workbooks.Open ("c:\1.xls")

Dim xlSheet As Object
Set xlSheet = xlApp.ActiveWorkbook.ActiveSheet

Dim xlRange1 As Object, xlRange2 As Object
    Set xlRange1 = xlSheet.Range("A2")
    Set xlRange2 = xlSheet.Range("A3")
   
Dim a1 As Double
Set a1 = xlRange1.Value
……
……
End Sub

efan2000

a1是Double型的数据类型，赋值时不能使用Set语句，Set语句仅用于对对象型的变量进行赋值。

ahlzl

最初由 efan2000 发布
[B]a1是Double型的数据类型，赋值时不能使用Set语句，Set语句仅用于对对象型的变量进行赋值。 [/B]

发自内心的声音——谢谢！谢谢！！我向前迈出了一大步。
efan2000斑竹，我会好好用功的。我现在这16分全是在ACAD版块得的，我力争在2004年时在VBA版块得到积分！