VBA不跳出儲存警示訊息
當寫好VB執行「儲存檔案」時，卻跳出警示訊息-「無法儲存在無巨集的活頁簿」，需要點選「是」才能儲存，要怎麼不讓他不跳出儲存警示訊息呢？
問題描述
當你寫了儲存檔案語法
ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & “\檔案名稱.xlsx” _
, FileFormat:=xlOpenXMLWorkbook
執行巨集後則會跳出警示訊息-「無法儲存在無巨集的活頁簿」。
我們只需要將VB前後加兩段語法：
Application.DisplayAlerts = False
‘將警告顯示關閉
Application.DisplayAlerts = True
‘將警告顯示開啟
修改語法
※輸入以下指令※
Sub 另存新檔()
Application.DisplayAlerts = False
ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & “\檔案名稱.xlsx” _
, FileFormat:=xlOpenXMLWorkbook
Application.DisplayAlerts = True
End Sub
執行巨集則不會跳出警示訊息-「無法儲存在無巨集的活頁簿」，直接忽略完成另存新檔。
