Importing Text Files: FieldInfo - Array's

Hi,
The code below will import text file's to excel and structure columns according to the arrays.

  Sub mTxtFile()
  
screenUpdateState = Application.ScreenUpdating
statusBarState = Application.DisplayStatusBar
calcState = Application.Calculation
eventsState = Application.EnableEvents

Application.ScreenUpdating = False
Application.DisplayStatusBar = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False

 
      Workbooks.OpenText Filename:= _
          "C:\excel\file.txt", _
          Origin:=xlWindows, _
          StartRow:=2, _
          DataType:=xlFixedWidth, _
          FieldInfo:=Array(Array(0, 1), Array(2, 1), Array(10, 1), Array(12, 1), Array(24, 1), Array(27, 1), _
          Array(39, 1), Array(49, 1), Array(52, 1), Array(56, 1), Array(69, 1), Array(82, 1), Array(95, 1), _
          Array(108, 1), Array(121, 1), Array(134, 1), Array(147, 1), Array(152, 1), Array(170, 1), _
          Array(188, 1), Array(201, 1), Array(202, 1), Array(210, 1), Array(217, 1), Array(230, 1), _
          Array(242, 1), Array(245, 1)), _
          DecimalSeparator:=".", _
          ThousandsSeparator:=",", _
          TrailingMinusNumbers:=False

Application.ScreenUpdating = screenUpdateState
Application.DisplayStatusBar = statusBarState
Application.Calculation = calcState
Application.EnableEvents = eventsState

End Sub

What I was uncapable of doing was to substitute the wide selection of Array's(10, 1), Array(24, 2), Array(82, 1), Array(95, 1), etc... for something more simple and efficient. Maybe using a loop or something which I am less familiar. Below is a piece of code I tried to use in the code above but I didn't have much success. Any help would be appreciated!

ColumnsDesired = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14,
15, 16, 17, 18, 19, 20, 21, 22)
DataTypeArray = Array(1, 9, 3, 1, 1, 2, 1, 1, 1, 9, 9, 9, 1, 1, 1, 9, 1,
9, 9, 9, 9, 9)

For x = LBound(ColumnsDesired) To UBound(ColumnsDesired)
ColumnArray(x, 1) = ColumnsDesired(x)
ColumnArray(x, 2) = DataTypeArray(x)
Next x

Thanks

I tried using the second code from this link http://www.excelforum.com/excel-gene...parameter.html.

Any help please?