Geöffnete csv-Dateien ermitteln

Hallo,
gibt es eine Möglichkeit aus meiner Arbeitsmappe, in welcher das Makro steckt, heraus zu ermitteln welche aktuell auf diesem Rechner geöffneten csv-Dateien es gibt?

Hintergrund ist, dass in dieser Arbeitsmappe das Makro gestartet wird und die zuletzt geöffnete csv-Datei als ActiveWorkbook gesetzt werden soll und das Makro darauf den VBA-Code anwenden soll.

Vielen Dank im Voraus !!!

Gruß
Torsten

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 205701

Url: https://administrator.de/forum/geoeffnete-csv-dateien-ermitteln-205701.html

Ausgedruckt am: 11.04.2025 um 06:04 Uhr

1 Kommentar

Hallo Torsten,
folgender Code sucht alle offenen CSV-Dateien und übergibt die Workbook-Objekte an ein Array. Dies kannst du dann mit einer Schleife durchlaufen um diverse "Dinge" damit anzustellen...

Dim wb As Workbook
Dim openworkbooks() As Workbook
counter = 0
For Each wb In Application.Workbooks
    If LCase(Right(wb.Name, 3)) = "csv" Then  
        counter = counter + 1
        ReDim Preserve openworkbooks(counter)
        Set openworkbooks(counter) = wb
    End If
Next

MsgBox "Anzahl der geöffneten CSV-Dateien: " & UBound(openworkbooks)  

For i = 1 To UBound(openworkbooks)
    MsgBox openworkbooks(i).Name
Next