Wohl eine einfache Kiste (wenn man es kann), aber ich bastel schon seit gestern rum und bekomme es nicht hin (Excel 2010, sollte aber nicht versionsabhängig sein.)
Vermutlich ganz einfach Aufgabe mit VBA
Ich habe 3 Worksheets.in einem Workbook
Das Worksheet "Input" soll gefüllt werden mit dem Inhalt einer csv-Datei z.B. Daten.csv.
Zunächst mit Line Input until EOF versucht, aber der Zeilentrenner ist nur ein LF und kein CRLF. Zeilenende wird nicht erkannt.
Aber die normale Öffnen-Funktiion von Excel geht
Die öffnet mir aber immer die CVS-Datei in neuem Workbook und nicht in meinem "Input"-Worksheet meines Workbooks in dem ich das Makro speicher.
Dieser Befehl wurde mit Makrorekorder aufgenommen, habe aber schon viel anderes probiert, was ich gegoogelt habe:
Workbook.OpenText Filename:= _
strFileName, Origin:=65001, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, Comma:=True, _
Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array( _
3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), Array(10 _
, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15, 1), Array(16, 1), _
Array(17, 1), Array(18, 1), Array(19, 1), Array(20, 1), Array(21, 1), Array(22, 1), Array( _
23, 1), Array(24, 1), Array(25, 1), Array(26, 1), Array(27, 1), Array(28, 1), Array(29, 1), _
Array(30, 1), Array(31, 1), Array(32, 1), Array(33, 1), Array(34, 1), Array(35, 1), Array( _
36, 1), Array(37, 1), Array(38, 1), Array(39, 1), Array(40, 1), Array(41, 1)), _
TrailingMinusNumbers:=True
Also:
1. Datei auswählen mit Maske *.csv
2. Datei öffnen mit Daten in Worksheet "Input"
Danke für Unterstützung.
Wenn ich das heute hinbekommen, gehe ich auch wählen. ;-)
Martin