ブックに名前をつけて保存する【SaveAsメソッド】【ExcelVBA】

SaveAsメソッド
サンプルコード
注意点
関連記事

SaveAsメソッド

ブックに名前をつけて保存する場合はSaveAsメソッドを使用します。

構文
Workbook.SaveAs (FileName, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, AccessMode, ConflictResolution, AddToMru, TextCodepage, TextVisualLayout, Local)

FileName	保存するファイル名を示す文字列です。
FileFormat	ファイルを保存するときに使用するファイル形式です。
Password	ファイルを開くのにパスワードを必要とする場合、15字以内の文字列を指定します。 ※大文字、小文字が区別されます
WriteResPassword	ファイルの書き込みパスワードを表す文字列です。
ReadOnlyRecommended	Tureを指定すると、ファイルを読み取り専用として開くように勧めるメッセージを表示します。
CreateBackup	Tureを指定すると、バックアップファイルを作成します。
AccessMode	XlSaveAsAccessModeクラス定数で、ブックのアクセスモードを指定します。
ConflictResolution	XlSaveConflictResolutionクラス定数で、ブック保存中に競合を解決方法を決定します。
AddToMru	Tureを指定すると、最近使用したファイルの一覧にブックを追加します。
TextCodepage	Microsoft Excelのすべての言語で無視されます。
TextVisualLayout	Microsoft Excelのすべての言語で無視されます。
Local	Tureを指定すると、Excel の言語設定に合わせてファイルを保存します。 ※コントロールパネルの設定を含みます。

サンプルコード

Public Sub Sample()
    'ブックに「サンプル」と名前をつけて保存
    '引数FileFormatを指定しマクロ有効ブック(*.xlsm)にする
    ThisWorkbook.SaveAs Filename:="C:\excelsample\サンプル.xlsm", _
                        FileFormat:=xlOpenXMLWorkbookMacroEnabled
End Sub

'■既存のブックに別名をつけて保存する場合
Public Sub Sample2()   
    Dim book As Workbook
    '既存のブックを開く
    Workbooks.Open Filename:="C:\excelsample\サンプル.xlsm"
    
    Set book = ActiveWorkbook
    'ブックに「テスト」と名前をつけて保存する
    book.SaveAs Filename:="C:\excelsample\テスト.xlsm"
    book.Close      'ブックを閉じる    
End Sub