实例:VBA,禁止弹出对话框的DisplayAlerts属性如何使用? 100

用VBA打开EXCEL文件的一个工作表读取部分内容,完成后关闭EXCEL,可是打开或关闭时有时会弹出烦人的各种对话框,上网查了一遍,感觉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
展开
 我来答
shihoumacili
高粉答主

2016-01-30 · 每个回答都超有意思的
知道大有可为答主
回答量:1.1万
采纳率:87%
帮助的人:487万
展开全部

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

何眈忧伤
推荐于2017-11-23 · TA获得超过744个赞
知道小有建树答主
回答量:655
采纳率:33%
帮助的人:323万
展开全部
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
本回答被网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
Ynzsvt
2010-07-23 · TA获得超过6663个赞
知道大有可为答主
回答量:1.5万
采纳率:40%
帮助的人:2672万
展开全部
我引用你的宏,未弹出信息框。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(1)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式