首页 文章

用户关闭Userform后杀死Excel

提问于
浏览
0

我们试图解决这些问题几天,我们发布在另一个论坛但仍然没有答案,可能你们可以在这里帮助我们 .

在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 回答

  • 2

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

相关问题