G
Guest
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!
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!