【Excel VBA】儲存檔案/另存新檔

VBA儲存檔案

Excel中我們想要儲存檔案,可以點選檔案儲存檔案或是按下快捷鍵Ctrl」+「S」,那要如何使用VBA儲存檔案呢?

輸入巨集

※輸入以下指令※

Sub 儲存檔案()
ThisWorkbook.save
End Sub

語法說明

ThisWorkbook.save
‘此活頁簿儲存

執行巨集

點選「開發人員」-「巨集」或按下「Ctrl」+「F8」快捷鍵,並「執行」巨集。

執行後即儲存檔案

VBA另存新檔

Excel中我們想要儲存檔案,可以點選檔案另存新檔或是按下快捷鍵F12」,那要如何使用VBA另存新檔呢?

輸入巨集

※輸入以下指令※

Sub 另存新檔()
ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & “\檔案名稱.xlsm”
End Sub

語法說明

ThisWorkbook.SaveAs
‘此活頁簿另存新檔為
Filename:=ThisWorkbook.Path & “\檔案名稱.xlsm”
儲存在同活頁簿所在的位置,並以「檔案名稱」為檔名,「xlsm」為副檔名

檔案名稱」可輸入想命名的名稱。
xlsm」為Excel啟用巨集活頁簿副檔名
xlsx」為Excel 活頁簿副檔名(版本2007以上)
xls」為Excel 活頁簿副檔名(版本2003)

執行巨集

點選「開發人員」-「巨集」或按下「Ctrl」+「F8」快捷鍵,並「執行」巨集。

執行後即另存檔案為「檔案名稱」,且檔案位置同此活頁簿

巨集活頁簿存檔為非巨集活頁簿

其他文章分享

發佈留言

發佈留言必須填寫的電子郵件地址不會公開。 必填欄位標示為 *