Anzeige
Archiv - Navigation
880to884
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
880to884
880to884
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
VBA CSV-Datei Öffnen
22.06.2007 12:43:00
Gilligan
Hallo Forumler,
ich möchte per VBA eine CSV-Datei öffnen (Semikolon getrennt), dann Werte herauslesen und anschließend wieder schließen. Habe es mit der:
Workbooks.Open Filename:=dateiname(i)
Methode versucht. Auch die Eigenschaften:
ReadOnly:=True, Format:=4
haben keine Abhilfe geschafen. Wenn ich die Datein mit Doppelklick aus dem Explorer öffne oder aus Excel, dann separiert er die Spalten. Mit dem Code nicht. Was mach ich verkehrt?
Danke für die Hilfe.

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA CSV-Datei Öffnen
22.06.2007 12:49:00
Rudi
Hallo,
benutze die OpenText-Methode.
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

AW: VBA CSV-Datei Öffnen
22.06.2007 12:57:00
Gilligan
Habe bereits folgendes probiert:
Workbooks.OpenText "c:\test\test.csv", _
DataType:=xlDelimited, Semicolon:=False, _
tab:=False, comma:=True, _
Space:=False, other:=False, otherchar:=False
geht aber auch nicht!

AW: VBA CSV-Datei Öffnen
22.06.2007 13:02:02
Rudi
Hallo,
kann auch nicht, wenn du Semicolon:=False setzt.
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

AW: VBA CSV-Datei Öffnen
22.06.2007 13:08:00
Gilligan
Hast Recht. Kopierfehler!
Folgendes geht aber nicht:
Workbooks.OpenText Filename:=dateiname(i), DataType:=xlDelimited, Semicolon:=True, Tab:=False, comma:=False, Space:=False, other:=False, otherchar:=False

Anzeige
AW: VBA CSV-Datei Öffnen
22.06.2007 13:35:00
Gilligan
Habe es mit einem Datenimport gelöst. Also eine leere Tabelle mit den Daten füllen und danach wieder löschen.
With Workbooks("Kraftdatenexport.xls").Sheets("Daten").QueryTables.Add(Connection:="TEXT;" & dateiname(i), _
Destination:=Range("A1"))
.Name = "Daten"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 1252
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Die Lösung der CSV-Öffnung würde mich trotzdem interessieren.

Anzeige
AW: VBA CSV-Datei Öffnen
22.06.2007 14:56:00
Rudi
Hallo,
VBA und CSV ist ein Thema für sich.
Prinzipiell kannst du es so machen:

Sub readCSV()
Dim strTxt As String, myarr, lngL As Long
Open "n:\test\daten.csv" For Input As #1
Do Until EOF(1)
Line Input #1, strTxt
myarr = Split(strTxt, ";")
Range(Cells(lngL, 1), Cells(lngL, UBound(myarr) + 1)) = myarr
lngL = lngL + 1
Loop
Close #1
End Sub


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

311 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige