csv nach xls funktioniert nicht
27.10.2004 16:22:07
Ralph
schönen guten Tag, nach mehrfachen Eigenversuchen scheint es doch an der Zeit zu sein, diese Frage an Sie als Experten hier zu richten.
Obwohl dieses Problem in ähnlicher Form schon mehrfach diskutiert wurde, so ist doch eine verwertbare Lösung mir leider noch nicht in die Hände gefallen.
Ich versuche lediglich eine *.csv Datei in eine *.xls Datei umzuwandeln, ohne manuelles öffnen und abspeichern als solches, versteht sich.
da meine csv Datei nur 2000 Zeilen hat, schien es mir recht einfach, doch hatte ich mich wohl verschätzt. Wenn man beigefügten Code ausführt so scheinen doch immer die Kommas der Zahlen, sowie das was dahintersteht einfach zu verschwinden. Ich bin mir auch ziemlich sicher, dass die csv Datei im wesentlichne anders aus sieht wenn ich sie manuell öffne, als wenn ich sie per Makro öffnen lasse.
Ich wäre für jeden Lösungsvorschlag hinsichtlich meines Problems sehr dankbar.
Ob nun Semikolon oder Commas auf True gesetzt werden, macht im wesentlichen keinen Unterschied, alles hinter dem Komma wird leider abgeschnitten.
Vielen Dank im Voraus!
Ralph
------------------------------------------------------------------------------
Sub csvtoxls()
Workbooks.OpenText Filename:= _
"C:\Documents and Settings\Administrator\My Documents\Program Files\SSP Main Valve\sspcontrol.csv", _
Origin:=932, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False,
Semicolon:=False, Comma:=False
Range(Cells(1, 1), Cells(2000, 1)).Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
End Sub
-------------------------------------------------------------------------------