[發問] 關閉資料更新通知視窗

li_hsien

小弟寫了一個巨集，執行流程大致如下

選取多個Excel檔 -> 將選取的Excel檔開啟 -> COPY所需欄位到一個Excel總檔

但有時候會碰上資料更新的通知視窗，如下圖

下載 (26.89 KB)
更新資料

2015-3-23 15:03

試過Application.DisplayAlerts = False

也沒有用

常常會因此運行中斷

不知有無解法


請各位協助

謝謝！！！

GBKEE

回復 1# li_hsien

1. Option Explicit
   
2. Sub Ex() '不要Copy,給值 Value*******************
   
3.     Dim Rng As Range
   
4.     Application.AskToUpdateLinks = True
   
5.     Set Rng = Workbooks("Ex.XLS").Sheets(1).[A5:F10]
   
6.     With Workbooks("TEST.XLS")
   
7.         .Sheets(2).[C2].Resize(Rng.Rows.Count, Rng.Columns.Count) = Rng.Value
   
8.     End With
   
9. End Sub
   
10. Sub Ex_All() '如給值 Value,不是你要的期望.**********
    
11.     '執行一次,再重新你的檔案程式
    
12.    
    
13.     'UpdateLinks 屬性 設定 XlUpdateLink 常數，此常數可指出活頁簿更新內嵌 OLE 連線的設定。讀/寫。
    
14.     'XlUpdateLinks 可以是這些 XlUpdateLinks 常數之一。
    
15.         
    
16.     'xlUpdateLinksAlways 永遠更新指定活頁簿的內嵌 OLE 連線。
    
17.     'xlUpdateLinksNever 永遠不更新指定活頁簿的內嵌 OLE 連線。
    
18.     'xlUpdateLinksUserSetting  根據使用者對指定活頁簿的設定來更新內嵌的 OLE 連線。
    
19.    
    
20.     Dim WB As Workbook
    
21.     For Each WB In Workbooks
    
22.         WB.UpdateLinks = xlUpdateLinksAlways
    
23.         WB.Close True
    
24.     Next
    
25. End Sub

複製代碼

li_hsien

回復 2# GBKEE

感謝版主協助

每次看您操作的方式都很受教

不單單只是用COPY而已


資料連結的部分

我後來用2007版就沒有此問題了

不知為何2003的會跳出詢問@@

GBKEE

回復 3# li_hsien
我只有2003版,你的問題尚需有此版本的相助.

li_hsien

回復 2# GBKEE

請問版主

我是以下方作法開啟多檔

1. Private Sub add_data_Click()
   
2.     Dim fn As String
   
3.     Dim Show_File As Object
   
4.     Dim file_count As Integer
   
5.     Dim SF_name As String
   
6.    
   
7.     Application.DisplayAlerts = False
   
8.    
   
9.     fn = ActiveWorkbook.Name
   
10. 
    
11.     Set Show_File = Application.FileDialog(msoFileDialogOpen)
    
12.    
    
13.     With Show_File
    
14.          .InitialFileName = ActiveWorkbook.Path & "\*.xls"  '指定 xls檔
    
15.          .AllowMultiSelect = True
    
16.          .Show
    
17.             If .SelectedItems.Count > 0 Then
    
18.             
    
19.                 For file_count = 1 To .SelectedItems.Count
    
20. 
    
21.                     With Workbooks.Open(.SelectedItems(file_count))
    
22.                         
    
23.                         Debug.Print "SF(" & file_count & "): " & ActiveWorkbook.Name
    
24.                         SF_name = ActiveWorkbook.Name
    
25.                         MCD_add fn, SF_name
    
26.                         .Close 0
    
27.                         
    
28.                     End With
    
29. 
    
30.                 Next
    
31.                
    
32.             End If
    
33.     End With

複製代碼

請問這樣的作法要如何插入WB.UpdateLinks = xlUpdateLinksNever呢?

GBKEE

回復 5# li_hsien

1. With Workbooks.Open(.SelectedItems(file_count))

複製代碼

這Workbook 須是事先設定.UpdateLinks = xlUpdateLinksNever,
開啟時才會生效.