Jump to content

Archivos .rtf a excel


Recommended Posts

Buenos días,

Solicito su ayuda para pasar el contenido de 12000 archivos en formato .rtf dentro de una carpeta con historia clínicas, requiero pasar estos datos a una base de Excel para usarlos posteriormente en Access.

En una columna debe estar el nombre del archivo ya que esta vinculado a la ID del paciente, y en otra columna el contenido del archivo.

Ya busque en el foro, encontré una macro para pasar txt pero no me funciono, se bloquea el archivo de Excel y no responde.

Gracias

Rene Zamora

Link to comment
Share on other sites

Abre un Modulo ( Alf + F11) y copia la macro, el Archivo TXT colocalo en la misma carpeta donde se encuentyre tu archivo excel. Si observas la macro, procesará el archivo 1.TXT

Sub opentxt()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Range("a1:b1000").ClearContents
    Dim myfile As Variant, cad As String, fila As Long
    ruta = ActiveWorkbook.Path
    ChDir ruta
    myfile = "1.txt"
    fname = Dir(myfile)
    If fname = "" Then
        MsgBox "No existe archivo en esta carpeta"
        Exit Sub
    End If
    
    Open myfile For Input As #1
    fila = 1
    Cells.Clear
    While Not EOF(1)
        Line Input #1, cad
        Cells(fila, 2) = cad
        fila = fila + 1
    Wend
    Close #1
    
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub
 

Link to comment
Share on other sites

  • 2 weeks later...

Buenos días, sigo intentando pasar las historias a excel, no he podido convertir los 12000 archivos en RTF a txt, con alguna macro se podrán hacer las conversiones de RTF a txt?, ya que con  word se pueden guardar como txt pero 1 archivo en 1 y no es viable para los 12000.

 

Gracias por los comentarios!!

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

Privacy Policy