Visual Basic.NET - Importar archivo texto a Excel desde VB.Net

Hola a todos, aquí viene mi problema, espero que alguien me pueda ayudar:
Trato de importar un archivo de texto a una hoja excel y trato de hacerlo del siguiente modo (obtenido a partir de la modificación de una macro grabada en excel con el grabador de macros):

With hojatabla.QueryTables.Add(Connection:= _
"TEXT;" & Ruta _
, Destination:=hojatabla.Range(celda_ini))
.Name = "archivo importado"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = XlCellInsertionMode.xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 850
.TextFileStartRow = 1
.TextFileParseType = XlTextParsingType.xlDelimited
.TextFileTextQualifier = XlTextQualifier.xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _
1, 1, 1, 1) ' AQUI VIENE EL PROBLEMA
.TextFileTrailingMinusNumbers = True
.Refresh(BackgroundQuery:=False)
End With

El problema está aquí:

.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _
1, 1, 1, 1)

Me da problemas la propiedad "TextFileColumnDataTypes" , no se como definirla, parece que hay problemas al definir esa matriz, no lo se. La he tomado directamente del grabador de macros donde lógicamente si funciona, pero no se como adaptarlo para que funcione desde VB Net.
Tal y como está el compilador "se queja" diciendo:
"Array es un tipo y no se puede usar como expresión"

Espero que se entienda bien la cuestión. A alguien se le ocurre alguna idea?

Muchas gracias por vuestro tiempo
Un saludo.

hola q tal
estoy teniendo un problema similar al tuyo, tratando de convertir un archivo de texto a un xls, y el compilador me da el mismo problema con Array...quisiera saber si has podido encontrar una solución
muchas gracias y saludos

Hola Andrés.

Lo dejé así y funcionó:

With hoja.QueryTables.Add(Connection:= _
"TEXT;" & Ruta_
, Destination:=hoja.Range("A1"))
.Name = "FicheroExcel"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = XlCellInsertionMode.xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 850
.TextFileStartRow = 1
.TextFileParseType = XlTextParsingType.xlDelimited
.TextFileTextQualifier = XlTextQualifier.xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True 'delimitador tabulación!!!
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = True ' delimitador espacio
.TextFileTrailingMinusNumbers = True
.Refresh(BackgroundQuery:=False)
End With

Espero que te sirva de ayuda.

Un saludo

En ecxel vas a Datos_obtener datos externos
Buscas la el archivo que queres exportar, doble clic y segui los pasos.-