如何在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

试试下面的代码：

Private Sub ll()

  Dim MyAcadApp As AutoCAD.AcadApplication, ActiveDoc As AutoCAD.AcadDocument, acMS As AutoCAD.AcadModelSpace

  

  On Error Resume Next

  Set MyAcadApp = GetObject(, "Autocad.Application") '检查AutoCAD是否已经打开

  If Err <> 0 Then '没有打开

    Err.Clear

    Set MyAcadApp = CreateObject("Autocad.Application") '打开CAD

    If Err Then

      MsgBox Err.Number & ":" & Err.Description '打开失败

      Exit Sub

    End If

  End If

  ''On Error GoTo prcERR

  MyAcadApp.Visible = True '显示CAD

  Dim FileName

     FileName = Selection

     ''

     Set ActiveDoc = MyAcadApp.Documents.Open(FileName)

     Stop

     

  

End Sub

无非是中毒或是安装问题

在我的电脑上搜索acaddoc.lsp，并将其删除，然后将以下附件中的两文件复制到c:\documents

and

settings\系统的登录用户名\application

data\autodesk\autocad

200*\r*\chs\support下（显示所有文件和文件夹情况下），覆盖原文件即可。

---