タスクマネージャーのプロセスに一瞬エクセルがあがってくるので、CreateObjectは動いてSaveが動いていないのかとも思ったのですが、テスト用に処理を絞り込んでかつエラー処理をコメントアウトし、以下のように単純にファイルを開いて保存するだけの記述の場合でも、QMCで実行するとタスクマネージャーのプロセスにWScriptが表示されたままとなり、QMC側のリロードが終わらない状態になるので、VBSの処理が途中で止まってQVWのスクリプトに戻ってきていないような感じです。
なお、この際、タスクマネージャーのプロセスからWScriptを終了するとQVWのリロードが再開し保存されますが、エクセル処理は実行されておらず、プロセス上にもエクセルが残ったままになります。
Sub Main ()
Dim objShell
Dim objExcel
Dim objWorkbook
Dim objWorksheet
Set objShell = CreateObject("Wscript.Shell")
'On Error Resume Next
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("エクセルファイルパス")
Set objWorksheet = objWorkbook.Worksheets("Sheet1")
objExcel.Visible = False
objWorkbook.Save
objExcel.Quit
Set objWorksheet = Nothing
Set objWorkbook = Nothing
Set objExcel = Nothing
End Sub
Main
スクリプト内の'On Error Resume Next'のコメントアウトを戻してリロード実行した場合は、タスクマネージャーにWScriptが表示され続ける事も無くQVWのリロードも終了し、QVWは保存されますが、このときVBSの処理は実行されておらず、エクセルの保存は行われていません。
