使用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