Arbeitmappen in Ordnern

Bild

Betrifft: Arbeitmappen in Ordnern von: christian h
Geschrieben am: 16.02.2005 08:59:52

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

Bild


Betrifft: AW: Arbeitmappen in Ordnern von: UweD
Geschrieben am: 16.02.2005 09:13:58

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


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Arbeitmappen in Ordnern"