【Excel】VBAマクロでファイル作成（xlsxやcsv、テキストファイル：txt：ダイヤログで名前指定：新規ファイル：新しいブック：Workbooks.Add、SaveAs、Application.GetSaveAsFilename、Close、CreateFolder、CreateTextFileなど）する方法

Sub sinkiexcelsakusei()
    ' 変数を定義します
    Dim sinkirenshuexcelwb As Workbook
    
    ' 新しいワークブックを作成します
    Set sinkirenshuexcelwb = Workbooks.Add
    
    ' 新しいワークブックを"renshu.xlsx"という名前で保存します
    sinkirenshuexcelwb.SaveAs Filename:="renshu.xlsx"
    
    ' 保存が完了したら、新しく作成したワークブックをアクティブにします
    sinkirenshuexcelwb.Activate
    
    MsgBox "新規のExcelファイル(renshu.xlsx)を作成しました。", vbInformation
End Sub

Sub sinkitxtsakusei()
    ' 変数を定義します
    Dim txtsakuseifolder As String
    Dim txtsakuseiname As Variant
    Dim sinkitxtstream As TextStream
    Dim sinkitxtfile As String
    
    ' C直下に"renshu"フォルダが存在しない場合は作成します
    txtsakuseifolder = "C:\renshu"
    If Dir(txtsakuseifolder, vbDirectory) = "" Then
        MkDir txtsakuseifolder
    End If
    
    ' ダイアログを表示して、新規作成するテキストファイルの名前を取得します
    txtsakuseiname = Application.GetSaveAsFilename(InitialFileName:="新規テキストファイル.txt", FileFilter:="テキストファイル(*.txt),*.txt", Title:="新規テキストファイルの保存")
    
    ' キャンセルボタンが押された場合は、処理を終了します
    If txtsakuseiname = False Then
        Exit Sub
    End If
    
    ' 新しいテキストファイルを作成し、テキストストリームを開きます
    sinkitxtfile = txtsakuseifolder & "\" & Dir(txtsakuseiname)
    Set sinkitxtstream = CreateObject("Scripting.FileSystemObject").CreateTextFile(sinkitxtfile)
    
    ' テキストファイルに書き込みます
    sinkitxtstream.WriteLine "これは新しく作成されたテキストファイルです。"
    
    ' テキストストリームを閉じ、オブジェクトを解放します
    sinkitxtstream.Close
    Set sinkitxtstream = Nothing
    
    MsgBox "新規のテキストファイルを作成しました。", vbInformation
End Sub