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 应将所有导入的数据视为文本。不幸的是它没有。

• 二维数组：第一个数字是列号，第二个数字代表数据类型，其中2代表文本
• 我必须使用“本地”参数，因为我在本地化的操作系统上使用本地化的 Office 2003
• 操作系统无关紧要，因为它发生在 Windows XP 和 Windows 7 上

有人可以告诉我如何以正确的方式使用 opentext 和 fieldinfo 吗？

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

Answer 1

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