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

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

1 个答案: