12
返回列表 上一主題 發帖

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

reangame

帖子
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版本，小弟尚未理解您的程式碼，但調整一下經測試可用您的檔案一鍵執行喔!!!
  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
複製代碼
我是斯多

TOP

reangame

帖子
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
我是斯多

TOP

reangame

帖子
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
不知道有沒有用，敬請參考看看
我是斯多

TOP

        靜思自在 : 心中常存善解、包容、感思、知足、惜福。
12
返回列表 上一主題