Skip to main content
Commonmark migration
Origen Enlace

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?

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?

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?

etiquetas editadas
Enlace
Rubén
  • 11.5k
  • 7
  • 41
  • 85
Revertido a la revisión 2
Origen Enlace
user227
user227

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

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

¿Alguien que me ayude a sacar esto?

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

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

¿Alguien que me ayude a sacar esto?

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?

se añadieron 793 caracteres en el cuerpo
Origen Enlace
user227
user227
Loading
Publicación cerrada como "Necesita detalles o aclaraciones" por Miquel Coll, Shaz, Jose Javier Segura, Daniel Faro, toledano
se eliminaron 74 caracteres en el cuerpo
Origen Enlace
Miquel Coll
  • 3.2k
  • 4
  • 24
  • 46
Loading
Origen Enlace
Loading