Ich habe ein Problem um von eine Excel Datei ein Text Datei zu machen
Ich habe schon im Forum durchsucht und finde einfach die lösung nicht
Mit diese Code komme ich fast zurecht aber die letzten zeilen der Excel Datei finde ich nicht in die Text Datei zurück.
Public Sub Save_TxT_File()
Application.DisplayAlerts = False
'___Das aktuelle Blatt als TXT Datei abspeichern
'___Modifizierter Code von Herber - 19198
Dim bereich As Range
Dim iRow As Long, iCol As Integer
Dim Zeilen As Long, Spalten As Integer
Dim sTxt As String
Dim Verzeichnis As String
Dim Datei As String
Verzeichnis = ActiveWorkbook.Path & "\"
Datei = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & ".txt"
'___Zieldatei befüllen
On Error GoTo ErrorHandler
Close
Open Verzeichnis & Datei For Output As #1
On Error GoTo 0
Set bereich = Range("A1").CurrentRegion
Spalten = Intersect(bereich.SpecialCells(xlVisible), bereich.Rows(1)).Count
Zeilen = Intersect(bereich.SpecialCells(xlVisible), bereich.Columns(1)).Count
For iRow = 1 To Zeilen
For iCol = 1 To Spalten
sTxt = sTxt & Cells(iRow, iCol).Value & " "
Next iCol
'___letztes Trennzeichen entfernen
sTxt = Left(sTxt, Len(sTxt) - 1)
Print #1, sTxt
sTxt = ""
Next iRow
'MsgBox "Die Datei " & Datei & " wurde im gleichen Verzeichnis erstellt!"
'End
ActiveWorkbook.Close
ErrorHandler:
Application.DisplayAlerts = True
End Sub
Ich verstehe auch nicht warum
Hat jemand eine Idee ?
Danke für eure hilfe
Frank