テキストファイルを作成して、データを書き込む

取得した値をメモ書きして外部出力するなどできる。


＜サンプル＞
Sub 外部へ出力()
    Dim FileName As String
   
    FileName = ThisWorkbook.Path & "\HTML_" & Format(Now, "YYYYMMDDHHmmSS") & ".txt"
   
    '変数FileN0にファイル番号0を代入
    Dim FileN0 As Integer
    FileN0 = FreeFile()
   
    'テキストファイル作成（ファイル番号0）
    Open FileName For Output As #FileN0
   
    'ファイルに文字"test"を書き込む
    Print #FileN0, "test"
    'テキストファイルとの接続をきる
    Close #FileN0
End Sub