GBKEE

回復 1# t8899

取消這選項

下載 (96.27 KB)

2014-6-25 09:39

   

1. Private Sub Workbook_Open()
   
2. MsgBox "test"
   
3. Application.DisplayAlerts = False
   
4. Application.AskToUpdateLinks = False
   
5. ThisWorkbook.UpdateLinks = xlUpdateLinksAlways
   
6. Sheet5.QueryTables(1).Refresh 0   '加上這行
   
7. End Sub

複製代碼

GBKEE

回復 4# t8899

1. RefreshOnFileOpen 屬性 如果每次開啟活頁簿時，樞紐分析表快取記憶體或查詢表會自動更新則為 True。預設值為 False。讀/寫 Boolean。

複製代碼

QueryTables 如設定.RefreshOnFileOpen = True

1. Private Sub Workbook_Open()
   
2. Application.AskToUpdateLinks = False
   
3. ThisWorkbook.UpdateLinks = xlUpdateLinksNever  
   
4. 程序上,這些的設定是無效

複製代碼

你想要的是這樣嗎

1. Private Sub Workbook_Open()   
   
2.     If LCase(Me.Name) = "book1.xls" Then
   
3.         If MsgBox("開啟外部更新?", vbYesNo) = vbYes Then
   
4.             Sheet5.QueryTables(1).Refresh BackgroundQuery:=False
   
5.         End If
   
6.     ElseIf LCase(Me.Name) <> "book1.xls" Then
   
7.         Sheet5.QueryTables(1).Refresh BackgroundQuery:=False
   
8.     End If
   
9. End Sub

複製代碼

GBKEE

回復 6# t8899


   

回頭再打開B, (又出現要不要更新的詢息了(因為已被A更改為 TRUE))

A.XLS ThisWorkbook模組加上 試試看

1. Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
2.     Application.AskToUpdateLinks = False
   
3. End Sub
   
4. Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
   
5.      Application.AskToUpdateLinks = False
   
6. End Sub

複製代碼

GBKEE

回復 8# t8899

但對A檔無效 (A檔是要詢問)

請說一下你的流程

GBKEE

回復 10# t8899

A1.XLS

1. Private Sub Workbook_Open()
   
2.   Application.AskToUpdateLinks = True
   
3.   UpdateLinks = xlUpdateLinksUserSetting
   
4. End Sub

複製代碼

GBKEE

回復 13# t8899

有進步了