Uploading Data from an Excel File - FieldInfo is Vanilla
Dim mNumberOfExcelColumns as integer
'Assign the number of tab delimeted columns in the text file, say
mNumberOfExcelColumns = 20
Dim ColumnArray(mNumberOfExcelColumns, 1) As Integer
Dim x As Integer
' Create a For-Next that populates the two dimensions of
' the ColumnArray array.
For x = 0 To mNumberOfExcelColumns
ColumnArray(x, 0) = x
ColumnArray(x, 1) = 2
Next x
xlBooks.OpenText(Filename:=mTempFileNameForExcel, Origin:= _
XlPlatform.xlWindows, StartRow:=1, DataType:=XlTextParsingType.xlDelimited, TextQualifier:= _
XlTextQualifier.xlTextQualifierDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=ColumnArray, TrailingMinusNumbers:=True)