標題: [發問] 如何用BAT開啟 xlsm檔 [打印本頁]

---

作者: dou10801    時間: 2021-10-28 16:45     標題: 如何用BAT開啟 xlsm檔

請教各位先進,如何用[cmd] BAT開啟 xlsm檔,感恩.

---

作者: quickfixer    時間: 2021-10-28 20:52

bat檔內直接打檔名就可以
test.xlsm

xp的加個start
start test.xlsm

---

作者: dou10801    時間: 2021-10-29 08:48

回復 2# quickfixer 感謝 quickfixer 我轉了好大圈,可否在bat中不顯示黑視窗,謝謝.

---

作者: quickfixer    時間: 2021-10-29 16:20

回復 3# dou10801


    cmd /c start  test.xlsm

---

作者: dou10801    時間: 2021-10-29 16:40

回復 4# quickfixer 我的系統是win10還是會顯示黑色窗體,謝謝.

---

作者: quickfixer    時間: 2021-10-29 17:40

用2行
start test.xlsm
exit

---

作者: dou10801    時間: 2021-11-3 08:28

回復 6# quickfixer
感謝quickfixer回覆,還是有黑視窗.

---

作者: quickfixer    時間: 2021-11-3 19:37

回復 7# dou10801


   
#4 、 #6 的寫法在我的電腦上win7、win10
黑色cmd畫面,都是閃一下就自動關掉了,不知道為什麼你的還在
如果你是指->我不要閃一下黑畫面
那為什麼不直接拉xlsm檔的捷徑就好?不是更簡單
不好意思,我想不到辦法了,請等其它高手幫忙解答

---

作者: quickfixer    時間: 2021-11-3 19:55

回復 8# quickfixer


    https://www.raymond.cc/blog/hidden-start-runs-batch-files-silently-without-flickering-console/
剛才google到的,試了裡面好幾種方式都不會->閃一下黑畫面
可是另外要用程式、vbs 開bat,不能只用bat,參考看看了

---

作者: dou10801    時間: 2021-11-5 16:44

回復 9# quickfixer
感謝多次回覆，的確要用vba結合bat謝謝。

---

作者: 劉大胃    時間: 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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)