Hallo Leute,
ich habe es durch Eure Hilfe jetzt schon hin bekommen, wie ich den Inhalt von Excel Zellen in eine Text-Datei schreibe.
Nun sollte diese aber komplett leer sein, bevor dort reingeschrieben wird. Gibt es hier Jemanden, der mir den Code dafür schreiben könnte um die Text-Datei komplett von Daten leeren zu können?
Am besten wäre es natürlich, wenn vorab auch noch geprüft wird, ob die Datei denn überhaupt existiert und wenn nicht wird diese angelegt!
Hier mein bisheriger Code, den ich bereits getestet habe:
Leider bekomme ich es nicht selber hin... Besten Dank schonmal im Voraus!
ich habe es durch Eure Hilfe jetzt schon hin bekommen, wie ich den Inhalt von Excel Zellen in eine Text-Datei schreibe.
Nun sollte diese aber komplett leer sein, bevor dort reingeschrieben wird. Gibt es hier Jemanden, der mir den Code dafür schreiben könnte um die Text-Datei komplett von Daten leeren zu können?
Am besten wäre es natürlich, wenn vorab auch noch geprüft wird, ob die Datei denn überhaupt existiert und wenn nicht wird diese angelegt!
Hier mein bisheriger Code, den ich bereits getestet habe:
Quellcode
- Private Sub speichern()
- Dim f As Integer
- Dim c As Variant
- Dim DateiName As String
- f = FreeFile
- DateiName = "D:\Test\test.txt"
- On Error GoTo Fehler
- If Dir(DateiName) <> "" Then '*
- Open DateiName For Append As f '*
- Else '*
- Open DateiName For Output As f
- End If '*
- For Each c In Worksheets("Tabelle1").Range("S2:S30")
- Print #f, c.Value & c.Offset(0,1).Value
- Next
- Fehler:
- If Err.Number <> 0 Then
- MsgBox Err.Description, vbCritical + vbOKOnly, "Fehler:" & Err.Number
- Err.Clear
- End If
- Close f
- On Error GoTo 0
- End Sub
Leider bekomme ich es nicht selber hin... Besten Dank schonmal im Voraus!