Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Textdatei einlesen

Textdatei einlesen
Mandy
Hallo,
ich habe eine Textdatei (kommt aus einem anderen System) , die will ich per Makro in eine Excel einlesen.
Die Textdatei soll als :
GETRENNT (zeichen wie z.B. Kommas oder Tab....)
AUFEINANDERFOLGENDE TRENNZEICHEN ALS EIN ZEICHEN BEHANDELN
LEERZEICHEN
eingelesen werden.
Zumindest manuell (Datei / Öffnen...) funktioniert das.
Das Problem dabei: in der Textdatei soll die allererste Zeile nicht abgeändert werden. Erst ab der zweiten gestrichelten Linie, wo die Daten anfangen, soll das Splitten losgehen und Startzeile in der Excel ist Zeile 10
Hier ist mal die Textdatei:
https://www.herber.de/bbs/user/63599.txt
und so soll das Ergebnis in Excel aussehen:
https://www.herber.de/bbs/user/63600.xls
Hoffentlich versteht mich jemand, was ich will. Weis jemand, wie man das per Makro erledigen kann ? Hilfe wäre nett.
Danke
Mandy
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Textdatei einlesen, dann splitten
03.08.2009 16:08:29
Erich
Hi Mandy,
mit dem Makrorekorder hättest du (ungefähr) das rausbekommen können:

Option Explicit
Sub Makro1()
Workbooks.OpenText Filename:="F:\Exc\w-w-w\tmp\Mandy.txt", Origin:=xlMSDOS, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
TrailingMinusNumbers:=True
Range(Cells(2, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1)). _
TextToColumns Destination:=Range("A2"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=True, Other:=False, _
FieldInfo:=Array(Array(1, 1)), TrailingMinusNumbers:=True
Rows("1:9").Insert Shift:=xlDown
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
Danke Erich, supi :-) owT
04.08.2009 10:04:49
Mandy
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige