Excel VBAで簡単に新規ブックを保存！SaveAsメソッド完全ガイド

Excel VBAを使用して新規ブックを名前を付けて保存する方法を徹底解説します。

Excel VBAで新規ブックを名前を付けて保存する方法がわからないんですけど、どうすればいいですか？

SaveAsメソッドを使うと、新規ブックを簡単に名前を付けて保存できます。具体的な使い方を詳しく解説しましょう。

SaveAsメソッドとは？

SaveAsメソッドは、Microsoft ExcelのVisual Basic for Applications (VBA) において、ワークブックを新しい名前で保存するために使用されるプログラミング命令です。

このメソッドを利用することで、ユーザーはプログラム的にExcelファイルを任意の場所に、指定したフォーマットで保存することができます。特に新規に作成したワークブックや、既存のワークブックに大きな変更を加えた後に、新しい名前で保存したい場合に便利です。

SaveAsメソッドの基本的な使い方

Excel VBAでのSaveAsメソッドの使用は、ワークブックを新しい名前で保存したい時に非常に便利です。このメソッドを使うことで、開発者はプログラムを介してExcelファイルを任意の場所に、指定したフォーマットで簡単に保存できます。

以下は、SaveAsメソッドの基本的な使い方を説明します。

Workbook.SaveAs(Filename, [FileFormat], [Password], [WriteResPassword], [ReadOnlyRecommended], [CreateBackup], [AccessMode], [ConflictResolution], [AddToMru], [TextCodepage], [TextVisualLayout], [Local])

必須引数

• Filename: 保存するファイルの名前やパス。絶対パスまたは相対パスで指定します。

オプション引数

• FileFormat: ファイルの形式。Excelのバージョンに応じてサポートされる形式が異なります（例: xlOpenXMLWorkbook）。
• その他の引数は、セキュリティ設定や、ファイルの保存方法に関する細かなオプションを提供します。

基本的な使用例

新しいワークブックを作成し、特定の場所に特定のフォーマットで保存する例を見てみましょう。

Sub SaveNewWorkbook()
    Dim wb As Workbook
    Set wb = Workbooks.Add
    wb.SaveAs "C:\MyDocuments\MyWorkbook.xlsx", FileFormat:=xlOpenXMLWorkbook
    wb.Close False
End Sub

この例では、新しいワークブックを作成し、MyDocumentsフォルダにMyWorkbook.xlsxという名前で保存しています。

FileFormat:=xlOpenXMLWorkbookは、ファイルをExcelのデフォルト形式（.xlsx）で保存することを指定しています。最後に、wb.Close Falseでワークブックを保存後に閉じていますが、変更を保存せずに閉じる場合はTrueを使用します。

サンプルプログラムによる実践

Excel VBAのSaveAsメソッドを使用した具体的なサンプルプログラムを通じて、実践的な使い方を学びましょう。

以下に示すサンプルプログラムは、新規ワークブックを作成し、指定した場所に特定のフォーマットで保存する方法を示しています。

サンプルプログラム1: 新規ワークブックを保存

Sub SaveNewWorkbookExample()
    ' 新規ワークブックを作成
    Dim newWorkbook As Workbook
    Set newWorkbook = Workbooks.Add
    
    ' 新規ワークブックを指定したパスとファイル名で保存
    newWorkbook.SaveAs "C:\MyDocuments\NewWorkbook.xlsx", FileFormat:=xlOpenXMLWorkbook
    
    ' 保存後、新規ワークブックを閉じる
    newWorkbook.Close SaveChanges:=False
End Sub

このプログラムは、新規にワークブックを作成し、C:\MyDocumentsディレクトリにNewWorkbook.xlsxという名前で保存します。FileFormat:=xlOpenXMLWorkbookは、ワークブックをExcelの標準的な.xlsx形式で保存することを指定しています。保存後、SaveChanges:=Falseを指定してワークブックを閉じますが、この場合は既に保存しているため、変更を保存せずに閉じることができます。

サンプルプログラム2: マクロを含むワークブックを保存

マクロを含むワークブックを保存する場合は、ファイル形式をxlOpenXMLWorkbookMacroEnabledに設定する必要があります。以下はその例です。

Sub SaveMacroWorkbookExample()
    ' 新規ワークブックを作成
    Dim macroWorkbook As Workbook
    Set macroWorkbook = Workbooks.Add
    
    ' マクロを含むワークブックとして指定したパスとファイル名で保存
    macroWorkbook.SaveAs "C:\MyDocuments\MacroWorkbook.xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
    
    ' 保存後、ワークブックを閉じる
    macroWorkbook.Close SaveChanges:=False
End Sub

このプログラムでは、C:\MyDocumentsディレクトリにMacroWorkbook.xlsmという名前で新規ワークブックを保存しています。.xlsm拡張子とFileFormat:=xlOpenXMLWorkbookMacroEnabledを使用することで、マクロを含むExcelファイルを保存することができます。

まとめ

Excel VBAを使用して新規ブックを名前を付けて保存する方法を解説しました。

Excel VBAを使用した自動化は、日々の業務を効率化し、時間を節約する強力なツールです。

今回学んだSaveAsメソッドの使い方をマスターすることで、ファイル管理が格段に楽になります。

しかし、自動化を成功させるためには、正確なコードの記述だけでなく、適切なエラーハンドリングの実装も重要です。

プログラミングは練習が必要なスキルですので、小さなプロジェクトから始めて徐々に複雑なタスクに挑戦してみてください。