Excel VBAでワークブックの「名前を付けて保存」と「上書き保存」の方法を記録します。
名前を付けて保存は「SaveAs」メソッド、上書き保存は「Save」メソッドです。
< スポンサーリンク >
ブックを保存する例
名前を付けて保存
新しいブックを作成し、アクティブブック(新しいブック)に名前を付けて保存をする場合は次のように書きます。
フォルダを指定しない場合は、Excelで設定されている[既定のローカルファイルの保存場所]に保存されます。
Sub test()
'新しいブックを作成
Workbooks.Add
'新しいブックを名前を付けて保存
ActiveWorkbook.SaveAs Filename:="aiueo.xlsx"
End Sub
アクティブブックをフォルダを指定して名前を付けて保存をする場合は次のように書きます。
Sub test()
'新しいブックを作成
Workbooks.Add
'新しいブックを名前を付けて保存
ActiveWorkbook.SaveAs Filename:="C:\Users\admin\Desktop\aiueo.xlsx"
End Sub
別名で保存
ブック名を指名したブックを別名で保存する場合は次のように書きます。
Sub test()
Workbooks("aiueo.xlsx").SaveAs Filename:="kakikukeko.xlsx"
End Sub
上書き保存
アクティブなブックを上書き保存をする場合は次のように書きます。
Sub test()
ActiveWorkbook.Save
End Sub
「SaveAs」「Save」構文
名前を付けて保存
ブックへの変更を別のファイルに保存します。
Workbookオブジェクト.SaveAs (FileName, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, AccessMode, ConflictResolution, AddToMru, TextCodepage, TextVisualLayout, Local)
FileName = 省略可能。保存するファイルの名前を指定。完全パスを含めない場合はカレントディレクトリに保存されます。
FileFormat = 省略可能。ファイルを保存するときのファイル形式。
Password = オプション。15文字以内のパスワードを指定できます。大文字と小文字が区別されます。
WriteResPassword = オプション。書き込みパスワードを指定できます。
ReadOnlyRecommended = 省略可能。ファイルを開くとき、ファイルを読み取り専用として開くようメッセージを表示するには、Trueを指定します。
CreateBackup = 省略可能。バックアップファイルを作成するには、Trueを指定します。
AccessMode = 省略可能。ブックのアクセス モードを指定します。
ConflictResolution = 省略可能。ブックの保存中にメソッドが競合を解決する方法を決定する XlSaveConflictResolution値。xlUserResolutionを指定すると、競合を解決するためのダイアログ ボックスが表示されます。
AddToMru = オプション。最近使用したファイルの一覧にブックを追加するには、Trueを指定します。既定値はFalseです。
TextCodepage = 省略可能。Microsoft Excelのすべての言語で無視されます。
TextVisualLayout = 省略可能。Microsoft Excelのすべての言語で無視されます。
Local = オプション。Excel の言語設定 (コントロール パネルの設定を含む) に合わせてファイルを保存するには、Trueを指定します。False(既定値) は、Visual Basic for Applications (VBA)の言語に対してファイルを保存します。
上書き保存
指定されたブックへの変更を保存します。
Workbookオブジェクト.Save
こんな記事も書いています