Mehrere Dateien eines Verzeichnisses mit Makro öffnen ...

03/09/2009 - 13:51 von Uli | Report spam
Hallo NG,

ich habe ein kleines Problem und hoffe ganz arg, dass mir jemad einen Tip
geben kann.

Ich einem gegebenen Verzeichnis sind eine Anzahl X Dateien (.xls) vorhanden.
Ich möchte diese X Dateien in einer Schleife öffnen, bearbeiten und wieder
schließen, ohne jedoch zu wissen, wie deren Name ist. Wie kann ich die X
Dateien nacheinander öffnen.

Über einen Tip wàre ich sehr dankbar!!!!

Beste Grüße
Uli
 

Lesen sie die antworten

#1 Andreas Killer
03/09/2009 - 14:12 | Warnen spam
Uli schrieb:

Ich einem gegebenen Verzeichnis sind eine Anzahl X Dateien (.xls) vorhanden.
Ich möchte diese X Dateien in einer Schleife öffnen, bearbeiten und wieder
schließen, ohne jedoch zu wissen, wie deren Name ist. Wie kann ich die X
Dateien nacheinander öffnen.


Option Compare Text

Sub Test()
'Dim fs As FileSystemObject, fo As Folder, f As File
Dim fs As Object, fo As Object, f As Object
Dim WB As Workbook
Set fs = CreateObject("Scripting.FileSystemObject")
Set fo = fs.GetFolder("c:\temp")
For Each f In fo.Files
If fs.GetExtensionName(f.Name) = "xls" Then
Set WB = Workbooks.Open(f.Name)
'Dein Code hier
WB.Close SaveChanges:=True
End If
Next
End Sub

Ähnliche fragen