Nur Zellen mit Inhalt in txt-Datei schreiben
26.04.2006 17:19:39
Seppl
Hab hier ein Script das die Zellen Q8-Q1000 einer Tabelle in eine txt-Datei schreibt.
Kann mann das script so ändern, dass vom Bereich Q8-Q1000 nur die Zellen mit Inhalt in die txt Datei geschrieben werden und die leeren Zellen nicht?
Hier das Script:
Sub Textdatei()
Dim fs As Object, a As Object
Dim Rec As Range, Datnr&, Outp$
Dim Dat As String
'Datei "S01800.xxxx.txt" in D:\Eigene Dateien\ erzeugen
Dat = "S01800." & Sheets("Vorlaufsatz").Range("G8").Text
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("D:\Eigene Dateien\" & Dat & ".txt", True)
a.Close
Datnr = FreeFile
Open "D:\Eigene Dateien\" & Dat & ".txt" For Output As #1
For Each Rec In Range("Q8:Q1000")
Outp = Rec.Text
Print #1, Outp
Outp = Empty
Next Rec
'Datei schließen.
Close #1
End Sub
Danke für eure Hilfe
Gruß
Sepp
Anzeige