open text file

[MetLife]

Hi,

I want to open a "," deliminated text file. To do this I wrote a macro but was getting an error because there were too many columns.

Error = "Too many line continuations"

All I want to do is open it up and copy the contents to my worksheet.

Sub Macro1()
'
' Macro1 Macro
'

'
Workbooks.OpenText Filename := _
"C:\EUL11223.TXT" _
, Origin := 437, StartRow := 1, DataType := xlDelimited, TextQualifier := _
xlDoubleQuote, ConsecutiveDelimiter := FALSE, Tab := TRUE, Semicolon := FALSE, _
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),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), _
End Sub

 

[Joe4]

There is an issue with how you ended your last line before the "End Sub" (you actually did not end it, you have a continuation going to nothing):

Array(118,1),Array(119,1),Array(120,1),Array(121,1),Array(122,1),Array(123,1), _
End Sub

 

[MetLife]

There is an issue with how you ended your last line before the "End Sub" (you actually did not end it, you have a continuation going to nothing):

Array(118,1),Array(119,1),Array(120,1),Array(121,1),Array(122,1),Array(123,1), _
End Sub

I was recording the macro and it crashed

 

[Joe4]

How spaces does the text go out, and how many fields do you have exactly?
I wonder if maybe you have to do it two steps.

 

[MetLife]

How spaces does the text go out, and how many fields do you have exactly?
I wonder if maybe you have to do it two steps.

There are 159 columns, when the automatic macro proceeds it crashes probably because of the way it distributes the code by rows.

 

[Joe4]

Maybe try bringing it all into one field (no delimiting initially). Then break it up in two or more pieces, using Text to Columns.
So maybe record yourself opening it as one long field, then using Text to Columns on the first "n" fields, then do Text to Columns on the next number of fields, etc.