Создание VBA для перебора папки, содержащей файлы .txt с индексной информацией? - PullRequest
Новая
       102

Создание VBA для перебора папки, содержащей файлы .txt с индексной информацией?

0 голосов
/ 04 августа 2020

Я пытаюсь создать таблицу доступа, содержащую индексную информацию примерно для 548 000 изображений. В настоящее время индексная информация содержится примерно в 525 файлах .txt. Я обнаружил, что могу точно импортировать эту информацию в доступ через внешние данные -> импортировать новые данные. Файлы .txt имеют единообразный формат с именами столбцов в первой строке и соответствующими атрибутами, разделенными знаком «|». Я полагаю, что я прошу помочь создать макрос, который будет перебирать эту папку и импортировать каждый из этих файлов .txt в единую таблицу, которую я затем могу использовать для поиска соответствующего изображения. Вот VBA, который я раньше использовал для перебора папки с файлами .dbf. Как я могу использовать это для перебора файлов .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, а также путь к файлам изображений. Изображения находятся в разных подкаталогах. image1 image2

Любое понимание приветствуется! Заранее спасибо!

...