本文主要是介绍excel打开并操作CAD(excel-vba实现)_另附：CAD打开excel，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！
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
这篇关于excel打开并操作CAD(excel-vba实现)_另附：CAD打开excel的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！
