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