ich habe ein kleines Problem.
Ich lese mit folgendem Code eine Logdatei von einem Server ein. Die Logdatei hat immer das gleiche Namen, nur die Dateiendung ändert sich. Diese Endung besteht aus dem entsprechendem Datum. Beispiel Logfile.20160621 (JJJJMMDD)
Das funktioniert alles Prima. Nun möchte ich aber Mehrere Dateien auf einmal einlesen. D.h. ich möchte das Startdatum und das Enddatum auswählen und dann alle Dateien in diesem Bereich einlesen.Diese sollen dann im Blatt Daten untereinander geschrieben werden.Kann mit hier jemand helfen?
Sub Import()
'Variablen dimensionieren
Dim iRow As Integer, iCol As Integer
Dim sFile As String, sTxt As String
Dim vntTmp As Variant
Dim Datum As String
Dim jahr As String
Dim monat As String
Dim tag As String
Dim Strformat As String
'Werte im Blatt "Daten" vor dem einfügen neuer Daten löschen
Worksheets("Daten").Range("C1:DW1441").ClearContents
'Variable Datum mit Wert aus DTPicker1 Steuerelement belegen
Datum = Me.DTPicker1.Value
'Dialog Datumseingabe schliesen
Unload frmDatum
'aus Variable Datum ein Datum im Datformat JJJJMMDD umwandeln für Dateinamen
jahr = Right(Datum, 4)
monat = Mid(Datum, 4, 2)
tag = Left(Datum, 2)
Datformat = jahr & monat & tag
'Dateipfad mit Dateinamen und Dateiendung verknüpfen
sFile = "\\Server\logfiles\log\wfm_tag.log." & Datformat
'Fehlerroutine wenn Datei nicht gefunden
If Dir(sFile) = "" Then
Beep
Unload frmDatum
MsgBox "Datei wurde nicht gefunden!"
Exit Sub
End If
'Zielzelle zum einfügen auswählen
iRow = 1
iCol = 3
'Import routine
Open sFile For Input As #1
Do Until EOF(1)
Line Input #1, sTxt
sTxt = Replace(sTxt, ",", ".")
vntTmp = Split(sTxt, ";")
vntTmp = Application.Transpose(Application.Transpose(vntTmp))
Worksheets("Daten").Cells(iRow, iCol).Resize(1, UBound(vntTmp, 1)) = vntTmp
iRow = iRow + 1
Loop
Close #1
End Sub