ファイル書き出しサンプル
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