什么网站可以找试卷做,淘客网站免费开源源码,物联网手机app开发软件,06627网页制作与网站建设excelvba可实现调用cad应用程序#xff0c;并通过excel内置api弹窗实现打开、另存CAD
文件#xff08;cad-vba弹窗功能较为麻烦#xff09;#xff0c;代码如下#xff08;在excel_vba环境下操作#xff09;#xff1a; Sub excel_vba打开另存并操作CAD文件()
Dim cad … 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,*.dwgIf .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
