LastModified und Einlesen!
01.02.2017 14:57:29
Nilo
kann mir hier jemand das Makro vervollständigen !?
Ich möchte immer die jüngste .txt Datei einlesen, wobei der Name
dann ja egal ist!?
Es liegen mehrere .txt im Ordner!!!
Das Einlesen selbst funzt ohne Probleme sofern ich in I1
einen Namen als Suchbegriff eintrage!!! Das soll ja wegfallen!!!
Danke schon mal im Voraus
MfG
Nilo
Sub lastmod()
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 = "\\Ordner\Ordner\Ordner\" 'UNC Pfad
StrTyp = "*.txt"
Dateiname = Dir(strVerzeichnis & StrTyp)
'hier beibt er stehen "falsche Anzahl an Argumenten etc." ?
Dateiname_neu = Dateiname
Zeit = FileDateTime(strVerzeichnis & Dateiname)
Do While Dateiname ""
If Zeit Sub Import()
Dim arr
Dim Datei
Dim fso
Dim L As Long
Dim Tmp As Variant
Dim vnt_Ausgabe As Variant
Dim i As Integer
Dim Str_String As String
Dim strDatei As String
strDatei = Sheets("Daten").Range("I1")
'hier soll geändert werden, es soll immer die Datei mit dem jüngsten "dateLastModified" _
eingelesen werden siehe oben "lastmod"?
Application.ScreenUpdating = False
With Sheets("Daten")
.Range("A2:G40000").ClearContents
End With
'txt auslesen
Set fso = CreateObject("Scripting.FilesystemObject")
Set Datei = fso.OpentextFile("\\Ordner\Ordner\Ordner" & "\" & strDatei & ".txt") 'Anpassen
Str_String = Datei.readall
Datei.Close
arr = Split(Str_String, vbCrLf)
ReDim vnt_Ausgabe(UBound(arr), 10)
For L = 0 To UBound(arr)
Tmp = Split(arr(L), "")
For i = 0 To UBound(Tmp)
vnt_Ausgabe(L, i) = Tmp(i)
Next
Next
'Ausgeben. Anpassen.
Sheets("Daten").Range("A2:A40000").ClearContents
Sheets("Daten").Range("A2").Resize(UBound(vnt_Ausgabe) + 1, UBound(vnt_Ausgabe, 2)) = _
vnt_Ausgabe
Application.ScreenUpdating = True
End Sub