Automatisch neueste Datei erkennen
27.03.2018 18:46:28
Oliver
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
Anzeige