タスクマネージャを使用してExcelファイルを開き、マクロを実行し、ファイルを保存して閉じる。

Question

毎朝午前5時にオープンするExcelファイルを取得しようとしている。データを取得してファイラを整理/整理し、ファイルを閉じてから閉じます。私は現在、以下のファイルを開くための.vbsスクリプトを持つタスクマネージャを持っていますが、ファイルが開きますが、保存ウィンドウが閉じてファイルが元のコピーとして保存されます。

Option Explicit 

Dim xlApp, xlBook 

Set xlApp = CreateObject("Excel.Application") 
xlApp.Visible = True 

' Import Add-Ins 
'xlApp.Workbooks.Open "G:\CNC\Schiermeyer\Active Job Files\Autorefresh" "C:\<pathOfXlaFile>\MyMacro.xla" 
'xlApp.AddIns("MyMacro").Installed = True 

'Open Excel workbook 
Set xlBook = xlApp.Workbooks.Open("G:\CNC\Schiermeyer\Active Job Files\Autorefresh\AutoRefresh Active Job Report.xlsm", 0, True) 

' Run Macro 
xlApp.Run "sheet1.ActiveJobReportRefresh" 

xlBook.Close 
xlApp.Quit 

Set xlBook = Nothing 
Set xlApp = Nothing 

WScript.Quit 

ご協力いただければ幸いです。私はタスクマネージャー& .vbsファイルを使用するのが初めてで、まだVBAのプロではない、これは私がフォーラムを使用している限りです。

Answer 1

私は、モジュールを作成し、以下のコードを挿入：

Sub Auto_Close() 

If ThisWorkbook.Saved = False Then 
    ThisWorkbook.Save 
End If 

End Sub 

をしかし、このモジュールはどこユーザーは右上に近い（X）をクリックすると、Excelが保存し、確認を求めていない近くになりますが作成されます。おそらく、あなたはこのコードを修正しようとすることができます。ありがとうございました。