vba - 创建一个 VBA 来遍历包含带有索引信息的 .txt 文件的文件夹？

Question

我正在尝试创建一个包含大约 548,000 张图像的索引信息的访问表。目前，索引信息包含在大约 525 个 .txt 文件中。我发现我可以通过外部数据准确地将这些信息导入访问 -> 导入新数据。.txt 文件格式统一，第一行列名，各个属性用“|”分隔。我想我要的是帮助创建一个将遍历此文件夹的宏，并将这些 .txt 文件中的每一个导入到一个表中，然后我可以使用该表来搜索相应的图像。这是我以前用来遍历 .dbf 文件文件夹的 VBA。我如何使用它来遍历由“|”分隔的 .txt 文件

Option Compare Database

Private Sub ImportDBF()
On Error GoTo ErrHandler 'change to On Error GoTo ErrHandler if you want to see errors.

Dim oFSystem As Object
Dim oFolder As Object
Dim oFile As Object
Dim sFolderPath As String
Dim i As Integer

sFolderPath = "C:\Users\Juan Rodriguez\Desktop\Well data headers"

Set oFSystem = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSystem.getfolder(sFolderPath)

For Each oFile In oFolder.Files
    If Right(oFile.Name, 3) = "dbf" Then
        SQL = "INSERT INTO complete_db SELECT * FROM [" & oFile.Name & "]" _
            & " IN '" & sFolderPath & "'[dBASE IV;]"

    CurrentDb.Execute SQL
    End If
Next oFile

Exit Sub
ErrHandler:
MsgBox Err.Description

End Sub

我附上了一些图像，其中包含 .txt 文件的文件路径以及图像的文件路径。图像位于各种子目录中。图片1 图片2

非常感谢任何见解！先感谢您！

标签： vbadatabasems-accessautomation