SaveAsメソッドを使ったファイル保存方法を徹底解説！

SaveAsメソッドを使ったファイル保存方法を徹底解説！
参照元：https://www.sejuku.net/blog/67491

名前を付けて保存するサンプル：

Sub TestSave1()
  'ファイル名作成
  Dim strFileName As String
  strFileName = "請求書_" & Format(Now, "yyyymmddhhmmssms") & ".xlsm"

  'ファイルパス指定
  Dim strFilePath As String
  strFilePath = ThisWorkbook.Path & "" & strFileName

  'ファイル保存
  ThisWorkbook.SaveAs Filename:=strFilePath, _
                      FileFormat:=xlOpenXMLWorkbookMacroEnabled

  '完了メッセージ
  MsgBox "ファイルの保存が完了しました" & vbCrLf & _
         "保存先は" & strFilePath & "です。"

End Sub

ファイルを上書きするサンプル：

Sub TestSave2()
  'ファイル名作成
  Dim strFileName As String
  strFileName = "請求書.xlsm"

  'ファイルパス指定
  Dim strFilePath As String
  strFilePath = ThisWorkbook.Path & "" & strFileName

  'ファイル保存
  Application.DisplayAlerts = False '警告メッセージ非表示
  ThisWorkbook.SaveAs Filename:=strFilePath, _
                      FileFormat:=xlOpenXMLWorkbookMacroEnabled
  Application.DisplayAlerts = True  '警告メッセージ非表示解除

  '完了メッセージ
  MsgBox "ファイルの保存が完了しました" & vbCrLf & _
         "保存先は" & strFilePath & "です。"

End Sub