Jump to content
Luis Antonio Torres

Importar información de un archivo texto sin formato

Recommended Posts

Estimados Amigos,

 

Buenas tardes, tengo un archivo que genera pdf a partir de la información que existe en una hoja de excel; que esta a su vez importa información de un archivo *.txt

El problema es que al importar estéticamente queda disparejo y sin presentación que valga la pena.

No sé si haya alguna forma de importar esta información sin tener que utilizar las opciones establecidas por excel de divir las columnas al importar o copiar el texto directamente.

Alguna forma de importar con una macro talvez leyendo el texto del archivo txt, alguna guía o sugerencia?

Quedo muy agradecido con todos..

El archivo en cuestión:

https://drive.google.com/file/d/1OkUWBfwgfZyK8Cbm2Oca96JQ6i5YL2jM/view?usp=sharing

texto a ser importado.txt

Share this post


Link to post
Share on other sites

Estimado @isidrod,

 

Muchas gracias por tu respuesta, después de verl los archivos me parecen interesantes. Pero tengo un problema, mi archivo *.txt no tiene separadores que me pueda servir de comodín, ni texto separados en columnas. Tienen simetría en número de filas, pero, no tiene más que pueda ayudarme.

Entonces no sé como podría ayudarme de algún otro medio para importar el texto y tenga prolijidad en la hoja excel.

El archivo me queda algo así como el adjunto.

Alguna sugerencia más, cualquier guía o ayuda será bienvenidad.

De nuevo muchas gracias.

 

excel pdf.xlsx

Share this post


Link to post
Share on other sites
'https://www.extendoffice.com/es/documents/excel/3231-excel-import-multiple-text-files-to-multiple-sheets.html
Sub CombineTextFiles()
'updateby Extendoffice 20151015
    Dim xFilesToOpen As Variant
    Dim I As Integer
    Dim xWb As Workbook
    Dim xTempWb As Workbook
    Dim xDelimiter As String
    Dim xScreen As Boolean
    On Error GoTo ErrHandler
    xScreen = Application.ScreenUpdating
    Application.ScreenUpdating = False
    'xDelimiter = "|"
    xFilesToOpen = Application.GetOpenFilename("Text Files (*.txt), *.txt", , "Kutools for Excel", , True)
    If TypeName(xFilesToOpen) = "Boolean" Then
        MsgBox "No files were selected", , "Kutools for Excel"
        GoTo ExitHandler
    End If
    I = 1
    Set xTempWb = Workbooks.Open(xFilesToOpen(I))
    xTempWb.Sheets(1).Copy
    Set xWb = Application.ActiveWorkbook
    xTempWb.Close False
    xWb.Worksheets(I).Columns("A:A").TextToColumns _
      Destination:=Range("A1"), DataType:=xlDelimited, _
      TextQualifier:=xlDoubleQuote, _
      ConsecutiveDelimiter:=False, _
      Tab:=False, Semicolon:=False, _
      Comma:=False, Space:=False, _
      Other:=True, OtherChar:="|"
    Do While I < UBound(xFilesToOpen)
        I = I + 1
        Set xTempWb = Workbooks.Open(xFilesToOpen(I))
        With xWb
            xTempWb.Sheets(1).Move after:=.Sheets(.Sheets.Count)
            .Worksheets(I).Columns("A:A").TextToColumns _
              Destination:=Range("A1"), DataType:=xlDelimited, _
              TextQualifier:=xlDoubleQuote, _
              ConsecutiveDelimiter:=False, _
              Tab:=False, Semicolon:=False, _
              Comma:=False, Space:=False, _
              Other:=True, OtherChar:=xDelimiter
        End With
    Loop
ExitHandler:
    Application.ScreenUpdating = xScreen
    Set xWb = Nothing
    Set xTempWb = Nothing
    Exit Sub
ErrHandler:
    MsgBox Err.Description, , "Kutools for Excel"
    Resume ExitHandler
End Sub

checa eso a ver si e lo quieres es todo lo que pude hacer por ti a ver alguien mas puede apoyarte

saludos isidro

Share this post


Link to post
Share on other sites



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png