返回列表 上一主題 發帖

[發問] 關於vbs啟用xlsm檔案格式問題?

[發問] 關於vbs啟用xlsm檔案格式問題?

各位夥伴好
目前可以使用vbs直接啟用xls檔案格式並避過巨集安全性
使用 VBS檔啟用EXCEL中的巨集

但使用vbs無法直接啟用xlsm檔案格式...則出現問題
請各位高手.有機會能做看看...與解惑
感激不盡...謝謝
Hung-Chi Lin/林宏吉
HUNGCHILIN/林宏吉的OFFICE專欄

回復 1# HUNGCHILIN
大大請測試看看!
使用 VBS檔啟用EXCEL中的巨集.rar (19 KB)

TOP

本帖最後由 HUNGCHILIN 於 2012-6-20 18:31 編輯
回復  HUNGCHILIN
大大請測試看看!
c_c_lai 發表於 2012-6-20 07:30


謝謝c_c_lai 兄的協助...小弟在這一段確實走偏了...繞不出來

以前經驗與試驗在新版下不一定正確
如下以前做的試驗
步驟1.VBS突破XLS巨集安全性試驗
步驟2.做完後連續又做了 1個VBS一次開多個XLS檔試驗
步驟3.做VBS+XLS+RAR轉EXE試驗
均可行XLS成果如附件 autoopenexe實驗.rar (55.76 KB)

但上述轉到xlsm檔案格式時.使用上述做到步驟3轉EXE就不行
真是讓我繞了好久...一直沒想過.從步驟1重新來過...沒想到結果竟是這麼容易
謝謝c_c_lai 兄的協助...否則我還困在以前的經驗與想法中
現行XLSM成果如附件 aaaXLSM.rar (56.5 KB)

此為 XLS/XLSM 使用RAR轉換為EXE檔,用以突破EXCEL97~2010巨集安全性的方法
Hung-Chi Lin/林宏吉
HUNGCHILIN/林宏吉的OFFICE專欄

TOP

回復 3# HUNGCHILIN
請教一個技術上的問題,您是怎麼壓成 .EXE 檔的, 應該不是  -> 轉換壓縮檔成自解檔吧?
我觀察這隻 .exe 是先去呼叫 .vbs 然後才去啟動 .xlsm 的。
如果是一般的轉換壓縮檔成自解檔, 它只是單純地解壓而已,並不會自動去啟動 .vbs 的。
難道是直接由 VB 平台轉換成 .exe 的? 因為我沒安裝 VB, 請問那要如何處理?
敬請指教!

TOP

本帖最後由 HUNGCHILIN 於 2012-6-21 21:41 編輯

他就是 轉換壓縮檔成自解檔exe
自解後先去呼叫 .vbs 然後才去啟動 .xlsm 。

所以才需要有 vbs 或是 作為啟動的exe 才能達到目標
這個想法並不是我想出來的
具體作法如連結[轉貼] 使用RAR 壓縮程式,包住EXCEL檔製作EXE執行檔,突破巨集安全性
很簡單啦...材料全都在這一帖上.自己實際測一測就會知道作法了.不會花太久時間
Hung-Chi Lin/林宏吉
HUNGCHILIN/林宏吉的OFFICE專欄

TOP

回復 5# HUNGCHILIN
不好意思,看遍了所有文章,也試著去產生它 (exe), 都失敗了! (滑鼠點在 aaaXLSM.vbs 上,按滑鼠右鍵彈出小視窗,
選擇"添加到壓縮文件",   揀選 "建立自我解壓縮檔",然後選擇 "進階設定" ->  "自解檔選項(X)" -> "文字及圖示" ???)
我指的是 aaaXLSM.rar 媕Y的 aaaXLSM.exe。
能否就以現有的 aaaXLSM.vbs、aaaXLSM.xlsm,它產生的 aaaXLSM.exe 的程序指導一下?

TOP

回復  HUNGCHILIN
不好意思,看遍了所有文章,也試著去產生它 (exe), 都失敗了! (滑鼠點在 aaaXLSM.vbs ...
c_c_lai 發表於 2012-6-22 08:26


具體最法請看這一篇
我把最重要網上作者不想說藏步的細節放在這裡
請照圖做
所有材料為 XLS+VBS 兩個檔+RAR程式...
VBSXLSRARTOEXE說明.rar (160.45 KB)
Hung-Chi Lin/林宏吉
HUNGCHILIN/林宏吉的OFFICE專欄

TOP

本帖最後由 c_c_lai 於 2012-6-23 07:19 編輯

回復 7# HUNGCHILIN
原來如此! 我少了"解壓後之執行"步驟,難怪每次均只有解壓而無執行之動作。
萬分謝謝您的指導!
附上成果!
股票圖表 與拉霸.vbs:
  1. Dim oExcel,fn
  2. fn=Replace(WScript.ScriptFullName,Right(WScript.ScriptFullName,4),".xls")
  3. Set oExcel = CreateObject("Excel.Application")
  4. oExcel.Visible=True
  5. oExcel.Workbooks.Open fn
  6. Set oExcel = Nothing
  7. Wscript.Quit
複製代碼
股票圖表與拉霸.rar (203.24 KB)

TOP

研究中 thanks

TOP

        靜思自在 : 原諒別人就是善待自己。
返回列表 上一主題