Nur benutzte Zeilen in txt-Datei Exportiere
29.10.2006 21:56:09
bully
es ist noch nicht lange her, als ich aus den Archivbeiträgen untenstehende VBA-Programmierung herunter gelanden habe um die Zeilen meiner Excel-Datei in einer txt-Datei zu speichern. Das funktioniert fehlerfrei. Nur hat es in der txt-Datei dann ca. 200 leere Zeilen, was beim Ausdruck den Drucker zum Ausspucken von mehreren leeren Seiten veranlasst. Was muss ich ändern, damit ich in der txt-Datei keine Leerzeilen mehr habe?
Hier die Zeilen des VBA-Programms:
Option Explicit
Sub export()
Dim strSep As String, strDat As String, _
iCol As Byte, iRow As Integer, _
iR As Integer, iC As Byte, strTxt As String, _
strMldg As String
iRow = ActiveSheet.UsedRange.Rows.Count
iCol = ActiveSheet.UsedRange.Columns.Count
strSep = 9
If strSep = "" Then Exit Sub
If strSep = "9" Then
strSep = Chr(9)
Else
strSep = Left(Trim(strSep), 1)
End If
DateiName:
strDat = InputBox("Dateiname?", "DateiName", ThisWorkbook.Path & "\ABGM_______1148___" & Format(Now, "YYYYMMDDHHMMSS") & ".txt")
If strDat = "" Then Exit Sub
If InStr(strDat, ":\") = 0 Then
strDat = ThisWorkbook.Path & "\" & strDat
End If
If Dir(strDat) <> "" Then
strMldg = MsgBox("Datei bereits vorhanden. Überschreiben?", vbYesNo)
If strMldg = vbNo Then GoTo DateiName
End If
On Error GoTo DateiFehler
Open strDat For Output As #1
For iR = 1 To iRow
strTxt = ""
For iC = 1 To iCol
strTxt = strTxt & Cells(iR, iC) & strSep
Next iC
strTxt = Left(strTxt, Len(strTxt) - 1)
Print #1, strTxt
Next iR
Close #1
MsgBox ("Die Datei " & strDat & " wurde angelegt.")
Exit Sub
DateiFehler:
MsgBox ("Fehler in Dateinamen!")
Resume DateiName
End Sub
Vielen Dank für Lösungsvorschläge
bully