使用vba将访问表导出到文本文件

Question

我在MS-Access中有一个表。它只有两列：ID和Name。

我想只输出Name到一个文本文件。应该打开对话框，用户输入文本文件的名称，然后将名称保存在此文本文件中。在文本文件中，每个名称必须是在一个单独的行这样的：

aaa 
bbb 
ccc 
ddd 

我怎么能在VBA做这个工作？

Answer 1

我已经找到了，但问题是现在，我不能过滤器和运行时错误发生

Dim rst As DAO.Recordset 
Dim f As Object 
Dim strFile_Path As String 

Application.FileDialog(msoFileDialogSaveAs).Show 
strFile_Path = Application.FileDialog(msoFileDialogSaveAs).SelectedItems.Item(1) 


MsgBox strFile_Path 

Open strFile_Path For Output As #1 
Set rst = CurrentDb.OpenRecordset("SELECT Name FROM tb_lable_Daten", dbOpenSnapshot) 
Do While Not rst.EOF 
    Print #1, rst!name 
    rst.MoveNext 
Loop 
rst.Close 
Set rst = Nothing 
Close #1