ich habe ein Problem: Wie kann ich mehrere html-Dateien in Excel importieren, die sich in verschiedenen Unterverzeichnissen befinden, so das der Dateiname der ersten Datei in der Spalte1,Zeile1 der gesamte Inhalt von dieser Datei sich in Spalte2,Zeile1; der Dateiname der zweiten Datei in Spalte1,Zeile2 deren Inhalt in Spalte2,Zeile2 usw.
Ich habe hier schon ein Makro gefunden, das alle Unterverzeichnisse durchsucht und den Dateinamen als Tabellennamen und deren Inhalt als Inhalt von Spalte1,Zeile1 schreibt. Doch leider kann ich das nicht anpassen.
Das Makro ist:
Sub TextImport()
Dim arrFiles As Variant
Dim strPath As String
strPath = "C:\_in_ARBEIT\20021011_Belegexemplare\test_kurinfos_001\test\01"
Dim intCounter As Integer
arrFiles = FileArray(strPath, "*.html")
For intCounter = 1 To UBound(arrFiles)
Workbooks.Open strPath & arrFiles(intCounter)
ActiveWorkbook.Worksheets(1).Move _
before:=ThisWorkbook.Worksheets(1)
Next intCounter
End Sub
Function FileArray(strPath As String, strPattern As String)
Dim arrDateien()
Dim intCounter As Integer
Dim strDatei As String
If Right(strPath, 1) <> "\" Then strPath = strPath & "\"
strDatei = Dir(strPath & strPattern)
Do While strDatei <> ""
intCounter = intCounter + 1
ReDim Preserve arrDateien(1 To intCounter)
arrDateien(intCounter) = strDatei
strDatei = Dir()
Loop
FileArray = arrDateien
End Function
Vielen Dank in Vorraus.
Klaus