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

Forumthread: TXT-Dateien in Excel auslesen

TXT-Dateien in Excel auslesen
18.01.2005 10:34:49
Sebastian
Seid gegrüßt.
Ich habe folgendes Problem und würde mich freuen, wenn mir jemand helfen könnte.
Problem:
Also, ich möchte gern mit Hilfe eines Macros eine TXT-Datei in Exel auslesen. Dabei soll man die Datei mit
Hilfe des Öffnen Dialogs auswählen können.
Damit ihr eine Vorstellung habt wie die Datei aussieht, hier ein Beispiel:
Name Vorname Ort
Name1 Vorname1 Ort1
Name2 Vorname2 Ort2
Name3 Vorname3 Ort3
Dabei wäre es schön, wenn die einzelnen Spalten in der TXT-Datei, auch einzelne Spalten in Excel wären.
Wär klasse, wenn mir jemand mit einem Macro weiterhelfen könnte.
Schon mal Danke im Voraus.
Gruß Sebastian
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: TXT-Dateien in Excel auslesen
18.01.2005 10:46:21
Josef
Hallo Sebastian!
Probier mal das:


Sub txtImport()
'by Josef Ehrensberger
Dim myFile As String, strTemp As String
Dim lRow As Long
lRow = 1
myFile = Application.GetOpenFilename(
"Text Dateien (*.txt; *.csv)," & _
"*.txt; *.csv")
    
If myFile = "Falsch" Then Exit Sub
'Import der Datei
Open myFile For Input As #1
   
Do While Not EOF(1)
      
Input #1, strTemp
      Cells(lRow, 1) = strTemp
      lRow = lRow + 1
   
Loop
Close #1
Columns(
"A:A").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
   TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=
False, Tab:=True, _
   Semicolon:=
True, Comma:=False, Space:=False, Other:=True, OtherChar _
   :=
" ", FieldInfo:=Array(Array(1, 1))
Columns.AutoFit
End Sub 
Anzeige
AW: TXT-Dateien in Excel auslesen
Sebastian
Vielen Dank für die schnelle Hilfe!
Funktioniert Super!
Danke!
;

Forumthreads zu verwandten Themen

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