ファイル書き出しサンプル

Sub ファイル書き出し()
    Fname = Application.GetSaveAsFilename(initialfilename:="TEST", Filefilter:="txtファイル,*.txt")
    
    ' キャンセルされた場合は以降の処理は行なわない
    If StrConv(Fname, vbUpperCase) = "FALSE" Then Exit Sub
    
    '----------------------------------------------------'
    ' FreeFile値の取得(以降この値で入出力する)
    Dim intFF As Integer            ' FreeFile値
    intFF = FreeFile
    ' 指定ファイルをOPEN(出力モード)
    Open Fname For Output As #intFF
    
    ' ファイルに出力
    Print #intFF, "テスト書き出し"
    
    ' 指定ファイルをCLOSE
    Close #intFF
    '----------------------------------------------------'
End Sub