.OpenDataSource Datei nicht gefunden

  • Word

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von petaod.

    .OpenDataSource Datei nicht gefunden

    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