ich möchte den Inhalt einer Datei ohne Endung in eine Excel-Datei schreiben. Ich kann die Datei mit Wordpad öffnen und dann werden die Daten mit Zeilenumbruch, Absatz und Einrückungen angezeigt.
Ich habe jetzt mit diesem Code versucht, die Daten auszulesen:
Dim strFileName As String
Dim objFSO As Object, objFile As Object
strFileName = Dir$("\\Server\Verzeichnis\*_data", vbNormal)
If strFileName "" Then
Do
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(strFileName, 1)
Do Until objFile.AtEndOfStream
...
Die Testdatei hat 42 Zeilen, aber die Verarbeitung läuft nicht an, weil sofort AtEndOfStream=True ist.
Wie kann ich die Datei mit VBA auslesen?
Danke und Gruß
Uppe