Question

实例：VBA，禁止弹出对话框的DisplayAlerts属性如何使用?

用VBA打开EXCEL文件的一个工作表读取部分内容，完成后关闭EXCEL，可是打开或关闭时有时会弹出烦人的各种对话框，上网查了一遍,感觉DisplayAlerts属性是禁止弹出对话框的,对这个属性了解很少，网上有如下运行的例子：
DisplayAlerts=Flase
Application.DisplayAlerts=Flase
exApp.Application.DisplayAlerts=Flase
我试了试，后两种运行时都不出错，针对我下面的这些代码，这条语句到底应该怎么写？加在哪里？才能实现不弹出提示对话框？

Set exApp = CreateObject("Excel.Application")'引用对象
Set exWorkbook = exApp.Workbooks.Open("d:\1.xls")'打开文件
For Each exSheet In exWorkbook.Worksheets '循环所有工作表
If exSheet.Name = "biao1" Then '找工作表
'核心语句
End If
Next
exWorkbook.Close'关闭
Set exWorkbook = Nothing
exApp.Quit
Set exApp = Nothing

Answer 1

DisplayAlerts属性使用方式：

1. 如果宏运行时 Microsoft Excel 显示特定的警告和消息，则该值为 True。Boolean 类型，可读写。

2. 说明

   默认值为 True。如果不想在宏运行时被无穷无尽的提示和警告消息所困扰，请将本属性设置为 False；这样每次出现需用户应答的消息时，Microsoft Excel 将选择默认应答。

3. 如果将该属性设置为 False，则在代码运行结束后，Micorosoft Excel 将该属性设置为 True，除非正运行交叉处理代码。

4. 如果使用工作簿的 SaveAs 方法覆盖现有文件，“覆盖”警告默认为“No”，当 DisplayAlerts 属性值设置为 True 时，Excel 选择“Yes”。

5. 示例

   本示例关闭工作簿 Book1.xls，但不提示用户保存所作更改。Book1.xls 中的所有更改都不会保存。

   Application.DisplayAlerts = False

   Workbooks("BOOK1.XLS").Close

   Application.DisplayAlerts = True

6. 一般情况下，如果某一应用程序未处于运行状态，那么当初始化与该应用程序相连的 DDE 通道时，将显示一条提示消息。

   
   

本示例使该提示消息不显示：

Application.DisplayAlerts = False

channelNumber = Application.DDEInitiate( _
   app:="WinWord", _
   topic:="C:\WINWORD\FORMLETR.DOC")
Application.DisplayAlerts = True
Application.DDEExecute channelNumber, "[FILEPRINT]"
Application.DDETerminate channelNumber
Application.DisplayAlerts = True

Answer 2

Set exApp = CreateObject("Excel.Application")'引用对象
Application.DisplayAlerts=Flase '关闭系统提示
Set exWorkbook = exApp.Workbooks.Open("d:\1.xls")'打开文件
For Each exSheet In exWorkbook.Worksheets '循环所有工作表
If exSheet.Name = "biao1" Then '找工作表
'核心语句
End If
Next
exWorkbook.Close'关闭
Application.DisplayAlerts=true '恢复系统提示
Set exWorkbook = Nothing
exApp.Quit
Set exApp = Nothing

Answer 3

我引用你的宏，未弹出信息框。