ACCESSでテキストファイルを出力したい

質問

Function txt_file()
Open "a.txt" For Random As #1
Put #1, 1, "aaaaaaaaaaa"
Put #1, 2, "bbbbbbbbb"
Close #1
End Function
こんな感じでテキストファイルを出力したいのですが
上のコーディングを正確に直すアドバイスをしてもらうか
サンプルソースが乗っている、URLを
教えてください

回答No.1

o_chi_chi · ベストアンサー

下記でどうでしょう。
・ファイル番号はFreeFileを使うことをお勧めします
・ファイルはフルパスで指定しましょう。
---
Function txt_file()
Dim fn As Integer
fn = FreeFile
Open "c:\a.txt" For Output As #fn
Print #fn, "aaaa"
Print #fn, "bbbb"
Close #fn
End Function

お礼

ありがとうございました