[發問] 呼叫外部獨立執行檔案巨集

帖子: 66
主題: 16
精華: 0
積分: 99
點名: 0
作業系統: Win7
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2012-8-12
最後登錄: 2023-10-26

13^#

發表於 2021-7-16 00:05 | 只看該作者

本帖最後由 reangame 於 2021-7-16 00:07 編輯

回復 10# singo1232001

https://docs.microsoft.com/zh-tw/office/vba/api/excel.application.automationsecurity
https://ithelp.ithome.com.tw/articles/10159964
不知道有沒有用，敬請參考看看

我是斯多

帖子: 66
主題: 16
精華: 0
積分: 99
點名: 0
作業系統: Win7
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2012-8-12
最後登錄: 2023-10-26

12^#

發表於 2021-7-15 09:15 | 只看該作者

3.rar (32.78 KB) 回復 10# singo1232001

我是斯多

帖子: 66
主題: 16
精華: 0
積分: 99
點名: 0
作業系統: Win7
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2012-8-12
最後登錄: 2023-10-26

11^#

發表於 2021-7-15 08:49 | 只看該作者

本帖最後由 reangame 於 2021-7-15 08:51 編輯

回復 10# singo1232001

報告singo1232001大大，小弟是2003版本，小弟尚未理解您的程式碼，但調整一下經測試可用您的檔案一鍵執行喔!!!

a.WriteLine "obje2.Application.Run """ & Chr(39) & [a1] & "a2.xlsm" & Chr(39) & "!Module1.forX"""
For i = 15 To 19
a.WriteLine Cells(i, 1)
Next

複製代碼

我是斯多

　暱稱: 熱狗慶

帖子: 354
主題: 5
精華: 0
積分: 387
點名: 0
作業系統: windows7
軟體版本: vba,vb,excel2007
閱讀權限: 20
性別: 男
註冊時間: 2017-1-8
最後登錄: 2024-8-2

論壇榮譽勳章論壇贊助勳章

10^#

發表於 2021-7-15 02:58 | 只看該作者

回復 9# singo1232001

想試著完全一鍵搞定但還是敗在巨集啟用的警告畫面

新增資料夾.zip (43.03 KB)

　暱稱: 熱狗慶

帖子: 354
主題: 5
精華: 0
積分: 387
點名: 0
作業系統: windows7
軟體版本: vba,vb,excel2007
閱讀權限: 20
性別: 男
註冊時間: 2017-1-8
最後登錄: 2024-8-2

論壇榮譽勳章論壇贊助勳章

9^#

發表於 2021-7-15 02:35 | 只看該作者

本帖最後由 singo1232001 於 2021-7-15 02:48 編輯

回復 8# reangame

後來我試著用vba自動生成一個全新的vbs
然後又讓vba去執行這個vbs
但是出現一個狀況
在我的"下載"資料夾下並不會產生啟用巨集的警告(即便我改檔名讓他恢復到需要啟用內容的狀況) 還是可以執行
但只要我把檔案搬離開到其他資料夾
就一定會跳出啟用巨集關閉巨集的彈窗
這問題看來還是沒辦法完全解決掉

但我發現了這個
https://ithelp.ithome.com.tw/articles/10159964

跟很久之前我看得這個有點像
https://www.youtube.com/watch?v=G-2khNFYQl8
http://forum.twbts.com/thread-19128-1-1.html
這個是用vba爬蟲但會爬到一半碰到警告alert卡住但因為沒有多線程這種東西所以請vbs來幫忙點個讚!
vba的運作滴答滴答滴答之間是沒辦法跳線程的答滴之間才可以但通常就是卡在滴答之間
看起來很像多線程但還是只能單線程運行只是換來換去跑而已

而這次他用到的好像是呼叫vbs請AutoHotKey來幫忙點個讚

帖子: 66
主題: 16
精華: 0
積分: 99
點名: 0
作業系統: Win7
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2012-8-12
最後登錄: 2023-10-26

8^#

發表於 2021-7-15 00:42 | 只看該作者

2.rar (31.35 KB) 回復 6# singo1232001

我是斯多

帖子: 66
主題: 16
精華: 0
積分: 99
點名: 0
作業系統: Win7
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2012-8-12
最後登錄: 2023-10-26

7^#

發表於 2021-7-15 00:23 | 只看該作者

回復 6# singo1232001

感謝singo1232001大大，
小弟在A檔案加入Sub runVBScript()，的確可以實現A檔案控制B檔案執行巨集了，
也找到在A檔案VBA程式碼控制vbs檔案的方法，非常感謝您！

Sub runVBScript()
ChDrive "C:"
ChDir "C:\Users\reang\Downloads\2"
Shell "cscript vba3.vbs"
End Sub

複製代碼

我是斯多

　暱稱: 熱狗慶

帖子: 354
主題: 5
精華: 0
積分: 387
點名: 0
作業系統: windows7
軟體版本: vba,vb,excel2007
閱讀權限: 20
性別: 男
註冊時間: 2017-1-8
最後登錄: 2024-8-2

論壇榮譽勳章論壇贊助勳章

6^#

發表於 2021-7-13 12:10 | 只看該作者

回復 5# singo1232001

由於每台電腦的位置不同
必須先選 vba3.vbs 右鍵>編輯當中的a1.xlsm 與a2.xlsm路徑
完成後儲存方可正常執行

Downloads.zip (25.85 KB)

　暱稱: 熱狗慶

帖子: 354
主題: 5
精華: 0
積分: 387
點名: 0
作業系統: windows7
軟體版本: vba,vb,excel2007
閱讀權限: 20
性別: 男
註冊時間: 2017-1-8
最後登錄: 2024-8-2

論壇榮譽勳章論壇贊助勳章

5^#

發表於 2021-7-13 10:01 | 只看該作者

本帖最後由 singo1232001 於 2021-7-13 10:16 編輯

回復 4# reangame

好難喔QQ
https://www.youtube.com/watch?v=EGXPQs0R5YI
https://www.youtube.com/watch?v=lFSgV2gym9g

我把蒐集的到所有相關訊息都丟上來
http://forum.twbts.com/thread-19128-1-1.html
http://forum.twbts.com/viewthread.php?tid=2691
https://stackoverflow.com/questions/39519805/how-can-i-load-a-vba-library-reference-and-use-it-in-the-same-procedure

測試方式
1.先把a1 a2兩個檔案的a1 都清掉都存檔關閉
2.執行vba3.vbs檔案
3.檢查a1是否5000時再打開

另外補充
還有3個關鍵字
VBComponent
ProcOfLine
InsertLines

這個是利用 VBComponent 找出巨集存放的位置
有分成寫入與讀取
但很複雜要花時間去死嗑一番
難點在於如何引用成功
有的excel版本特別不相容
有的版本甚至連set都不用

最後補充一下之前的檔案
要把所有的:doevents 都刪掉因為當時我在測試結果忘了刪很容易衝突

Downloads.zip (37.32 KB)