Excel2003/2000 CSV Datei
26.11.2006 10:39:38
Walter
ich inportiere eine CSV Datei, in Excel2003 werden automatisch die Spalten aufgeteilt, ist soweit Super.
Allerdings brauch ich die Datei auch in Excel2000, hatte in Makro mal ablaufen lassen für das Aufteilen in in Spalten, anbei, brauch jetzt eine Abfrage wenn System Excel2003 dann nichts machen, sonst Makro durchführen.
Makro:
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=True, Comma:=False, 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)), TrailingMinusNumbers:=True
mfg walter