使用 vba-MS Access 将查询结果导出到文本文件答案

【问题标题】：Exporting a query result into a text file using vba-MS Access使用 vba-MS Access 将查询结果导出到文本文件
【发布时间】：2013-06-20 19:27:07
【问题描述】：

我在 MS Access 2010 中有一个表格，我想将查询结果导出到一个文本文件中（用户指定了一个路径，这个文本文件应该保存在这个路径中）

这是我的查询：

SELECT Name FROM MyTable

并且我想在文本文件中将每个名称放在单独的行中。如何在 VBA 中做到这一点？

【问题讨论】：

标签： vba ms-access ms-access-2010

【解决方案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

【讨论】：

【解决方案2】：

您可以使用 DoCmd.TransferText 方法来完成。喜欢：

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

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

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

【讨论】：