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