Werte in Text Datei kopieren
09.08.2005 17:57:43
F
ich möchte bei betätigen eines Command Buttons,
Werte aus Feldern in ein Text File kopieren,
so das diese Werte untereinander stehen.
das habe ich so versucht:
Private Sub CommandButton2_Click()
Dim DruckStr As String
Dim name As Integer
name = Cells(7, 2)
DruckStr = Cells(2, 4)
DruckStr = Cells(3, 4)
DruckStr = Cells(4, 4)
Open ("c:\" & name & ".txt") For Output As 1
Print #1, DruckStr
Close #1
End Sub
Es wird auch eine Text Datei angelegt,
aber es steht in ihr nur die letzte Zeile (Cells(4, 4))
Was mache ich falsch?
Anzeige