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.Add

On 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 Then
    Set gof = .SelectedItems
    End 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 Then
    Set gof1 = .SelectedItems
    End 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 Excel
    On Error Resume Next
    
    Set excel = GetObject(, "Excel.Application")
    
    If Err <> 0 Then
        Err.Clear
        Set excel = CreateObject("Excel.Application")
            
        If Err <> 0 Then
            MsgBox "Could not load Excel.", vbExclamation
            End
        End If
    End If
    
   
    
    excel.Visible = True
    excel.Workbooks.Add
    excel.Sheets("Sheet1").Select
    Set excelSheet = excel.ActiveWorkbook.Sheets("Sheet1")
End Sub