excel - 引用 Excel 时，AutoCAD 中的 VBA 错误不一致

Question

我有一个程序可以查看 excel 文件中的 .dwg 文件列表，一次打开一个图纸，提取给定 block 引用的属性，然后将这些属性转储到原始 excel 文件中的新工作表中。

这段代码大约有一半时间运行得非常好，所有数据都被正确计算和格式化，但另一半时间我得到运行时错误 9、91 或 462。

我将错误放在括号中的行中。

我的代码中是什么导致了这些错误，如果这不是编程问题，那么为这些错误编写 ErrorHandler 的最佳方法是什么？

Set ExcelApp = GetObject(, "Excel.Application")
If ExcelApp Is Nothing Then
    Set ExcelApp = CreateObject("Excel.Application")
    If Not ExcelApp Then
        ExcelApp.Workbooks.Open (tempName)
    End If
End If

ExcelApp.DisplayAlerts = False
ExcelApp.Visible = False
Set wBook = ExcelApp.ActiveWorkbook
DoEvents

shtCount = wBook.Worksheets.Count ' ' (Error 91)
If shtCount <> 1 Then
    DoEvents
    wBook.Worksheets("Dump").Delete ' ' (Error 9, Despite that sheet existing)
    DoEvents
End If

Set wSheet = wBook.Worksheets.Add(After:=Worksheets("DrawSheets")) ' ' (Error 462)
DoEvents
wSheet.Name = "Dump"
DoEvents

Answer 1

在第一次审查时，这个代码块有几个问题:

Set ExcelApp = GetObject(, "Excel.Application")
If ExcelApp Is Nothing Then
    Set ExcelApp = CreateObject("Excel.Application")
    If Not ExcelApp Then
        ExcelApp.Workbooks.Open (tempName)
    End If
End If

该声明:

Set ExcelApp = GetObject(, "Excel.Application")

如果 Excel 未打开，将引发运行时错误；大概，你有On Error Resume Next出现在您的代码中以绕过此错误，或者您可能在测试中打开了 Excel。

如果 Excel 已经打开，您的代码将永远不会打开您的目标工作簿，因为代码不会到达语句:

ExcelApp.Workbooks.Open (tempName)

此外，if围绕上述表达式的语句没有意义:

If Not ExcelApp Then
    ExcelApp.Workbooks.Open (tempName)
End If

在这里，您是说:“如果 ExcelApp 评估为 False，则使用它打开工作簿”