vba - vba-MS Access を使用してクエリ結果をテキスト ファイルにエクスポートする

Question

MS Access 2010 にテーブルがあり、クエリの結果をテキスト ファイルにエクスポートしたい (ユーザーがパスを指定し、このテキスト ファイルをこのパスに保存する必要がある)

ここに私のクエリがあります:

SELECT Name FROM MyTable

テキストファイルの別々の行にそれぞれの名前を入れたいと思います。VBAでそれを行うにはどうすればよいですか？

Answer 1

この特定のケースでは、最も簡単なアプローチは次のようになります。

Sub ExportToText()
Dim rst As DAO.Recordset
Open "C:\__tmp\names.txt" For Output As #1
Set rst = CurrentDb.OpenRecordset("SELECT [Name] FROM MyTable", dbOpenSnapshot)
Do While Not rst.EOF
    Print #1, rst!Name
    rst.MoveNext
Loop
rst.Close
Set rst = Nothing
Close #1
End Sub