從a.xls裡面去執行b.xls的commandbutton1；c.xls的commandbutton1.....等

gkld

如題，
Private Sub CommandButton1_Click()
Call 更新
Workbooks.Open ("C:\Documents and Settings\b.xls")  '呼叫b.xls的模組
Application.Run ("b.xls!Sheet1.CommandButton1_Click")

Workbooks.Open ("C:\Documents and Settings\c.xls")
Application.Run ("c.xls!Sheet1.CommandButton1_Click")

Workbooks.Open ("C:\Documents and Settings\d.xls")
Application.Run ("d.xls!Sheet1.CommandButton1_Click")
end sub
---------------------------------------------------------------------------------------------------以上是我的程式碼
可是我按F8一行一行去執行時不知道為什麼都執行到b.xls後，就跳到了 第1行的程式去了
請問錯在哪兒呢？

gkld

回復 11# GBKEE


咦？我本來也有想過是不是『'Workbooks("004.xls").Close 』造成的
但是後來我想
我主要不是在執行001.xls sheet1的程序嗎？
我關閉的是其它非001.xls的活頁簿，難道這樣也會停止了001.xls sheet1 VBA的運作嗎？
我真的沒有這方面的觀念~

GBKEE

回復 10# gkld
每一個活頁簿的 [更新] 因活頁簿關閉而停止了VBA的運作

1. 'Workbooks("004.xls").Save  註解掉不執行
   
2. 'Workbooks("004.xls").Close 註解掉不執行

複製代碼

001.xls的 CommandButton1_Click

1. Private Sub CommandButton1_Click()
   
2.     Dim XPath As String, E As Variant
   
3.     Call 更新
   
4.     XPath = "C:\Documents and Settings\gkld\桌面\my kp\資料庫\上市類股"
   
5.     Application.ScreenUpdating = False
   
6.     For Each E In Array("004.xls", "005.xls", "016.xls", "017.xls", "018.xls", "019.xls")
   
7.         Run "'" & XPath & "\" & E & "'!資料更新.更新"
   
8.         Workbooks(E).Close True
   
9.     Next
   
10.     Application.ScreenUpdating = True  '更新成功就出現ok
    
11.     MsgBox "OK"
    
12. End Sub

複製代碼

gkld

回復 7# GBKEE
板大，我依你的指導修正了001.xls的程式碼後，
也是面臨了同樣的問題說，都是執到了004.xls的Run "'" & XPath & "\004.xls'!資料更新.更新"後，就跳出來了
我附上相關檔案
再請釋疑 更新.rar (324.14 KB)

下載次數: 4

2013-4-13 22:42

gkld

回復 7# GBKEE
板大，能否再次請教

1.    1. Workbooks.Open ("C:\Documents and Settings\資料庫\004.xls")
   
2.    2. Workbooks("004.xls").Activate
   
3.    3. Application.Run ("004.xls!Sheet1.CommandButton1_Click")
   
4.    4.
   
5. 
   
6.    5. Workbooks.Open ("C:\Documents and Settings\資料庫\005.xls")
   
7.    6. Workbooks("005.xls").Activate
   
8.    7. Application.Run ("005.xls!Sheet1.CommandButton1_Click")

複製代碼

上述的程式碼，與你所指導的 「、檔案已啟時    只需: 活頁簿名稱!模組名稱.程序名稱」
是否一致？？
小弟不是很了解，為何我所寫的程式碼，這樣只能執行到004.xls!Sheet1.CommandButton1_Click完後，就沒了
後面的005.xls!Sheet1.CommandButton1_Click就沒有執行了
而且還是在沒有出現偵錯的情況下~

gkld

回復 7# GBKEE
哦…原來還可以這樣呀!？ 待會再去跑跑看

可是板大…我還是很好奇…原本的寫法 是錯在哪兒？

我執行時，沒有出現錯誤，但卻只是跑到更新完 004.xls的檔案就跳出來了，結束了

不曉得原因出在哪兒說

GBKEE

回復 6# gkld
是這樣的

1. Sub 更新() '001.xls的「更新資料」
   
2.     Dim m As Date, n As Date
   
3.     Dim XPath As String
   
4.     XPath = ThisWorkbook.Path
   
5.     '你的所有檔案都在同一資料夾:  C:\Documents and Settings\gkld\My Documents\
   
6.     '檔案未開啟:    檔案名稱需是完整檔案名稱 前後 加 ' ->   '檔案名稱'!模組名稱.程序名稱
   
7.     Run "'" & ThisWorkbook.Path & "\004.xls'!資料更新.更新"
   
8. 
   
9.     '檔案已啟時    只需: 活頁簿名稱!模組名稱.程序名稱
   
10.     Run "004.xls!資料更新.更新"
    
11.     Run "005.xls!資料更新.更新" '...
    
12.     Run "006.xls!資料更新.更新" '...
    
13.     Run "007.xls!資料更新.更新" '...
    
14. End Sub

複製代碼

gkld

回復 5# mark15jill

唉呀… 是我失禮了!!

我把檔案放上來，或許比較清楚

主要是我要執行001.xls的「更新資料」按扭，想透過這個動作去呼叫004.xls裡的CommandButton1、005xls的CommandButton1

015.xls裡的CommandButton1…等更多xls裡的CommandButton1，但是都是只跑到004.xls裡的CommandButton1後，就停了

再請各位高手釋疑。

新資料夾.rar (260.4 KB)

下載次數: 5

2013-4-12 18:45

mark15jill

回復  mark15jill

樓上的先進：上述程式碼是a.xls裡面的一個模組

你分亨的文章，同樣都是使用到 app ...
gkld 發表於 2013-4-11 20:41

    老話常談... No Have 檔案   No Have Answer...

gkld

回復 2# mark15jill

樓上的先進：

1. Workbooks.Open ("C:\Documents and Settings\資料庫\004.xls")
   
2. Workbooks("004.xls").Activate
   
3. Application.Run ("004.xls!Sheet1.CommandButton1_Click")
   
4. 
   
5. Workbooks.Open ("C:\Documents and Settings\資料庫\005.xls")
   
6. Workbooks("005.xls").Activate
   
7. Application.Run ("005.xls!Sheet1.CommandButton1_Click")

複製代碼

上述程式碼是a.xls裡面的一個模組

你分亨的文章，同樣都是使用到 application.run
所以我這樣的寫法應該也是同樣意思
只是我不了解…為何我執行起來，那個004檔案裡的commandbutton1是可以被呼叫出來的
但是之後程式就結束了，無法執行到005.xls的commandbutton1