【VBA】Excelファイルを新規作成する

VBAコード

ここでは例として、
　・ブックの新規作成
　・シート名を「sample」へ変更
　・セル「B2」に書き込み
　・デスクトップ配下にファイル「aiueo.xlsx」として保存
をします。
※新規作成する前に、既に同名ファイルが存在するかどうかの確認もします。

Option Explicit

Sub sample()

    Dim excelFilePath As String
    Dim sheetName As String
    Dim fso As Object
    Dim wb As Workbook
    Dim ws As Worksheet
    
    '画面更新を無効化
    Application.ScreenUpdating = False
    
    '作成するExcelファイルパス
    excelFilePath = "C:\Users\user\Desktop\aiueo.xlsx"
    'シート名
    sheetName = "sample"
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    'ファイルの存在確認
    If Not fso.FileExists(excelFilePath) Then
        'ブックを新規作成
        Set wb = Workbooks.Add
        'シート名を変更
        Set ws = wb.Sheets(1)
        ws.Name = sheetName
        'ブックのセル「B2」に書き込み
        ws.Range("B2") = "VBAから書き込みました。"
        'ブックを保存
        wb.SaveAs excelFilePath
        'ブックを閉じる
        wb.Close
        
        MsgBox "Excelファイルを新規作成しました。"
    Else
        MsgBox "同名ファイルが存在するため、作成を中止しました。"
    End If

    '画面更新を有効化
    Application.ScreenUpdating = True
    
End Sub

実行結果

Excelファイルを新規作成できました。
※デスクトップ配下にファイル「aiueo.xlsx」を作成できました。

参考①

テキストファイルの新規作成もできます。

詳細は以下の記事をご確認ください。

参考②

上記のVBAコードで使用した以下の詳細は、公式サイトをご確認ください。

●「Workbooks」オブジェクトの「Add」メソッド

●「Workbook」オブジェクトの「Sheets」プロパティ(=Sheetsコレクション)

●「Worksheet」オブジェクトの「Name」プロパティ

●「Worksheet」オブジェクトの「Range」プロパティ

●「Workbook」オブジェクトの「SaveAs」メソッド

●「Workbook」オブジェクトの「Close」メソッド