I am parsing fixed width data with the following code:

Range("a1", ActiveCell.SpecialCells(xlLastCell)).Select
Selection.TextToColumns Destination:=Range("A1"),
DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(8, 1), Array(11, 9), Array(12, 1))

The data in the last array is numeric. I need it to be brought in as text
so as not to loose the leading zeros. How do I apply xlTextFormat?

Thanks in advance!

Array(12, 1)
becomes
Array(12, xlTextFormat)
or
Array(12, 2)

Sometimes, it's quicker to record a macro when you do this manually and look at
the code.


CinqueTerra wrote:

I am parsing fixed width data with the following code:

Range("a1", ActiveCell.SpecialCells(xlLastCell)).Select
Selection.TextToColumns Destination:=Range("A1"),
DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(8, 1), Array(11, 9), Array(12, 1))

The data in the last array is numeric. I need it to be brought in as text
so as not to loose the leading zeros. How do I apply xlTextFormat?

Thanks in advance!

--

Dave Peterson

Awesome - Thanks!


"Dave Peterson" wrote:

Array(12, 1)
becomes
Array(12, xlTextFormat)
or
Array(12, 2)

Sometimes, it's quicker to record a macro when you do this manually and look at
the code.


CinqueTerra wrote:

I am parsing fixed width data with the following code:

Range("a1", ActiveCell.SpecialCells(xlLastCell)).Select
Selection.TextToColumns Destination:=Range("A1"),
DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(8, 1), Array(11, 9), Array(12, 1))

The data in the last array is numeric. I need it to be brought in as text
so as not to loose the leading zeros. How do I apply xlTextFormat?

Thanks in advance!

--

Dave Peterson