Werte in txt-Dokument auslesen
24.06.2004 11:17:18
André
ich habe folgendes Problem. Ich möchte Werte aus einer bestimmten Zelle in ein .txt-Dokument schreiben. Dabei möchte ich das Makro mehrmals hintereinander ausführen, so dass die Werte jeweils untereinander geschrieben werden. Ich habe es mit folgenden Code versucht:
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 Output As #1
Write #1, Range("B25")
' Datei schließen.
Close #1
End Sub
Er schreibt mir zwar die Daten in den File, aber wenn ich das nochmal versuche, dann ersetzt er mir den vorherigen Wert. Was muss ich an diesem Code verändern? Außerdem macht schreibt er dann den Wert noch in Anführungszeichen. Kann ich das irgendwie umgehen?
Ich danke für eure Hilfe.
Gruß André
Anzeige