Excel VBA 代码转换

Question

以下代码中的 FieldInfo 给我带来了一些问题。我尝试过在线转换器，但它们似乎对这部分代码处理得不太好。我也尝试通过MSDN查找有关它的信息，但我找不到任何信息。我在哪里可以找到有关如何转换该部分的信息，即 Array(x,y) 在 C# 中转换为什么？

任何帮助表示赞赏。

下面是我正在努力解决的代码示例。

    Workbooks.OpenText Filename:= _
    "" & myZdrive & "\CI_System\Source_Files\" & myPosFile & "", Origin:= _
    xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
    xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
    Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 2), _
    Array(2, 2), Array(3, 2), Array(4, 2), Array(5, 2), Array(6, 2), Array(7, 2), Array(8, 1), _
    Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 2), Array(15 _
    , 1), Array(16, 1), Array(17, 2), Array(18, 2), Array(19, 2), Array(20, 2), Array(21, 2))

    Rows("1:1").Select
    Selection.Font.Bold = True
    Cells.Select
    Cells.EntireColumn.AutoFit

Answer 1

您发布的 VBA 代码看起来像是在 Excel 中完成的宏录制。例如，我通过打开纯文本文件 (.txt) 记录了以下内容：

Workbooks.OpenText Filename:= _
    "C:\test.txt" _
    , Origin:=xlWindows, startRow:=1, DataType:=xlDelimited, TextQualifier _
    :=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:= _
    False, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1)

这是在第一个对话框中选中“分隔”选项时记录的。如果我选择“固定宽度”，然后在输入数据中手动创建多个列，则记录如下所示：

Workbooks.OpenText Filename:= _
    "C:\test.txt" _
    , Origin:=xlWindows, startRow:=1, DataType:=xlFixedWidth, FieldInfo:= _
    Array(Array(0, 1), Array(2, 1), Array(10, 1), Array(18, 1), Array(30, 1), _
    Array(41, 1), Array(55, 1))

如果我必须猜测的话，我会说有人使用“固定宽度”选项录制了宏，然后将 VBA 代码从 DataType:=xlFixedWidth 更改为数据类型：=xlDelimited。

如果您的输入数据实际上是分隔的，您应该能够省略所有杂乱的 FieldInfo 数组信息，并让 Excel 自动处理分隔符，只需设置 DataType:=xlDelimited

如果您确实需要指定固定宽度的列，Bobort 发布的 rel="nofollow noreferrer">链接 将是一个很好的起点。从外观上看，FieldInfo 需要一个包含任意数量子数组的 VBA Variant 数组，每个子数组包含两个数字：列宽和数据类型。

编辑：

Origin 字段用于描述文本文件的格式：从 Macintosh、Windows (ANSI) 或 MS-DOS (PC-8) 中选择下拉式菜单。