Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
568to572
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
568to572
568to572
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Arbeitmappen in Ordnern

Arbeitmappen in Ordnern
16.02.2005 08:59:52
christian
Hallo zusammen,
ich habe in einen ordner mehrere xls-Arbeitsmappen aber nur eine CSV-Arbeitsmappe die allerdings nicht immer den selben dateinamen hat. Nun möchte ich über ein Makro daten aus dieser CSV-AM auslesen. Wie kann ich also nur diese CSV-datei öffnen deren dateiname ich nicht kenne?
mfg christian h

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Arbeitmappen in Ordnern
UweD
Hallo
dieses makro öffnet nacheinander ALLE csv Dateien in einem bestimmten Ordner.
Wenn nur eine da ist, dann eben nur diese eine.

Sub alle_Dateien_Verzeichnis()
Dim strPath$, strExt$, strFile$
strPath = "C:\Temp\" 'Pfad des Verzeichnisses ggf. anpassen
strExt = "*.csv"       'Dateiextension ggf. anpassen
If strPath = "" Then
Exit Sub
Else
strFile = Dir(strPath & strExt)
Do While Len(strFile) > 0
Workbooks.Open Filename:=strPath & strFile
'mach was damit
Workbooks(strFile).Close
strFile = Dir() ' nächste Datei
Loop
End If
End Sub

Gruß UweD
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige