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.txtFetching info...

checa este link Luis Antonio 

https://excelsignum.com/2016/02/15/importar-archivos-txt-delimitados-por-caracteres/

saludos isidro

este otro link

https://ayudaexcel.com/foro/topic/38226-importar-ficheros-txt-a-hojas/

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.xlsxFetching info...

'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

Estoy echándole un vistazo en profundidad, a ver que sale.

Abre el adjunto y pulsa sobre el icono.

Las pruebas las he hecho con el archivo: texto a ser importado.txt

ImportatTXT.xlsmFetching info...

eres  un genio Antoni 

saludos isidro

  En 25/7/2019 at 17:49 , Antoni dijo:

Abre el adjunto y pulsa sobre el icono.

Las pruebas las he hecho con el archivo: texto a ser importado.txt

ImportatTXT.xlsm 27 kB · 7 downloads

Estimado @Antoni como lo ha dicho @isidro usted es un genio pensé quedaría desamparado.

Muchas gracias por su tiempo y ayuda.