vba 弹出的更新链接的对话框 及各种关闭语句

可利用vba关闭链接更新对话框，步骤如下：

　　1、启动excel，打开要设置的文件；

　　2、按ALT+F11打开VBA编辑窗口,将以下代码粘贴到ThisWorkbook:
　　

Private Sub Workbook_Open()
　　Application.AskToUpdateLinks = False     '关闭程序询问更新链接提示
　　ThisWorkbook.UpdateLinks = xlUpdateLinksAlways  '更新链接
　　End Sub

 关闭屏幕更新语句：

Application.ScreenUpdating=False

 

eg:

Sub InputTest()
     Cells.ClearContents
     Application.ScreenUpdating=False    '关闭屏幕更新
     Range("A1:A10").Value=100
     MsgBox "刚才在A1:A10输入的数值100，你能看到结果吗？"
     Range("B1:B10").Value=200
     MsgBox "刚才在B1：B10输入的数值200，你能看到结果吗?"
     Application.ScreenUpdating=True     '开启屏幕更新
End Sub 

如果在程序中将ScreenUpdating属性设置为False，一定要记得在程序结束前将其重新设置为True。

若关闭屏幕更新，则在VBA程序结束前，我们看不到这些输入的数据，这是因为我们关闭了屏幕更新。

只有当单击最后一个对话框中的【确定】按钮，待程序结束执行后，我们才能在工作表中看到输入的数据。

 

关闭禁止显示警告对话框

Application.DisplayAlerts=False