Hey Leute,
ich habe folgendes Problem, ich habe ein VBA Skript welches mir die jüngste .CSV Datei aus dem Downloadordner zieht, welche dann letzendlich für den Serienbriefdruck verwendet werden soll. Funktioniert bis dahin auch ganz gut, nur leider wird ausschließlich das erste Element der CSV Datei gedruckt.
Würde mich freuen wenn mir jemand weiterhelfen könnte.
LG
Oliver
Public Sub search()
Dim StrDatei As String
Dim I As Integer
Dim StrTyp As String
Dim Dateiname As String
Dim Zeit As Date
strVerzeichnis = "C:\Users\Oli\Downloads\"
StrTyp = "*.csv"
Dateiname = Dir(strVerzeichnis & StrTyp)
Dateiname_neu = Dateiname
Zeit = 0
Do While Dateiname <> ""
If Zeit > FileDateTime(strVerzeichnis & Dateiname) Then
Zeit = FileDateTime(strVerzeichnis & Dateiname)
Dateiname_neu = Dateiname
End If
Dateiname = Dir
Loop
GesuchteDatei = strVerzeichnis & Dateiname_neu
Call import
End Sub
Public Sub import()
With ActiveDocument.MailMerge
.MainDocumentType = wdCatalog
.OpenDataSource Name:=GesuchteDatei, _
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 Schließen
End Sub
|