title image


Smiley Re: wordstrings in eine excel tabelle uebernehmen
Folgendes habe ich mir mal aus Spotlight ausgedruckt.

Ich denke der Absatz "Datensatz anhängen" könnte das sein, was du brauchst.



Sub TestB()

Close

'Überschreiben

Open "D:\Vorgang.txt" For Output As #1



'Datensätze werden angehängt, nicht überschrieben

'Open "D:\Vorgang.txt" For Append As #1



For i = 1 To 4

Print #1, "Vorgang" & i & ".txt"

Next i

Close #1



'Datensatz anhängen

Open "D:\Vorgang.txt" For Append as #1

Print #1, "Vorgang5.txt"

Close #1



'Lesen

Open "D:\Vorgang.txt" For Input As #1

While Not EOF(1)

Line Input #1, sText

Selection.TypeText Text=SText & vbCrLf

'MsgBox sText

Wend

Close #1



End Sub



Gruß Anke

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: