Workbooks.OpenText does not accept fieldinfo parameter

Question

The following code demonstrates the problem indicated in the question header.

Copy and paste it into a new Microsoft Excel 2003 workbook.

Sub mytest() mypath = Application.GetSaveAsFilename() Workbooks.OpenText Filename:=mypath, DataType:=xlDelimited, _ TextQualifier:=xlTextQualifierDoubleQuote, _ semicolon:=True, _ fieldinfo:=Array(Array(1, 2), Array(2, 2), Array(3, 2), Array(4, 2)), _ Local:=True End Sub 

Run the code. It will request an input file where you should use this comma delimiter test.csv . It creates a new workbook and imports all the data from test.csv to sheet1.

The figure below shows the result.

But he had to show a result similar to this.

---

fieldinfo:=Array(Array(1, 2), Array(2, 2), Array(3, 2), Array(4, 2))
that Excel must process all imported data as text. Unfortunately, this is not so.

• Two-dimensional array: the first number is the column number, the second number is the data type , where 2 stands for text
• I need to use the "local" parameter because I am in a localized OS with a localized Office 2003
• The operating system does not matter since it occurs in Windows XP and Windows 7

Can someone show me how to use opentext and fieldinfo correctly?

I already know a workaround with QueryTables.Add (Connection [...].
But this is not a solution for my business.

Answer 1

If you rename the extension from the input file from .csv to .txt, the fieldinfo parameter works as configured.