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

Answer 2

你用 DoCmd.TransferText 方法来做。像：

DoCmd.TransferText acExportDelim,"mySpecification","myView","C:\DATA\myfile.csv",True

首先，您手动执行一次，然后保存规范（您决定导出哪些列、类型等）。

MyView 是您创建为“SELECT Name FROM myTable”的视图