Hallo Leute,
ich benutze ein Makro um die neueste .CSV Datei in meinem Download Ordner zu finden. Funktioniert auch alles super gut, doch leider funktioniert es dann nicht diese Datei mit der Seriendruckfunktion einzufügen, weil die Datei nicht gefunden werden kann, doch eigentlich ist der Pfad richtig angegeben in der Variable siehe Bild:
img2.picload.org/image/daiwddrr/unbenannt.jpg
Ganzer Code:
Public Sub DateiSearch()
Dim strVerzeichnis As String
Dim StrDatei As String
Dim I As Integer
Dim StrTyp As String
Dim Dateiname As String
Dim Dateiname_neu As String
Dim Zeit As Date
strVerzeichnis = "C:\Users\Oli\Downloads\"
StrTyp = "*.csv"
Dateiname = Dir(strVerzeichnis & StrTyp)
Dateiname_neu = Dateiname
Zeit = FileDateTime(strVerzeichnis & Dateiname)
Do While Dateiname <> ""
If Zeit < FileDateTime(strVerzeichnis & Dateiname) Then
Zeit = FileDateTime(strVerzeichnis & Dateiname)
Dateiname_neu = Dateiname
End If
Dateiname = Dir
Loop
MsgBox 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
End Sub
Freue mich auf eure Antworten
2fersen
ich benutze ein Makro um die neueste .CSV Datei in meinem Download Ordner zu finden. Funktioniert auch alles super gut, doch leider funktioniert es dann nicht diese Datei mit der Seriendruckfunktion einzufügen, weil die Datei nicht gefunden werden kann, doch eigentlich ist der Pfad richtig angegeben in der Variable siehe Bild:
img2.picload.org/image/daiwddrr/unbenannt.jpg
Ganzer Code:
Public Sub DateiSearch()
Dim strVerzeichnis As String
Dim StrDatei As String
Dim I As Integer
Dim StrTyp As String
Dim Dateiname As String
Dim Dateiname_neu As String
Dim Zeit As Date
strVerzeichnis = "C:\Users\Oli\Downloads\"
StrTyp = "*.csv"
Dateiname = Dir(strVerzeichnis & StrTyp)
Dateiname_neu = Dateiname
Zeit = FileDateTime(strVerzeichnis & Dateiname)
Do While Dateiname <> ""
If Zeit < FileDateTime(strVerzeichnis & Dateiname) Then
Zeit = FileDateTime(strVerzeichnis & Dateiname)
Dateiname_neu = Dateiname
End If
Dateiname = Dir
Loop
MsgBox 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
End Sub
Freue mich auf eure Antworten
2fersen