.OpenDataSource Datei nicht gefunden
28.03.2018 20:16:35
Oliver
ich möchte mit diesem Script die neueste .csv Datei in einem Ordner in die Word Seriendruckfunktion einspielen, doch leider scheitert dieser Script bei dieser Funktion:
.OpenDataSource
Public strVerzeichnis, GesuchteDatei, Dateiname_neu As String
Public Sub DateiSearch()
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 = FileDateTime(strVerzeichnis & Dateiname)
Do While Dateiname ""
If Zeit