Dateinamen nicht bekannt?
17.11.2008 12:51:00
Tino
Hallo,
hier mal eine Möglichkeit ohne die Datei zu öffnen,
der Tabellenname in den Dateien muss aber gleich sein, hier im Beispiel Tabelle1.
Getestet unter xl2007
Option Explicit
Sub Test()
Dim Fso, Ordner, varDatei
Dim DateiName As String
Dim i As Long
'ab welcher Zeile einfügen
i = 2
Set Fso = CreateObject("Scripting.FileSystemObject")
'hier Pfad angeben
Set Ordner = Fso.getfolder("J:\1 Forum")
'Schleife über alle Dateien im Ordner
For Each varDatei In Ordner.Files
If LCase(varDatei) Like "*.xlsm" Then
'Dateiname ausfiltern
DateiName = LCase(Right$(varDatei, Len(varDatei) - InStrRev(varDatei, "\")))
If IsNumeric(Replace(DateiName, ".xlsm", "")) Then
'Name der Datei schreiben ohne Extention
Cells(i, "A") = Replace(DateiName, ".xlsm", "")
'String Formel erstellen, Achtung hier ist der Tabellenname zu beachten, hier Tabelle1
DateiName = "'" & Replace(varDatei, DateiName, "[" & DateiName & "]Tabelle1'!" & Range("U4").Address(ReferenceStyle:=xlR1C1))
'schreibe Wert in Zelle
Cells(i, "B") = ExecuteExcel4Macro(DateiName)
'Zähler hochzählen für nächste Zeile
i = i + 1
End If
End If
Next varDatei
End Sub
Gruß Tino