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

reangame

請問大大們，想用A檔案程式碼呼叫獨立執行B檔案sub msg()，   
    Dim xlApp As Excel.Application
    Dim book As Excel.Workbook
    Dim sheet As Excel.Worksheet
    Set xlApp = CreateObject("excel.Application")
    Set book = xlApp.Workbooks.Open("D:\公式.xls")
    此處可以獨立執行開啟B檔案

    Application.Run "'D:\公式.xls'!Module1.msg"
    此處無法以獨立執行B檔案msg()，仍以A檔案執行msg()
  
    請問大大們該如何撰寫呢?  
    請指導指導，謝謝

reangame

回復 10# singo1232001


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

reangame

3.rar (32.78 KB)

下載次數: 4

2021-7-15 09:15

回復 10# singo1232001

reangame

回復 10# singo1232001


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

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

複製代碼

singo1232001

回復 9# singo1232001


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

singo1232001

回復 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來幫忙點個讚

reangame

2.rar (31.35 KB)

下載次數: 5

2021-7-15 00:41

回復 6# singo1232001

reangame

回復 6# singo1232001

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

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

複製代碼

singo1232001

回復 5# singo1232001

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

singo1232001

回復 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 都刪掉 因為當時我在測試 結果忘了刪 很容易衝突