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

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