Workbooks.OpenText 不采用“fieldinfo”参数

Question

以下代码演示了问题标题中所述的问题。

将其复制并粘贴到新的 Microsoft Excel 2003 工作簿中。

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

执行代码。它将要求输入文件，您应该在其中使用这个分号分隔的test.csv。它创建一个新工作簿并将 test.csv 中的所有数据导入到 sheet1。

下图为结果

但它应该显示这样的结果

---

fieldinfo:=Array(Array(1, 2), Array(2, 2), Array(3, 2), Array(4, 2))
声明 Excel 应将所有导入的数据视为文本。不幸的是，它没有。

• 二维数组：first number is the column number, second number stands for data type 其中 2 代表文本
• 我必须使用“本地”参数，因为我使用的是带有本地化 Office 2003 的本地化操作系统
• 操作系统无关紧要，因为它发生在 Windows XP 和 Windows 7 上

谁能告诉我如何正确使用opentext和fieldinfo？

我已经知道 QueryTables.Add(Connection[...].
但这不是我的解决方案。

Answer 1

如果您将输入文件的扩展名从 .csv 重命名为 .txt，fieldinfo 参数将按设计工作。