zoals je ziet komt dit uit een door excel gemaakte macro en hier is het scheidingsteken |
'
Cells.Replace What:="],[", Replacement:="|", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
Selection.TextToColumns Destination := Range("J3"), DataType := xlDelimited, _
TextQualifier := xlDoubleQuote, ConsecutiveDelimiter := FALSE, Tab := TRUE, _
Semicolon := FALSE, Comma := FALSE, Space := FALSE, Other := TRUE, OtherChar _
:= "|", 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),Array(42,1),Array(43,1),Array(44,1), _
Array(45,1),Array(46,1),Array(47,1),Array(48,1),Array(49,1),Array(50,1),Array( _
51,1),Array(52,1),Array(53,1),Array(54,1),Array(55,1),Array(56,1),Array(57,1), _
Array(58,1),Array(59,1),Array(60,1),Array(61,1),Array(62,1),Array(63,1),Array( _
64,1),Array(65,1),Array(66,1),Array(67,1),Array(68,1),Array(69,1),Array(70,1), _
Array(71,1),Array(72,1),Array(73,1),Array(74,1),Array(75,1),Array(76,1),Array( _
77,1),Array(78,1),Array(79,1),Array(80,1),Array(81,1),Array(82,1),Array(83,1), _
Array(84,1),Array(85,1),Array(86,1),Array(87,1),Array(88,1),Array(89,1),Array( _
90,1),Array(91,1),Array(92,1),Array(93,1),Array(94,1),Array(95,1),Array(96,1), _
Array(97,1),Array(98,1),Array(99,1),Array(100,1),Array(101,1),Array(102,1), _
Array(103,1),Array(104,1),Array(105,1),Array(106,1),Array(107,1),Array(108,1), _
Array(109,1),Array(110,1),Array(111,1),Array(112,1),Array(113,1),Array(114,1), _
Array(115,1),Array(116,1),Array(117,1),Array(118,1),Array(119,1),Array(120,1), _
Array(121,1),Array(122,1),Array(123,1),Array(124,1),Array(125,1),Array(126,1), _
Array(127,1),Array(128,1),Array(129,1),Array(130,1),Array(131,1),Array(132,1), _
End Sub