Excel应用程序二次计算模式

我注意到，在玩Excel的第二个实例时，试图访问计算模式属性会导致运行时错误。 任何人见过这个？ 通过下面的代码将复制（我已经评论底部附近的错误行）

Sub test1() With Application .ScreenUpdating = True .Calculation = xlCalculationAutomatic .EnableEvents = True End With Debug.Print "This Application:" Debug.Print vbTab & "ScreenUpdating: " & Application.ScreenUpdating Debug.Print vbTab & "Calculation Mode: " & Application.Calculation Debug.Print vbTab & "Events: " & Application.EnableEvents Debug.Print "--------------------------------------------------------" With Application .ScreenUpdating = False .Calculation = xlCalculationManual .EnableEvents = False End With Debug.Print "This Application (After Change):" Debug.Print vbTab & "ScreenUpdating: " & Application.ScreenUpdating Debug.Print vbTab & "Calculation Mode: " & Application.Calculation Debug.Print vbTab & "Events: " & Application.EnableEvents Debug.Print "--------------------------------------------------------" Dim xlApp As Excel.Application Set xlApp = New Excel.Application Debug.Print "New Application:" Debug.Print vbTab & "ScreenUpdating: " & xlApp.ScreenUpdating Debug.Print vbTab & "Calculation Mode: " & xlApp.Calculation '// Run-time error 13: Type mismatch Debug.Print vbTab & "Events: " & xlApp.EnableEvents Debug.Print "--------------------------------------------------------" xlApp.Quit With Application .ScreenUpdating = True .Calculation = xlCalculationAutomatic .EnableEvents = True End With End Sub 

Answer 1

您添加/创build了一个新的Excel实例，但它并没有带有“尚未完成”的工作簿。 excel的新实例还没有工作簿。 是可见的或不是真的抛出一个错误。 您可以添加一个工作簿，如;

 xlApp.Workbooks.Add 

HTH。