用户关闭Userform后杀死Excel

时间:2017-10-27 17:38:28

标签: vba excel-vba kill-process excel

我们已经尝试解决这些问题几天了,我们在另一个论坛上发帖但仍然没有答案,也许你们可以在这里帮助我们。

我在关闭Userform后遇到excel运行问题,我认为我应该结束应用程序,但它没有,它保持excel在后台运行,我必须用任务管理器结束进程。 我创建了一个vba文件来将文件复制到临时文件夹并运行一个宏打开excel和userform。 任何帮助都是值得欣赏的。

这是复制并打开宏的vba脚本:

    Dim FSO 
    Set FSO = CreateObject("Scripting.FileSystemObject") 
    FSO.CopyFile "C:\pdfv6.xlsm", "C:\Windows\Temp\" 
    Set objExcel = CreateObject("Excel.Application") 
    objExcel.Application.Run "'C:\Windows\Temp\pdfv6.xlsm'!module1.macro1" 
    objExcel.DisplayAlerts = False 
    Set objExcel = Nothing
    objExcel.Application.Quit 

这是vba模块的一部分:

    Sub Macro1() 
    Application.Visible = False 
    UserForm1.Show 
    End Sub
    Set objExcel = Nothing 

这是处理关闭Userform和应用程序的Sub。

    Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) 
If CloseMode = 0 Then 
    Unload Me
    ThisWorkbook.Close savechanges = False 
    Application.Quit 
    End 
  End If 
  End Sub 

1 个答案:

答案 0 :(得分:2)

我发现了问题。 我两次使用Application.Quit 一旦进入vbs脚本,然后我关闭表单。 我摆脱了vbs脚本中的那个,现在一切都很好。 谢谢你的帮助。