【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」快捷鍵,並「執行」巨集。

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

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

其他文章分享

發佈留言

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