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
注意点
- 新規ブックに名前をつけて保存する場合、拡張子をマクロ有効ブックにする必要があります。
- 引数FileFormatを指定する際のファイル形式については、こちらをご覧ください。
コメント