Indhold af Tekstbox til fil

Prøv lige det her. Jeg er lidt usikker på det der html.

Sub m2()
Dim v
ActiveSheet.Shapes("Text Box 2").Select
v = Selection.Characters.Text
Open "c:\fil.html" For Output As #1
Print #1, v
Close #1
End Sub

Okay, jeg har skrevet dette ind. Det eneste der sker nå jeg kører koden er, at Excel lukker ned (uden at spørge "Er du siker..." og uden at generere fejl).
Btw - jeg har excel 97

Sub HTMLToFile()
Dim TxtOutput As String

ActiveSheet.Shapes(Ark3.txtHTML).Select
TxtOutput = Selection.Characters.Text
Open "c:\test.txt" For Output As #1
Print #1, TxtOutput
Close #1

End Sub

Nå - jeg prøvede den måske mest åbenlyse løsning.

TxtOutput = "TextBox".text
...
print #1, TxtOutput
...

Er det en textbox på en UserForm ?

Prøv lige det her. Det der står i en textbox er ikke en streng men individuelle karakterer, derfor missede første forsøg

Sub Macro1()
On Error Resume Next
Dim Streng As String
Dim AntalKar As Long
ActiveSheet.Shapes("Text Box 2").Select
AntalKar = Selection.Characters.Count
For d = 1 To AntalKar
Streng = Streng & String(1, Selection.Characters(d).Text)
Next
Open "c:\fil.html" For Output As #1
  Print #1, Streng
Close #1
End Sub

Det jeg mente (men vist ikke skrev så klart) var, at :

txtOutput = "Textbox".text fylder txtOutput op med teksten fra txtboxen.

Så jeg har løst problemet.

Du får nu alligevel points'ne ;-)

Tak for det brobaek.