Zellen aus Excel in Textdokument schreiben
28.06.2004 18:35:38
Andre
ich habe mit folgendem Code über einen Commandbutton versucht eine Zelle in ein txt-Dokument zu schreiben. Funktioniert ja auch soweit ganz gut. Wenn ich aber den Button das zweite Mal dücke, um den neuen Inhalt der Zelle unter den alten Inhalt im Txt-File zu schreiben, dann klappt es nicht mehr. Er überschreibt mir dabei immer die alte Zeile im Textdokument. Seht ihr ne Möglichkeit wie ich das umgehen kann? Ich danke euch für Eure Hilfe.
Gruß André
P.S. Der Code:
Sub DateiErzeugenUndWerteInDateiSchreiben()
Dim fs As Object, a As Object
'Datei "Test.txt" in H:\ erzeugen
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("H:\Andre\Test.txt", True)
a.Close
' Datei öffnen.
Open "H:\Andre\Test.txt" For Append As #1
Write #1, Range("B25")
' Datei schließen.
Close #1
End Sub
Anzeige