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

Öffne von CSV-Dateien

Öffne von CSV-Dateien
23.03.2006 10:21:24
CSV-Dateien
Hallo Ihr Excelperten,
ich habe ein Problem mit dem Öffnen von CSV-Dateien in Excel. Sind in diesen die Felder per TAB getrennt, packt Excel jeden Datensatz in eine Zelle mit dem kryptischen tab-Symbol (leeres Quadrat).
Ich benenne die Dateien daher vorher in *.txt um und erhalte dann den Import-Assistenten, kann dann als Trennzeichen TAB auswählen und die Datei wird korrekt importiert. Ist es nicht möglich, diesen Assistenten zu erzwingen, auch wenn die Datei die Endung csv hat.
Gruss Horst

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

Betreff
Datum
Anwender
Anzeige
AW: Öffne von CSV-Dateien
23.03.2006 10:30:04
CSV-Dateien
Hallo,
nein, kannst du nicht. Du kannst aber die CSV mit diesem Code einlesen:

Sub readCSV()
Dim strTxt As String, lngI As Long, myarr
Open "n:\test\daten.csv" For Input As #1    'Anpassen
lngI = 1
Do Until EOF(1)
Line Input #1, strTxt
myarr = Split(strTxt, vbTab)
Range(Cells(lngI, 1), Cells(lngI, UBound(myarr) + 1)) = myarr
lngI = lngI + 1
If lngI > 65536 Then
Sheets.Add after:=ActiveSheet
lngI = 1
End If
Loop
Close #1
End Sub

Gruß
Geist ist geil!
AW: Öffne von CSV-Dateien
23.03.2006 10:48:30
CSV-Dateien
Hallo u_,
danke für den Tipp. Dass ich das mit VBA hinkriege, war mir schon klar, ich hoffte nur, dass man das auch so einstellen kann.
Horst
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige