Workbooks.OpenText不接受'fieldinfo'参数

Question

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

复制＆amp;将其粘贴到新的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代表文字
• 我必须使用'local'参数，因为我在本地化操作系统上使用本地化的Office 2003
• 操作系统无关紧要，因为它发生在Windows XP和Windows 7上

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

我已经知道使用QueryTables.Add（Connection [...]。）的解决方法 但那不是我案例的解决方案。

Answer 1

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