0

Estoy trabajando con montones de ficheros txt y necesito una macro excel que me haga lo siguiente (si es posible).

os lo detallo: Tengo una ruta con distintos .txt con nombres distintos, esto es un ejemplo

prueba1.txt

prueba2.txt

prueba3.txt

prueba4.txt

prueba5.txt

Necesito una macro que exporte a excel el nombre de cada fichero txt y abra cada fichero y lea sus lineas y ponga la cantidad de lineas por txt algo tal que así:

NOMBRE FICHERO TXT ///// LINEAS

prueba1.txt //// 5

prueba2.txt //// 4000

prueba3.txt //// 22541

prueba4.txt //// 19874

prueba5.txt //// 44457

¿Alguien que me ayude a sacar esto?

9
  • 4
    Hola Sergio y bienvenido. ¿Qué has intentado? ¿Puedes compartir el código que ya tengas hecho? Es importante que lo intentes antes de preguntar para aportar algo de código :). Commented el 8 sept. 2016 a las 8:06
  • la verdad es que yo de programación ando muy pez y he entrado aquí por recomendación de un compañero de trabajo que trabaja en desarrollo java
    – Sergio
    Commented el 8 sept. 2016 a las 8:09
  • Mírate el tour... No tengo claro que una pregunta así sea válida para el sitio. Commented el 8 sept. 2016 a las 8:20
  • Por favor, no encuentro información en internet sobre el tema y que me pueda servir, y no conozco a nadie que sepa de vb y macros en excel para poderlo realizar.
    – Sergio
    Commented el 8 sept. 2016 a las 9:34
  • 2
    Sergio, en internet tienes muchísimos tutoriales al respecto. Además, no te has tomado la molestia en leerte el tour que ya te había comentado. Tu pregunta no se adapta al sitio. Busca tutoriales (excel-easy.com/vba/examples/read-data-from-text-file.html), crea macros, intenta hacerlo y si tienes problemas, vuelve aquí y te ayudaremos sin ningún problema. Commented el 8 sept. 2016 a las 9:42

1 respuesta 1

2

El codigo para esto es el siguiente. Gracias al forero Zero Racing de Forocoches

Sub ShowFolderList()
Dim h As Worksheet
Set h = Sheets("Hoja1")
    Dim fs, f, f1, fc, s, sFldr, folderspec
    folderspec = "C:\carpeta\"
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(folderspec)
    Set fc = f.SubFolders
    Set fc = f.Files
    x = 1
    For Each f1 In fc
        f2 = Replace(f1, folderspec, "")
        Set theFile = fso.OpenTextFile(f1, 8, True)
        h.Cells(x, 1).Value = f2 & "\\\" & theFile.Line
        x = x + 1
    Next
End Sub

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.