title image


Smiley Textdatei einlesen?
habe leider nicht soviel Ahnung von VBA und brauche daher eure Hilfe.

Ich will mehrere Textdateien in eine Excel-Mappe einlesen.

Durch Suchen bin ich soweit gekommen, dass er mir die Dateien einliest. Jedoch liest er jede Zeile nur in die jeweils erste Zelle ein. Ich möchte aber, dass er nach einem Semikolon eine neue Zelle benutzt.

der jetzige Code sieht so aus

Sub Einlesen()

Set fs = CreateObject("Scripting.FileSystemObject")

Set f = fs.getfile("D:\**.txt")

Set ts = f.openastextstream

With ts

sTxtFile = .ReadAll

nZeilen = .Line

.Close

End With

Set ts = f.openastextstream

For i = 1 To nZeilen - 1

Zeile = ts.readline

Sheets("Tabelle1").Cells(i, 1).Value = Zeile

Next

End Sub

Benötige jetzt einen Eintrag der eben die eingelesene Zeile nach einem Semikolon(bzw. Leerzeichen auf die Zellen der Zeile aufteilt.



Bin für jeden Rat dankbar.

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: