Re: print-Befehl
23.05.2003 23:57:45
Kai
Also ich hab den Code so gefunden:
-------------------------------------------------Sub Textdatei()
Dim fs As Object, a As Object
' Datei "Test.txt" in C:\Windows\Desktop\Homepage\ erzeugen
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("c:\Windows\Desktop\Homepage\Tabelle2.htm", True)
a.Close
' Datei öffnen.
Open "C:\Windows\Desktop\Homepage\Tabelle2.htm" For Output As #1
For i = 1 To 1000
Print #1, Cells(i, 2).Value
Next i
Close #1
End Sub
-------------------------------------------------
unten hab ich jetzt Deinen Code rein gepflanzt. Mit der Datei hab ich so eigentlich nix mehr vor, nur noch hochladen :-)
Würde es denn nicht reichen, wenn ich bei Open anfange und den oberen Code von DIM bis a.Close einfach weg lasse? Also funktionieren würde es. Den oberen Teil versteh ich nämlich auch nicht so ganz.. Anfänger halt. :-(
P.S.:
Open "C:\Pfad\Dateiname" for Output As #1
hatte ich doch nirgends geschrieben, oder?
Also ich schreib am besten mal mein komplettes Makro da hin. Wäre lieb, wenn du mir kurz sagen könntest, ob ich da noch viel dran ändern muß. Wie gesagt, ich will die Datei dann nur noch hochladen.. sonst nix.
-------------------------------------------------
Sub Buli_Textdatei()
'
' Buli_Textdatei Makro
'
' Tastenkombination: Strg+q
'
Sheets("H").Select
Open "C:\Windows\Desktop\Homepage\Tabelle2.htm" For Output As #1
For i = 1 To 1000
Print #1, Cells(i, 2).Value
Next i
Close #1
End Sub
-------------------------------------------------
ist das ok?
Gruß
Kai