麻辣家族討論版版 - Powered by Discuz! Board

標題: [發問] 關於ｖｂｓ啟用ｘｌｓｍ檔案格式問題？ [打印本頁]

作者: HUNGCHILIN 時間: 2012-6-19 23:23 標題: 關於ｖｂｓ啟用ｘｌｓｍ檔案格式問題？

各位夥伴好
目前可以使用ｖｂｓ直接啟用ｘｌｓ檔案格式並避過巨集安全性
如使用 VBS檔啟用EXCEL中的巨集

但使用ｖｂｓ無法直接啟用ｘｌｓｍ檔案格式．．．則出現問題
請各位高手．有機會能做看看．．．與解惑
感激不盡．．．謝謝

作者: c_c_lai 時間: 2012-6-20 07:30

回復 1# HUNGCHILIN
大大請測試看看！
[attach]11448[/attach]

作者: HUNGCHILIN 時間: 2012-6-20 18:14

本帖最後由 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成果如附件[attach]11451[/attach]

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

此為 XLS/XLSM 使用RAR轉換為EXE檔，用以突破EXCEL97~2010巨集安全性的方法

作者: c_c_lai 時間: 2012-6-21 10:37

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

作者: HUNGCHILIN 時間: 2012-6-21 21:39

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

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

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

作者: c_c_lai 時間: 2012-6-22 08:26

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

作者: HUNGCHILIN 時間: 2012-6-23 00:57

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

具體最法請看這一篇
我把最重要網上作者不想說藏步的細節放在這裡
請照圖做
所有材料為 XLS+VBS 兩個檔+RAR程式...
[attach]11461[/attach]

作者: c_c_lai 時間: 2012-6-23 06:05

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

回復 7# HUNGCHILIN
原來如此！我少了"解壓後之執行"步驟，難怪每次均只有解壓而無執行之動作。
萬分謝謝您的指導！
附上成果！
股票圖表與拉霸.vbs：

Dim oExcel,fn
fn=Replace(WScript.ScriptFullName,Right(WScript.ScriptFullName,4),".xls")
Set oExcel = CreateObject("Excel.Application")
oExcel.Visible=True
oExcel.Workbooks.Open fn
Set oExcel = Nothing
Wscript.Quit

複製代碼

[attach]11462[/attach]

作者: T.Y 時間: 2014-4-11 00:26

研究中 thanks

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