Board logo

標題: [發問] 前後執行兩個不同xls中的巨集 [打印本頁]
作者: joey0415    時間: 2014-6-27 08:40     標題: 前後執行兩個不同xls中的巨集

假設
A.XLS中有
A-1  巨集
A-2  巨集
B.XLS中有
B-1  巨集
B-2  巨集

希望打開A.XLS後，自動執行A-1與A-2後，關閉存檔後，呼叫b.XLS後，自動執行b-1與b-2後，也能關閉存檔
以前都是設定幾點打開A.XLS，再一個小時候再打開B.XLS
==================================================
再請教一個問題
若A-1中有個FOR迴圈，希望在執行時，能順便折開一個TXT檔，紀錄執行到「日期+第幾次」並存檔！因為有時候一但有錯誤時，只要打開TXT就能知道錯在哪？

請高手指點一二

謝謝
作者: ui123    時間: 2014-6-28 15:27

我以前有遇到類似問題，就多一個檔案去控制A,B巨集，GBKEE大有幫我解決其中的小問題...
http://forum.twbts.com/thread-12046-1-1.html
作者: GBKEE    時間: 2014-6-28 15:50

回復 1# joey0415
是這樣嗎?
  1. Option Explicit
  2. Sub Ex()
  3.     Dim I As Integer
  4.     If Dir("d:\test.txt") <> "" Then Kill "d:\test.txt"
  5.     For I = 1 To 10
  6.         Close #1
  7.         Open "d:\test.txt" For Append As #1
  8.         Print #1, "日期 第" & I; "次"
  9.         Close #1
  10.     Next
  11. End Sub
複製代碼
作者: joey0415    時間: 2014-6-30 08:14

回復  joey0415
是這樣嗎?
GBKEE 發表於 2014-6-28 15:50



謝謝，回家會來試試看



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