Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Automatisch neueste Datei erkennen


Betrifft: Automatisch neueste Datei erkennen von: Oliver
Geschrieben am: 27.03.2018 18:46:28

Hallo Leute,
ich hätte gerne, dass automatisch die neueste Datei die VersandAdressen.csv heißt erkannt wird. Es wäre praktisch das Ganze so auszubauen, dass wenn die Datei dann mal VersandAdressen(1).csv heißt auch erkannt wird.

Die Datei wird für diesen Script benötigt, welcher mit dieser gesuchten Datei den Seriendruck starten soll:

Public Sub import()

With ActiveDocument.MailMerge
 .MainDocumentType = wdCatalog
 .OpenDataSource Name:="C:\Users\Oli\Downloads\VersandAdressen.csv", _
 ReadOnly:=True, _
 Connection:="Sales"
End With

If ActiveDocument.MailMerge.State = wdMainAndDataSource Then
 ActiveDocument.MailMerge.Execute
End If

ActiveDocument.Application.WindowState = wdWindowStateMinimize
    If MsgBox("Serienbrief Drucken ?", vbYesNo + vbQuestion, _
        "Serienbrief-Erstellung - Drucken - Seitenvorschau") = vbYes Then
        ActiveDocument.Application.WindowState = wdWindowStateMaximize
savEnvAlert = Application.DisplayAlerts
savEnvBackground = Options.PrintBackground
Application.DisplayAlerts = wdAlertsNone
Options.PrintBackground = False
'ActiveDocument.PrintOut
Application.DisplayAlerts = savEnvAlert
Options.PrintBackground = savEnvBackground
    End If
    


Call Löschen


End Sub

Freue mich auf eure Antworten

  

Betrifft: AW: DOS von: Fennek
Geschrieben am: 27.03.2018 21:29:08

Hallo,

am einfachsten geht das mit dem alten DOS-Befehl "Dir", der Schalter für das Sortieren nach Zeit anbietet. Zum Einlesen: http://snb-vba.eu/VBA_Fill_combobox_listbox_en.html

insbesondere ab 2.1.2.

mfg


Beiträge aus dem Excel-Forum zum Thema "Automatisch neueste Datei erkennen"