AutoCAD(VBA)要引用excel可以把它定义成为一个对象,进行引用。
'CAD调用EXCEL程序
Public Function excelActive() As Object
Dim xlapp As Object
Set xlapp = GetObject(, "Excel.application")
Set excelActive = xlapp.ActiveSheet
End Function
AutoCAD(VBA)要引用excel可以把它定义成为一个对象,进行引用。
'CAD调用EXCEL程序
Public Function excelActive() As Object
Dim xlapp As Object
Set xlapp = GetObject(, "Excel.application")
Set excelActive = xlapp.ActiveSheet
End Function