- 帖子
- 63
- 主題
- 8
- 精華
- 0
- 積分
- 122
- 點名
- 0
- 作業系統
- Windows 2007
- 軟體版本
- Office 2007
- 閱讀權限
- 20
- 性別
- 男
- 來自
- Taiwan
- 註冊時間
- 2019-4-16
- 最後登錄
- 2023-3-24
|
11#
發表於 2021-11-8 16:55
| 只看該作者
直接使用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 |
|
