none
Duda texto en columna RRS feed

  • Debate general

  • Buenos días,

    Tengo una macro en excel y deseo separar  por texto en columna con la macro, pero me carca  "error en el método TextColumns de la clase Range", "la variable con la que lo obtengo es con: "arrayobj"

    Lo que pretendo es separar el texto en columnas de acuerdo a cada 3 caracteres de longitud

    Gracias por su ayuda

    Sub Macro2()
    '
    ' Macro2 Macro
    '
    '
       Dim arrayobj As Object
       
      
    '
        Max = 149
        ini = ""
        fin = ""
        For i = 0 To Max - 2 Step 3
           If i = Max - 2 Then
           ini = "Array(" & i & ", 1))"
           Else
           ini = "Array(" & i & ", 1), "
           End If
           fin = fin & ini
         Next i
           arrayfin = "Array(" & fin
        Cells(1, 20) = arrayfin
       Set arrayobj = Cells(1, 20)
       
        Sheets("Hoja1").Columns("A:A").Select
        Selection.TextToColumns Destination:=Range("B1"), DataType:=xlFixedWidth, _
        FieldInfo:=arrayobj, _
        TrailingMinusNumbers:=True
       
    End Sub

    miércoles, 13 de marzo de 2013 17:24