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”

的视图

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

2 个答案: