Guten Morgen liebe Excel Gemeinschaft
Leider komme ich mit meinem Projekt wieder ins straucheln.
Folgendes ..
Mit diesem Makro lese ich eine Text Datei ein.
Sub VerCatMan()
Cells(33, 16) = " Datei Selektieren "
ActiveWorkbook.RefreshAll
Cells(33, 16) = " "
Soweit so gut, Daten können verarbeitet werden.
Jetzt möchte ich aber während der Ausführung den Namen und die Größe usw.
der Text Datei in mehreren Zellen Schreiben. Die Text Datei wird alle 30 sec Aktualisiert
und nimmt an Größe zu.
Dieses Makro habe ich im Web gefunden.
Dim twb As Workbook
Dim objFSO As Object
Dim objFile As Object
Dim str As String
Set twb = ThisWorkbook
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(twb.Path & "\" & twb.Name)
With Sheets("Tabelle1")
.Range("AD1") = "Erstellt am: " & objFile.DateCreated
.Range("AD2") = "Letzter Zugriff: " & objFile.DateLastAccessed
.Range("AD3") = "Zuletzt geändert: " & objFile.DateLastModified
.Range("AD4") = "Dateiname: " & objFile.Name
End With
Wie kann ich Excel dazu bringen meine Text Datei auszulesen. Denn mit diesem Makro zeigt er mir nur die Aktuelle Excel Datei an. Wichtig ist für mich, dass er den Pfad zu der Text Datei erkennt.
Grüsse Luzi67