在另一个工作簿上运行宏后出错

Question

我正在尝试运行远程宏，但在关闭工作簿时收到错误">工作簿类的关闭方法失败"。我需要更改什么？

Sub RunRemoteMacro()
Dim xlApp, xlWbk
On Error GoTo errHandler
Set xlApp = CreateObject("Excel.Application")
Set xlWbk = xlApp.Workbooks.Open("anotherworkbook.xlsm", , True)
xlApp.Application.Visible = True
xlApp.Application.Run "testmacro"
xlApp.DisplayAlerts = False
''''''''''''''''''''''''''''''''''''''''''''''''''''
' ERROR: Close method of Workbook class failed
''''''''''''''''''''''''''''''''''''''''''''''''''''
xlWbk.Close False
exitHandler:
xlApp.Application.Quit
Set xlWkb = Nothing
Set xlApp = Nothing
Exit Sub
errHandler:
Debug.Print Now() & ": RunRemoteMacro - " & Err.Description
On Error GoTo 0
Resume exitHandler
End Sub

问候 埃利奥·费尔南德斯

Answer 1

我刚刚找到了一种正确关闭的方法。请参阅退出处理程序中的代码。

Sub RunRemoteMacro()
Dim xlApp, xlWbk
On Error GoTo errHandler
Set xlApp = CreateObject("Excel.Application")
Set xlWbk = xlApp.Workbooks.Open("anotherworkbook.xlsm", , True)
xlApp.Application.Visible = True
xlApp.Application.Run "testmacro"
xlApp.DisplayAlerts = False   
exitHandler:
' Close Workbook
xlWbk.Close False
Set xlWkb = Nothing
' Close application
xlApp.Application.Quit
Set xlApp = Nothing
Exit Sub
errHandler:
Debug.Print Now() & ": RunRemoteMacro - " & Err.Description
On Error GoTo 0
Resume exitHandler
End Sub