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

Question

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

这里是我的查询：

SELECT Name FROM MyTable 

，我想在一个文本文件中的seprate行，从而具有每个名字。我如何在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”