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"
))