Access 1レコードずつcsvで出力したい

Question

使用しているのはAccess2000です。
クエリのレコードを、1レコードずつcsvにエクスポートしたいのですが、マクロなどで自動的におこなうことはできないでしょうか？

例．
クエリ名：test
レコード数：100件
フィールド名：ファイル名
testクエリの1から100までのレコードを、1件ずつcsvへエクスポートする。保存する際は「ファイル名」を参照して、csvファイル名とする。100件分のこれらの作業をすべてマクロ等で自動化したい。

VBAの知識はほとんどありませんが、VBAによる回答でも構いません。

よろしくお願いいたします。

arare2005 · Accepted Answer

回答を間違っていましたm(_ _)m
テーブル（ＤＢ）とテキスト（ＣＳＶ）が、ごちゃまぜでした。
入力＝テーブルなので LINE INPUT は間違いでした。

色々やり方はあるのですが、ＤＢのアクセスする所が、初めてだと判り辛いと思いまして。。。（＾＾；
簡単に作ってテストしてみましたので、フォームのコマンドボタンのイベントに貼り付けて下さい。

(1)フォーム・コマンドボタン→イベント・クリック時「イベントプロシージャ」→下記、処理を貼り付け
(2)テーブル名、項目名などは、変更して下さい
(3)変更の必要な箇所は、※をコメントに入れています（念の為「※」で検索して下さい）

(4)ＶＢエディタ：ツール→参照設定→「Microsoft DAO 3.6 Object Library」
　にチェックが入っている事をご確認下さい
（ＤＢをＤＡＯで使用：標準でチェック済みとは思います）

(5)不明な箇所が有りましたら、連絡用にこの投稿を閉じないで、再度コメントを入れて下さいネ
　見ていれば、すぐに返事をいたしますので。。。（＾＾）
　メールも届くので多分気が付くと思います

(6)とりあえずデータは、ｍｄｂがあるフォルダの「\DAT」に作成する様にしています


Private Sub コマンド1_Click()
---　ここから　---

    Dim wCNN As Database                'データベース（テーブル）
    Dim wREC As Recordset               'レコード
    Dim wSQL As String                  'ＳＱＬ文等のワーク

    Dim I_CNT As Integer                'I/P COUNT
    Dim O_FNM As String                 'O/P FILE NAME
    
    'メッセージを表示
    wSQL = "仕入先→ＣＳＶファイル"     '※テーブル名
    wSQL = wSQL & vbCrLf & vbCrLf & "作成しますか？"
    
    If MsgBox(wSQL, vbYesNo + vbQuestion) = vbNo Then
        Exit Sub                        'いいえ-->終了
    End If
    
    'ＣＳＶ定義（保存先・ファイル名の設定）
    wSQL = Application.CurrentProject.Path & "\DAT\"
    
    On Error Resume Next                '念の為エラートラップ（削除時）
    
    If Dir(wSQL, vbDirectory) <> "" Then
        Call Kill(wSQL & "*.csv")       '前回分は全て削除-->ごみ箱へ
    Else
        Call MkDir(wSQL)                'フォルダ作成
    End If
    O_FNM = wSQL & "FILE_???.csv"       'ＣＳＶ出力先、???=あとで置換　※ファイル名
    
    On Error GoTo sCSV_OP_ERR           '念の為エラートラップ
    
    '接続
    Set wCNN = CurrentDb
    
    'テーブルを参照
    wSQL = "SELECT [仕入先コード], [仕入先名]"      '※[項目]数を増やす時
    wSQL = wSQL & " FROM [仕入先]"                  '※[テーブル名]
    
    Set wREC = wCNN.OpenRecordset(wSQL, dbOpenForwardOnly)
    
    '（メイン処理）ＤＢよりＣＳＶを作成する
    I_CNT = 0
    
    Do Until wREC.EOF                   '※条件があればここへ or XXX=???
        I_CNT = I_CNT + 1
                                        'FILE NAME
       'wSQL = Replace(O_FNM, "???", Format(wREC(0), "000"))    '編集あり
        wSQL = Replace(O_FNM, "???", wREC(0))                   '編集なし
                                        'CSV O/P
        Open wSQL For Output As #1
        Write #1, wREC(0), wREC(1)                  '※[項目]数を増やす時
        Close #1
        
        wREC.MoveNext                   '次レコードへ
    Loop
    
    '終了
    wREC.Close:     Set wREC = Nothing
    wCNN.Close:     Set wCNN = Nothing
    
    Call MsgBox(Format(I_CNT, "#,##0") & "件作成しました")
    
    Exit Sub

sCSV_OP_ERR:

    Call MsgBox("（エラー発生）sCSV_OP" & vbCrLf & vbCrLf & wSQL, vbExclamation)
    Call MsgBox(Err.Number & " " & Err.Description)
---　ここまで　---
End Sub

arare2005 · Answer

ちょっと良く判らないのですが、１件１ファイルでファイル名に連番をはりＣＳＶ保存でしょうか？

（ＶＢＡ．例）
入力＝LINE INPUT
出力＝WRITE、PRINT
繰返＝Do...Loop

あとはヘルプを参考にしながらモジュールを組んでみましょう。
詳細が判らないので、マクロで対応できる処理かは、お答えしかねます m(_ _)m

noname#82027 · Answer

ikdxさんこんにちは

ACCESS使用経験ありなので回答出来ると思ったら
マクロで自動になのですね。

もしかするとご存知かもしれませんが
ACCESS CLUBというサイトがあります。
そこで検索、質問してみたら如何でしょうか？

ACCESSで困ったときはほとんどこのサイトで解決致しましたので・・・

参考URL：http://www.accessclub.jp/

Access 1レコードずつcsvで出力したい

回答を間違っていましたm(_ _)m

ちょっと良く判らないのですが、１件１ファイルでファイル名に連番をはりＣＳＶ保存でしょうか？

この回答への補足

ikdxさんこんにちは

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング