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

回復 11# GBKEE


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