excel - 使用 Excel VBA 转换列中的文本格式数据

Question

我在文本文件中从 Oracle 中提取了一些报告。我已经将数据粘贴到excel中。现在我的整个数据都在 A 列中，我正在尝试将数据转换为表格形式。文本文件中一个单元格中的分隔符是

--------- ------------- ------------- ---------------------- --------------- --------------------- ---- ------------------ ------------------ ------------------ ------------------

基于此，我必须转换我的数据。我已经写了从单元格 B1 到 N1 的每一列的起始字符号。在编写 VBA 代码时，我希望 vba 从这些单元格中选择每列的长度，即（B1 到 N1）。下面是我的代码。请帮助我我哪里出错了？

Sub texttocolumntest3()

    Columns("A:A").Select
    Range("A8").Activate
    Selection.Columns.AutoFit
    Selection.TextToColumns Destination:=Range("A:A"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(Range("B1").Value, 1), Array(Range("c1").Value, 1), Array(Range("d1").Value, 1), Array(Range("e1").Value, 1), Array(Range("f1").Value, 1), _
        Array(Range("g1").Value, 1), Array(Range("h1").Value, 1), Array(Range("i1").Value, 1), Array(Range("j1").Value, 1), Array(Range("k1").Value, 1), Array(Range("l1").Value, 1), _
        Array(Range("m1").Value, 1)), TrailingMinusNumbers:=True
    Cells.Select
    Range("A11").Activate
    Selection.Columns.AutoFit
End Sub

标签： excelvbatext-to-column