ACCESSでCSVにエクスポートする際のエラー

質問

困ってしまったので質問します。
簡単な事なのかもしれませんがわかりません。

今、CSVファイルにアクセスのテーブルのデータを
吐き出す仕組をACCESS2000でモジュールを作って作成しています。
以下のプログラムを作ったのですが(抜粋)実行すると
「データベースまたはオブジェクトは読取専用なので、更新できません」
と表示されます。どこが間違っているのでしょうか。
分かりましたら教えて下さい。

<プログラム>
(既に存在するファイルへ出力。ファイルは
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objtext = objFSO.CreateTextFile(path1 & zan_month_1 & "\" & "sv" & Trim(bmn_code_2) & " .csv ", True))
で作成)

Set Q1 = db.CreateQueryDef("Q1", sql2)
(sql2にはSQL分が入っています)

(Q1はクエリの名前)
DoCmd.TransferText acExportDelim, , "Q1", path2, False, ""
この文でエラーが表示されます。

回答No.1

taseki

最も可能性があるのは、エラーメッセージどおり、

DoCmd.TransferText acExportDelim, , "Q1", path2, False, ""

の「path2」というファイルが、すでに存在していて開かれたままになっているのではないでしょうか？
また、objFSO.CreateTextFile のファイルとの関係はどうでしょう？

お礼

回答ありがとうございます。
path2が開かれたままのプログラムになっていました。
助かりました。ありがとうございました。