ms-access - 使用 VBA 将制表符分隔的文本导入 Access 表

Question

我正在尝试使用 VBA 将制表符分隔的 txt 文件导入到 Access 表中。在我的代码中，我想将其插入到尚未创建的表中。

这是我尝试做的。注意 - 我能够使用 CSV 来完成这项工作，并且不包括以下内容:DataType:=xlDelimited, Tab:=True

Sub InsertData()

    'import CSV into temp table
    DoCmd.TransferText TransferType:=acLinkDelim, TableName:="tbl_TEMP", _
    FileName:=FileNameVariable, HasFieldNames:=True, DataType:=xlDelimited, Tab:=True

End Sub

当我运行这个块时，我在 DataType:=xlDelimited, Tab:=True
上收到以下错误

Compile error: Named argument not found

我应该如何更改它以提取制表符分隔的 txt 文件，以便 txt 中的每一列在 Access 中都有自己的列？

Answer 1

正如您在有关该主题的其他文章中所见，确实没有通用的方法来导入制表符分隔的文本文件。我见过的所有其他解决方案都说您应该导入一次制表符分隔的文本文件，保存导入规范，然后对所有后续导入使用该导入规范。问题在于，如果您想导入不同的制表符分隔文件，则规范可能不匹配。

我发现通用的唯一方法(没有使用 FileSystemObject 、 Split(s, vbTab) 等“滚动你自己的”代码)是为所有 255 个可能的字段创建一个完全通用的规范并使用它。它需要一次性设置，如下所示:

从 Pastebin 复制 CSV 数据 here ，将其粘贴到您喜欢的文本编辑器中，并将其另存为 GenericTabSpecification.csv .

在 Excel 中打开该文件，选择所有 256 行和 4 列，然后按 Ctrl+C 进行复制。

在 Access 中，启动文本文件的导入向导并选择任何制表符分隔的文件。 (我们实际上不会导入它。)



当您到达向导的第一页时，单击“高级...”按钮。

在“导入规范”对话框中，验证设置(字段分隔符、文本限定符等)，然后单击“字段信息”网格的左上角，以便选择所有行:



按 Ctrl+V 将 Excel 中的数据粘贴到网格中。网格现在应该包含 255 行。



单击“另存为...”按钮并命名规范 GenericTabSpecification .完成后，取消向导。

现在我们可以使用这样的语句从 VBA 进行通用导入

DoCmd.TransferText _
        TransferType:=acImportDelim, _
        SpecificationName:="GenericTabSpecification", _
        TableName:="newTable", _
        FileName:="C:\Users\Gord\Desktop\foo.txt", _
        HasFieldNames:=False