Como funciona o parâmetro FieldInfo do método Workbooks.OpenText?

oi,

Como montar a estrutura do FieldInfo de forma dinâmica?

FieldInfo:=Array(Array(1, 2), Array(2, 2))

Gravando uma macro é mostrado o código:

Workbooks.OpenText Filename:="C:\...\import_test.txt", _
    Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
    xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
    Comma:=True, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 2), _
    Array(2, 2)), TrailingMinusNumbers:=True

.: import_test.txt :.

"cod","nome"
"01","nom1"
"02","nome2"
"03","nome3"

Eis o código usado, mas dá erro:

Public Sub OpenTextPlan(cPath As String, nCols As Integer)
    Dim aCols
    Dim x
    ReDim aCols(nCols, 3)

    For x = 1 To nColuna
        aCols(x, 1) = x
        aCols(x, 2) = 2
    Next x

    Workbooks.OpenText Filename:=cPath, _
        Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
        Comma:=True, Space:=False, Other:=False, FieldInfo:=aCols, TrailingMinusNumbers:=True

    ActiveSheet.Move After:=Workbooks(1).Sheets(Sheets.Count)

End Sub

Exibições: 418

© 2018   Criado por Ramon Durães.   Ativado por

Badges  |  Relatar um incidente  |  Termos de serviço