Преобразование данных текстового формата в столбцах с использованием Excel VBA - PullRequest
Новая
       14

Преобразование данных текстового формата в столбцах с использованием Excel VBA

0 голосов
/ 23 марта 2019

У меня есть несколько отчетов, извлеченных из Oracle в текстовом файле. Я вставил данные в Excel. Теперь все мои данные находятся в столбце А, и я пытаюсь преобразовать данные в табличную форму. Разделитель в одной ячейке в текстовом файле: 

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

и на основании этого я должен конвертировать свои данные. Я написал номер начального символа каждого столбца из ячеек от 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
...