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