【VBA】テキストファイルを新規作成する

VBAコード

ここでは例として、
　・デスクトップ配下にファイル「aiueo.txt」を新規作成して
　・文字列「hogehoge」と書き込み
をします。

Option Explicit

Sub sample()

    Dim fileFullPath As String
    Dim fileNo As Integer
    
    '作成するファイルパスを指定
    fileFullPath = "C:\Users\user\Desktop\aiueo.txt"

    '使用可能なファイル番号を取得
    fileNo = FreeFile
    
    'テキストファイルを開く(テキストファイルが存在しない場合は新規作成)
    Open fileFullPath For Output As #fileNo
    
    '書き込み ※改行あり
    Print #fileNo, "hogehoge"

    'テキストファイルを閉じる
    Close #fileNo
    
End Sub

実行結果

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

参考①

ログファイルを作成(＝ログを出力)することもできます。

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

参考②

フォルダを新規作成することもできます。

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

参考③

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

●Openステートメント

●Printステートメント

●Closeステートメント

●FreeFile関数