Hallo zusammen,

Ich versuche diverse Ordner voller Prüfberichte (.htm-Dateien) in eine Übersicht in Excel zu übertragen.

Dafür wähle ich das Ordnerverzeichnis aus, lese die enthaltenen Dateien aus und speichere deren Pfade in einem Array (filepaths()).

Wenn ich nun mit Workbooks.open(filepaths(i)) versuche die jeweiligen Dateien zu öffnen bekomme ich die Fehlermeldung, dass der Dateipfad nicht gefunden werden konnte.

Um zu überprüfen ob die Pfade im Array korrekt sind habe ich mir diese bereits als MsgBox vorab ausgeben lassen. Dabei stimmen jedoch alle zu 100% mit den Dateipfaden überein.

Die Funktion einzelne Dateien auszuwählen und deren Daten zu importieren habe ich bereits fertiggestellt und das funktioniert komischerweise. Es muss meiner Meinung nach also etwas mit dem Datenformat im Array zu tun haben. Habe hier schon filepaths() as string sowie auch als variant probiert. Leider ohne Erfolg.

Kann von euch jemand weiterhelfen?

Besten Dank und Gruß

Option Explicit

strDatPfad as string

Sub Folderimport()

    Dim i As Integer

    Call Ordnerauswahl

    Call GetFilenames

    'Erstellt Array mit Daten Pfaden als Inhalt

        For i = 1 To 1000

            Workbooks.Open (strDatPfad(i))

            Call Datenholen

                If strDatPfad(i + 1) = "" Then

                    End

                End If

        Next i

    Erase varDatPfad()

End Sub

Sub GetFilenames()

Dim fs As Object

Dim fVerz As Object

Dim fDatei As Object

Dim fdateien As Object

Dim i As Integer

i = 0

Set fs = CreateObject("scripting.FileSystemObject")

Set fVerz = fs.getFolder(strOrdner)

Set fdateien = fVerz.Files

    For Each fDatei In fdateien

        If fDatei.Name Like "*P.htm" Then

           strDatPfad(i) = fDatei.Path & vbLf

           MsgBox (strDatPfad(i))

           i = i + 1

        End If

    Next fDatei