1

我正在运行一个 word 宏

  1. 初始化 Excel
  2. 在 Excel 中创建一个临时工作簿
  3. 退出word userform时，终止excel

但是，似乎有一些剩余的 Excel 实例/工作簿没有完全关闭，因为当我再次启动 word 宏时，我收到错误：462，远程服务器机器...

在 Word 文档中初始化用户表单：

private sub commandbutton1_click()
    dim exc as excel.application
    set exc as new excel.application
    dim wb as excel.workbook

    set wb = exc.workbook.saveas filename:="wordexc"      'creates temp workbook
    userform1.show
end sub

run excel processing via a userform1 commandbutton:

private sub commandbutton2_click()

    excel.workbook("wordexc").close   'closes temp workbook

    dim wb as excel.workbook
    set wb = excel.workbook.saveas filename:="wordexc"     'this wb is for actual use
    'i do not delete this wb after running cuz it has stored data that will be used
    'if user cliks commandbutton2 again, it will be deleted and new wbook with new data  
    'is created


    'processing code

end sub

private sub queryclose (etc...)
    'Close Excel
    Dim sKillExcel As String

     sKillExcel = "TASKKILL /F /IM Excel.exe"
     Shell sKillExcel, vbHide

end sub

顺便说一句，我认为问题是最后一部分：

 Dim sKillExcel As String

 sKillExcel = "TASKKILL /F /IM Excel.exe"
 Shell sKillExcel, vbHide

因为如果我在任务管理器中停止宏并终止 EXCEL，如果我再次运行宏，它不会给我这个问题......我还尝试了其他方法，比如调用我保存在目录而不是目录中的 excel 工作簿临时通过createobject（“excel.application”）在一个sub，exc.quit，但我必须使用上面的终止代码cuz否则EXCEL仍然显示在任务管理器中。

4

2 回答 2

2

除了没有正确地声明你的对象之外，你也没有（如果我可以这么说的话）正确地冲马桶。

请参阅此示例（未测试）

我使用后期绑定而不是早期绑定，以便此代码与任何版本的 Excel 兼容

'~~> Define your Excel objects so that they are available 
'~~> in other userform sub procedures as well.
Dim oXLApp As Object, oXLwb As Object

Private Sub CommandButton1_Click()
    Set oXLApp = CreateObject("Excel.Application")

    '~~> Show Excel
    oXLApp.Visible = True

    '~~> Add a new workbook
    Set oXLwb = oXLApp.Workbooks.Add

    '
    '~~> Do some stuff
    '

    '~~> Save the file
    oXLwb.SaveAs "C:\wordexc.xlsx", FileFormat:=51

    oXLwb.Close SaveChanges:=False
End Sub

'~~> Close and Quit Excel (Flush Toilet)
Private Sub CommandButton2_Click()
    oXLApp.Quit
    Set oXLwb = Nothing
    Set oXLApp = Nothing
End Sub
于 2013-09-30T19:25:33.627 回答
1

为什么不做这样的事情？基本上，您在全局范围内定义您的 excel 对象，然后您可以稍后将其称为“退出”方法。

Private objExcel As Excel.Application

Private Sub CommandButton1_Click()
    Set objExcel = New Excel.Application
    objExcel.Visible = True
End Sub


Private Sub CommandButton2_Click()
    objExcel.Quit

End Sub
于 2013-09-30T17:59:38.773 回答