ich habe dieses Makro von Herber zum Export von mehreren Tabellen in in 3 Textdateien gefunden.
Wie Import man diese Dateien in eine Excel Arbeitsmappe in 3 Arbeitsblätter?
Danke Peter
Option Explicit
Sub TextExport()
Dim rng As Range
Dim iWks As Integer, iRow As Integer, iCol As Integer
Dim sTxt As String, sPath As String
sPath = ThisWorkbook.Path & "\"
For iWks = 1 To Worksheets.Count
Open sPath & Worksheets(iWks).Name & ".txt" For Output As #1
Set rng = Worksheets(iWks).Range("A1").CurrentRegion
For iRow = 1 To rng.Rows.Count
For iCol = 1 To rng.Columns.Count
sTxt = sTxt & Worksheets(iWks).Cells(iRow, iCol).Value & vbTab
Next iCol
Print #1, Left(sTxt, Len(sTxt) - 1)
sTxt = ""
Next iRow
Close #1
Next iWks
MsgBox "Sie finden die Textdateien im Ordner " & Left(sPath, Len(sPath) - 1)
End Sub