ユーザー終了後にExcelを終了するユーザーフォーム

Question

これらの問題を数日間修正しようとしましたが、私たちは別のフォーラムに投稿しましたが、答えはまだありません。

Userformが閉じられた後にExcelの実行に問題がありますが、私はアプリケーションを終了するはずだと思いますが、そうではありません。バックグラウンドでExcelを実行し続け、タスクを終了する必要がありますマネージャー。 ファイルをtempフォルダにコピーし、excelとuserformを開くマクロを実行するためのvbaファイルを作成しました。 何か助けていただければ幸いです。

これは、コピーして、マクロを開く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 

そして、これがユーザーフォームを閉じるを扱うサブですアプリケーション。

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 

Answer 1

この問題が見つかりました。 私はApplication.Quitを2回使用していました 一度vbsスクリプトを実行してから、フォームを閉じていました。 私はvbsスクリプトのものを取り除きました。 ご協力いただきありがとうございます。