Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
844to848
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
844to848
844to848
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Import von Textdateien

Import von Textdateien
10.02.2007 17:52:15
Textdateien
Hallo Forum,
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Import von Textdateien
11.02.2007 09:24:42
Textdateien
Hi Peter
Versuch es mal so:
1. Makrorecorder starten
2. Datei/Öffnen auswählen und Filter für txt-Dateien setzen
3. Die erste txt-Datei auswählen und öffnen
4. Im jetzt sichtbaren Assistenten für Textdateien-Import deine Einstellungen treffen
5. Wenn Assistent fertig und Daten aus txt-Datei in Excel eingefügt, Makrorecorder beenden
Jetzt hast du den VBA-Code für EINE txt-Datei.
Du musst den Code nur noch für entweder 2 weitere txt-Dateien anpassen, oder den Cde so anpassen, dass er in einer Schleife alle 3 txt-Dateien abarbeitet.
Konnte ich helfen?
Ciao
Thorsten
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige