网站独立开发天津百度推广网络科技公司

        excelvba可实现调用cad应用程序，并通过excel内置api弹窗实现打开、另存CAD

文件（cad-vba弹窗功能较为麻烦），代码如下（在excel_vba环境下操作）：

Sub excel_vba打开另存并操作CAD文件()
Dim cad As Object
Set cad = CreateObject("autocad.Application")
cad.Visible = True
cad.documents.AddOn Error Resume Next
With excel.Application.FileDialog(msoFileDialogOpen).Title = "请选择你要的文件".AllowMultiSelect = True.InitialFileName = "C:\Users\Administrator\Desktop\".Filters.Clear.Filters.Add "excel files", "*.xls,*.xlsx,*.dwg"If .Show = True ThenSet gof = .SelectedItemsEnd If
End With
cad.Application.documents.Open (gof.Item(1))
MsgBox "另存为"
With excel.Application.FileDialog(msoFileDialogSaveAs).Title = "另存为".AllowMultiSelect = True.InitialFileName = "C:\Users\Administrator\Desktop\"If .Show = True ThenSet gof1 = .SelectedItemsEnd If
End With
cad.Application.activedocument.SaveAs (gof1.Item(1))End Sub

另附excel文件可参考。 

以下代码为在CADVBA环境下打开excel并操作的代码：

Sub CAD打开excel_cadvba实现()
Dim excel As Object
Dim excelSheet As Object' Start ExcelOn Error Resume NextSet excel = GetObject(, "Excel.Application")If Err <> 0 ThenErr.ClearSet excel = CreateObject("Excel.Application")If Err <> 0 ThenMsgBox "Could not load Excel.", vbExclamationEndEnd IfEnd Ifexcel.Visible = Trueexcel.Workbooks.Addexcel.Sheets("Sheet1").SelectSet excelSheet = excel.ActiveWorkbook.Sheets("Sheet1")
End Sub