nochmal Zelle in Textdatei speichern

Sub Textdatei()
'
' Textdatei Makro
'
' Tastenkombination: Strg+q
'

Dim fs As Object, a As Object
' Datei "Test.htm" in C:\Windows\Desktop\Homepage\ erzeugen
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("C:\Windows\Desktop\Homepage\test.htm", True)
a.Close

' Datei öffnen.
Open "C:\Windows\Desktop\Homepage\test.htm" For Output As #1

Write #1, Range("A1")



' Datei schließen.
Close #1

End Sub

Das blöde daran ist jetzt nur, daß Excel beim Schreiben in die Textdatei immer vorne und hinten Hochkommata einfügt.
Wenn also in Zelle A1 das Wort oder die Zeichenkette GUTEN TAG steht, speichert er in der Textdatei "GUTEN TAG". Außerdem setzt Excel hinter ein Hochkomma noch ein 2. Hochkoma!
Das soll da aber nicht hin, da das später HTML-Code werden soll.

Außerdem ist mir folgendes aufgefallen:
Wenn in Zelle A1 z.B. folgendes steht:

Re: nochmal Zelle in Textdatei speichern


Hallo Kai,
verwende an Stelle von Write #1, Range("A1") den Befehl Print #1, Range("A1")
Gruß
Nepumuk