Hallo Karl-Heinz
Sorry, bin auch nicht jeden Tag im Forum.
Ich habe mit dem Script noch ein Problem das ich nicht hinbekomme.
Da in dem geschlossenen Ordner (in dem die Tabellen ausgelesen werden) Tabellen mit der Bezeichnung Tabelle1 und andere mit Feuil1 abgelegt werden, kann man den Bezug zur Tabelle1 auch allgemein definieren. Dann ist es nämlich egal ob und wie in irgend einer Sprache die Tabelle abgelegt ist.
Set oFS = CreateObject("Scripting.FileSystemObject")
For Each oDatei In oFS.GetFolder(sDateiPfad).Files
If InStrRev(oDatei.name, "xlsx") Then
sBlatt = "Tabelle1"
oMe.Cells(iZeile, 2) = GetValue(sDateiPfad, oDatei.name, sBlatt, Range("B4"))
oMe.Cells(iZeile, 3) = GetValue(sDateiPfad, oDatei.name, sBlatt, Range("B12"))
|