in .txt speichern
30.05.2003 10:39:17
Hakan
es geht um diesen Code:
Sub AlsTextSpeichern()
exportfile = "C:\Test.txt"
Dateinummer = FreeFile
Set TB = ThisWorkbook.Worksheets("Tabelle1") ' das hier muss explizit angesprochen werden
Open exportfile For Output As #Dateinummer
For z = 1 To TB.UsedRange.Rows.Count ' kopiere ab Reihe 1
For s = 1 To TB.UsedRange.Columns.Count
tmp = tmp & CStr(TB.Cells(z, s).Text)
Next s
Print #Dateinummer, tmp
tmp = ""
Next z
Close #Dateinummer
End Sub
Hier wird der Tabelleninahlt immer in text.txt gespeichert, also bei jedem ausführen des Makros überschrieben. Das möchte ich aber nicht, ich will das ich die Möglichkeit habe den NAMEN.txt einzugeben! Ich freue mich über jeden Tipp!!!
MFG Hakan