『壹』 如何在AutoCAD中通過VBA編程打開Excel應用程序
Set xlApp = CreateObject("Excel.Application") '創建EXCEL對象
Set xlBook = xlApp.Workbooks.Open(App.Path & "\文件名.xls") '打開已經存在的EXCEL工件簿文件
xlApp.Visible = True '設置EXCEL對象可見（或不可見）
Set xlSheet = xlBook.Worksheets("sheel1") '設置活動工作表，sheet1表示表名，可以使用字元型變數代替。
xlSheet.Activate '激活工作表，讓它處於前台活動中。
xlBook.RunAutoMacros (xlAutoOpen) '運行自動開啟宏Macro1()，在EXCEL中加入以下宏
'Sub auto_open() '這是VBA中的自動打開時運行的宏
' 您要宏自動運行的程序，比如可以call其它的宏，這樣VB在打開EXCEL時，使用上面的語句就可以先運行這個宏
'End Sub