Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon ghoul-xtc vom 10.11.2021, 08:47 Options

VBA: Datei *.alp mit letztem Erstellungsdatum öffnen

Hallo, ich suche nach einer Möglichkeit, die zuletzt erstellte Datei (Änderungs- oder Erstellungsdatum) aus einem Ordner mit einer bestimmten Dateiendung zu öffnen.

Ein anderes Programm exportiert eine Semikolongetrennte CSV Datei als .alp Datei, wobei der Name vor der Endung immer unterschiedlich ist. Das Makro soll immer die neuste Datei öffnen.

schonmal Danke

Antwort schreiben

Antwort 1 von Beverly vom 10.11.2021, 10:41 OptionsLösung

Hi,

der folgende Code funktionert allerdings nicht in Excel2007, da es dort den Befehl Application.FileSearch nicht mehr gibt:

Sub DateiLetztesSpeicherdatum()
    Application.ScreenUpdating = False
    With Application.FileSearch
        .LookIn = "C:\Test\"
        .Filename = "*.xls"
        ' ************von Bodo Schäfer
        If .Execute(msoSortByLastModified, msoSortOrderDescending) > 0 Then
        '***********************************
            Workbooks.Open "C:\Test\" & Mid(.FoundFiles(1), InStrRev(.FoundFiles(1), "\") + 1)
        End If
    End With
    Application.ScreenUpdating = True
End Sub

Bis später,
Karin

Antwort 2 von Yossarian vom 10.11.2021, 11:31 Options

Die Open-Zeile scheint mir etwas verkompliziert. Einfach nur

Workbooks.Open .FoundFiles(1)

sollte auch gehen.

Yossarian

Antwort 3 von Beverly vom 10.11.2021, 11:47 Options

Hi Yossarian,

ja, du hast Recht - den Code hatte ich ursprünglich dazu erstellt, die zuletzt gespeicherte Datei in einen anderen Pfad zu kopieren. Und in dem Fall muss der Dateiname vom Ursprungspfad abgetrennt werden. Beim Öffnen ist das natürlich nicht erforderlich.

Bis später,
Karin

Antwort 4 von ghoul-xtc vom 17.11.2021, 13:05 Options

Super, funktioniert, Danke!

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken