劉大胃

直接使用vbs即可, 它就是Windows版的Bat.
Thanks ~


==============================================
set sh=WScript.CreateObject("WScript.Shell")  

Dim objExcel                                                                                    '宣告Excel應用程式變數
Dim objWorkbook                                                                                 '宣告工作簿物件變數
Dim strSFLPath
Dim strSFFile

strSFLPath= "D:\"                                                                               'Excel路徑定義                                                        
strSFFile ="ABC.xlsm"                                                                           'Excel檔名

Set objExcel = CreateObject("Excel.Application")
objExcel.visible = True                                                                        '執行App時, 是否需要顯示該App.
Set objWorkbook = objExcel.Workbooks.Open (strSFLPath & strSFFile )                            '開啟Excel檔案.

objWorkbook.Application.Run "DailyMailSending"                                                 '執行巨集

objWorkbook.Saved = True                                                                       '不要儲存工作簿
objWorkbook.Close                                                                              '關閉工作簿
Set objWorkbook  = Nothing                                                                     '釋放工作簿物件
objExcel.Quit                                                                                  '關閉Excel
Set objExcel= Nothing                                                                          '釋放Excel物件

objFile.Close

WScript.Quit