Hi Dag,

Thank you so much. Following is the code.



'Workbooks.OpenText FileName:=pFileName, _
' Origin:=xlWindows, StartRow:=1, DataType:=xlFixedWidth,
FieldInfo:= _
' Array(Array(0, 2), Array(17, 1), Array(18, 4), Array(39, 1),
Array(44, 1), Array(46, 2), _
' Array(57, 1), Array(63, 2), Array(74, 1), Array(81, 4),
Array(101, 1), Array(126, 2), Array _
' (137, 1), Array(143, 1), Array(164, 1), Array(165, 1),
Array(180, 1), Array(185, 4), Array( _
' 206, 4), Array(225, 4), Array(246, 4), Array(266, 4),
Array(285, 1), Array(299, 1), Array( _
' 314, 1), Array(328, 1), Array(330, 1), Array(344, 1),
Array(357, 1), Array(368, 1), Array( _
' 379, 2), Array(397, 2), Array(405, 1), Array(428, 1),
Array(499, 1), Array(511, 1), Array( _
' 4512, 1), Array(4524, 1), Array(8526, 2), Array(8543, 1),
Array(8544, 1), Array(8546, 1), _
' Array(8557, 1), Array(12559, 1), Array(12560, 2), Array(12577,
1), Array(12595, 4), Array _
' (12615, 4), Array(12635, 1), Array(12637, 2), Array(12648, 1),
Array(12679, 4), Array( _
' 12699, 1), Array(12720, 1), Array(12731, 1), Array(12762, 2),
Array(12778, 1), Array( _
' 12849, 1), Array(12862, 1), Array(16863, 1), Array(16874, 1),
Array(17004, 1), Array( _
' 17005, 4), Array(17025, 1), Array(17036, 1))


*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!