如何忽略EXCEL程序运行中的信息提示

adrsswz

1. Option Explicit
   
2. Public Sub 合并()
   
3. Dim arrFilesname, el, C As Range
   
4. Dim wb As Workbook
   
5. Const P = "E:\新版数据-财务\1成本核算文件\2成本核算"
   
6.     '需要合并的xls文件的路径。
   
7.     On Error Resume Next
   
8.     Application.ScreenUpdating = False
   
9.     Application.DisplayAlerts = False
   
10.     arrFilesname = ListFile(P, False, "*.xls")
    
11.     ThisWorkbook.Worksheets("成本目录").Range("e2:f" & Rows.Count).ClearContents
    
12.     For Each el In arrFilesname
    
13.         Err.Clear
    
14.         Set wb = GetObject(el)
    
15.         If Err.Number = 0 Then
    
16.             Set C = wb.Worksheets("成本").Cells.Find(what:="总成本")
    
17.             If Not C Is Nothing Then
    
18.                 With ThisWorkbook.Worksheets("成本目录").Cells(Rows.Count, 5).End(xlUp)
    
19.                     .Offset(1).Value = wb.Name
    
20.                     .Offset(1, 1).Value = C.EntireRow.Cells(1, 3).Value
    
21.                 End With
    
22.             End If
    
23.         End If
    
24.         wb.Close
    
25.     Next
    
26.     Set wb = Nothing
    
27. End Sub
    
28. 'MuLu是要查找的文件夹,如："F:\VBA\pdf\Excel2007VBA"
    
29. 'LeiXing是要查找的文件类型，如：*.xls,a?*.txt等，如果省略该参数，函数实现的是查找文件夹功能
    
30. 'LeiXing参数不省略时：1、Zi为true时搜索所有子文件夹下符合要求的文件。2、Zi为false时仅搜索参数MuLu下符合要求的文件
    
31. 'LeiXing参数省略时：  1、Zi为true时搜索参数MuLu下所有子文件。2、Zi为false时仅搜索参数MuLu下的文件夹
    
32. '函数的返回值是一个一维数组，可视具体情况使用
    
33. 
    
34. Public Function ListFile(MuLu As String, Zi As Boolean, Optional LeiXing As String = "")
    
35. Dim MyFile As String, ms As String
    
36. Dim arr, brr, x
    
37. Dim i As Integer, D As Object
    
38. Set D = CreateObject("Scripting.Dictionary")
    
39. If Left(MuLu, 1) <> "" Then MuLu = MuLu & ""
    
40. D.Add MuLu, ""
    
41. i = 0
    
42. Do While i < D.Count
    
43.     brr = D.keys
    
44.     MyFile = Dir(brr(i), vbDirectory)
    
45.     Do While MyFile <> ""
    
46.         If MyFile <> "." And MyFile <> ".." Then
    
47.             If (GetAttr(brr(i) & MyFile) And vbDirectory) = vbDirectory Then D.Add (brr(i) & MyFile & ""), ""
    
48.         End If
    
49.         MyFile = Dir
    
50.     Loop
    
51.     If Zi = False Then Exit Do
    
52.     i = i + 1
    
53. Loop
    
54. If LeiXing = "" Then
    
55.     ListFile = Application.Transpose(D.keys)
    
56. Else
    
57.     For Each x In D.keys
    
58.         MyFile = Dir(x & LeiXing)
    
59.         Do While MyFile <> ""
    
60.             ms = ms & x & MyFile & ","
    
61.             MyFile = Dir
    
62.         Loop
    
63.         If Zi = False Then Exit For
    
64.     Next
    
65.     If ms = "" Then ms = "没有符合要求的文件,"
    
66.     ListFile = Application.Transpose(Split(ms, ","))
    
67. End If
    
68. End Function
    
69. 
    

复制代码

我有下面一段代码，提取指定文件夹下面的XLS文件，并且建立超链接，但是由于文件中存在外联数据的情况，所以运行中老是弹出如下的对话框，请问怎么可以屏蔽掉（启用更新），请高手帮修改下

xuexi2xuexi

试试:
application.AskToUpdateLinks=False

战战如疯

打开VBE窗口，选择thisworkbook对象，在属性窗口中将UpdateLinks属性值改为2－xlUpdateLinksNever