Excel VBA 实用技巧 ( 轻轻的进阶编 ) 如何关闭提示警告讯息对话框

~ 上傳‧分享‧網賺 ~

~ 免費上傳空間‧請即申請 Freak Share ~

~ 進入後請點選左上角 注冊 ! ~

~ 声明事项 ~

如各位想把以下本文章转贴 , 请记得要注明出处.

本文章之内容为本人之经验所写, 绝无抄袭成份, 特此声明.

由于图片制作需时, 所以更新会比较慢.

存放图片的 SHARE A PIC SERVER 可能读取速度较慢, 请耐心等待.

嗯 … 如果当你叫你的程序制作并储存一个新的档案 , 当每次执行程序时 , 所储存的文件名字都一样的话 , 那么 , 你的计算机便会给你一个免费的而又烦死人的警告讯息出来 .

先假设一下情况 :

==================

每次执行程序后 , 程序的设定是把新增的一个 EXCEL 档以指定的文件名称 ABC.xls 来储存起来 .

==================

程序第一次运作时 , 你的程序中指定位置内并没有 ABC.xls 这个档案储在 , 所以在第一次执行程序中有关保存档案的程序代码时 , 根本就没有问题发生 .

但是 , 当你第二次执行程序时 , ABC.xls 这个档案已经在第一次执行程序时而存在了 , 所以 , 计算机会实时告诉你 , ABC.xls这个档案已经存在 , 而程序也实时终止了 .

“ 已经有一个叫做 ‘ C:\XXX\ABC.xls ’ 的档案了 , 你是否要取代它 ? ”

如果你按 “ 是 ” , 那么 , 你旧有的记录可能一下子就被你删掉了 , 如果你按 “ 否 ” , 你的计算机又会再一次跳出一个免费又吓人的讯息 :

==================

执行阶段错误 ‘1004’
‘SaveAs’方法(‘_Workbook’对象) 失败

==================

真是有够吓人的 ~ 如果那些数据的重要性比天更大 , 比海更深 , 那你的心脏很难说会不会给吓停 , 对吧 ~

当然 , 既然你懂得如何储存新档案 , 那你肯定知道用什么方法可以把档案的名称按照你的要求来变更 , 对吧 ~ 所以 , 这个方法的主要目的是 :

我只需要把这个档案的资料不停更新 , 覆盖上去就可以了 , 计算机可以不用问我是否取代原有的档案那么烦 ~

其实也是蛮简单的 ~ 程序代码如下 :

==================

Application.DisplayAlerts = False

==================

当然 , 这句程序代码并不是只把 “ 是否取代原有档案 ” 这个问题上才可以使用的 , 这句程序代码会把一切计算机应该要问你的东西 , 一次过全部都不在问你 , 直接执行和完成你给出来的指令 , 所以 , 如果你把这句程序代码使用不当而造成什么数据损失的话 , 请不要怪我没提醒你哦 ~ 呵呵呵呵 ~

再跟你说一下 , 有关闭就总会有打开的 ~ 对吧 ~

如果你想把计算机的警告讯息功能再次打开 , 你只要使用以下的程序代码就可以了 ~

==================

Application.DisplayAlerts = True

==================