Ich habe ca. 300 Dateien die fortlaufend nummeriert sind. Name(0), Name(1), Name(2) ... Sie liegen lokal auf meinem rechner.
Ich möchte sie per Makro in Excel importieren da das ganze per Hand zu aufwendig ist. Wenn ich das per Hand mache und ein Makro aufzeichne Sieht das so aus:
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;file:///C:/Dokumente%20und%20Einstellungen/Grisu/Eigene%20Dateien/test/Name(0).htm" _
, Destination:=Range("A1"))
.Name = "NAme(0)"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "4"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub
Wie kann ich jetzt das ganze gestallten das jede Datei nach der Reihenfolge 1- 300 in excel eingelesen wird und immer unter die vorhergehende geschrieben wird? Der Tabelleninhalt ist maximal 19 zeilen lang. Kann aber Variieren. Es währe schön wenn die nächste Tabelle ohne leerzeile an der vorhergehenden stehen würde muss aber nicht unbedingt sein. Kann auch alle x Zeilen die nächste Tabelle kommen.
Liebe Grüße und vielen Dank im Vorraus