「新規ブックを作って保存して閉じる」という操作、普段は手動で数クリック必要ですよね。
VBAならこれを一発自動化できます。ファイル量産や定期レポート出力に便利です。
基本構文:
Sub CreateAndSaveBook()
Dim wb As Workbook
Set wb = Workbooks.Add
wb.SaveAs Filename:="C:\Users\Public\Documents\NewReport.xlsx"
wb.Close
End Sub
ポイント:
・ Workbooks.Add … 新規ブックを作成
・ SaveAs … ファイル名を指定して保存
・Close … ブックを閉じる
応用として、日付をファイル名に埋め込む方法を紹介します。
wb.SaveAs "C:\Users\Public\Documents\Report_" & Format(Date, "yyyymmdd") & ".xlsx"



コメントを残す