Workbooks.OpenText in Excel

[Lucas]

Thanks.

The problem is how include FieldInfo.

In excel:

Sub Macro1()
'
' Macro1 Macro
'

ChDir "C:\"
Workbooks.OpenText Filename:= _
"C:\TXT.TXT", Origin:=xlWindows, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 2), _
Array(3, 4))
Application.Run "checkname"
End Sub