|
Satsukiと申します。
あちこち検索致しましたが、どうしても見つからないので、どなたかご教示頂けないでしょうか?
フォームで抽出したデータをCSVファイルとしてエクスポートしたいのですが、各データにダブルクオーテーションマーク””をつけないようにするにはどうしたらよいでしょうか?
後、もう一点は、アクセスファイルとは違うところにエクスポートするための設定方法がわかりません。
よろしくお願いいたします。
Dim rs As DAO.Recordset
Dim myfile As Integer
Set rs = Me.RecordsetClone
myfile = FreeFile
Open CurrentProject.Path & "\ファイル.txt" For Output As #myfile
rs.MoveFirst
Do Until rs.EOF
Write #myfile, rs.Fields("氏名&番号"), rs.Fields("活動状況"), rs.fields("コメント"), rs.Fields("備考")
rs.MoveNext
Loop
Close #myfile
Set rs = Nothing
MsgBox "処理終了"
|
|