Spalten Inhalt min VBA in .txt copieren
10.08.2015 14:11:09
Beat
Mit diesem code copiere ich den Spalten Inhalt in eine text datei.
das funktioniert auf meinem rechner Einwandfrei da ich BEZI bin.
Private Sub CommandButton1_Click()
Dim cnt, sInhalt, sDatei As String, lMaxZeile As Long, iFile As Integer
sDatei = "c:\Users\bezi\Desktop\GIFT.txt"
lMaxZeile = 100
iFile = FreeFile
Open sDatei For Output As iFile
For cnt = 1 To lMaxZeile
sInhalt = Sheets("DE").Cells(cnt, 56).Value
Print #iFile, sInhalt
Next cnt
Close iFile
End Sub
Oder wie müsste ich den code erweitern um eine .txt datei zu erstellen, den Spalten Inhalt hinein zu kopieren und diese Datei dann an einem gewünschten Speickerort und gewünschtem Namen zu sichern?
Freue mich auf jede Antwort.
herzlich
beat
Anzeige