Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
232to236
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
232to236
232to236
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

html Dateien importieren mit Dateinamen

html Dateien importieren mit Dateinamen
22.03.2003 10:50:34
KlausW
Hallo zusammen,

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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: html Dateien importieren mit Dateinamen
25.03.2003 10:54:37
Klaus

ist gelöst

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige