Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
548to552
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
548to552
548to552
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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!

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige