Question

我是VBA的新手，我被要求修复此代码，但我不知道在打开“{filename}”之后所有的逗号是什么。谁能解释一下？谢谢！

Sub Fixed_Width_Test()
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
objExcel.Workbooks.OpenText _
    `enter code here`"C:\Users\gcosta1\Desktop\BDTF\DAILY_ACTIVATION_TXN_CA_071113.txt", , , xlFixedWidth, , , , , , , , , Array(Array(0, 1), Array(2, 1), Array(27, 1), Array(77, 1), Array(92, 1), Array(108, 1), Array(128, 1), Array(153, 1), Array(178, 1), Array(203, 1), Array(211, 1), Array(217, 1), Array(249, 1), Array(179, 1), Array(287, 1), Array(293, 1), Array(301, 1), Array(317, 1), Array(334, 1), Array(337, 1), Array(353, 1), Array(383, 1), Array(386, 1), Array(392, 1), Array(393, 1), Array(410, 1), Array(421, 1))
End Sub

Answer 1

Open text是VBA中的一个方法，它接受如下所示的参数

OpenText（FileName，Origin，StartRow，DataType，TextQualifier，ConsecutiveDelimiter，Tab，Semicolon，Comma，Space，Other，OtherChar，FieldInfo，TextVisualLayout，DecimalSeparator，ThousandsSeparator，TrailingMinusNumbers，Local）

在你的代码中，传递给这个方法的第一个参数是filename，然后,,,表示没有为origin，startrow等传递任何参数，等等。

更多详情/来源： http://msdn.microsoft.com/en-us/library/office/aa195814(v=office.11).aspx

将文本文件导入到具有固定宽度的Excel中

1 个答案: