Macro Contar archivos de un directorio Excel 2010

Serían tan amables en ayudarme con lo siguiente: Quiero hacer una macro que me cuente los archivos que se encuentran en un directorio y me guarde el resultado en una variable para después usar esa variable en un bucle, estoy usando excel 2010 y no encuentro la manera de hacerlo.

2 respuestas

Respuesta
3

Te mando mi solución, sigue mi ejemplo:

Con esta macro vamos a contar los archivos que hay dentro de la carpeta:

C:\Users\Luis\Downloads\

Es decir, tendrás que cambiar en la línea que empieza por chdir... y modificar el entrecomillado para poner tu path, recuerda dejar la última barra del final.

Sub ejemplo()
'por luismondelo
ChDir "C:\Users\Luis\Downloads\"
Set fso = CreateObject("scripting.filesystemobject")
Set carpeta = fso.getfolder(CurDir())
Set ficheros = carpeta.Files
For Each archivo In ficheros
cuenta = cuenta + 1
Next
MsgBox "En la carpeta " & CurDir() & " hay: " & cuenta & " archivos"
End Sub

recuerda finalizar y puntuar

Respuesta

Logré incluso adaptarla para contar carpetas también.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Macro Excel 2010 Para contar archivos en carpeta

Solicito de su apoyo para elaborar una macro en excel 2010 que me cuente todos los archivos que se encuentran el la ruta: "C:\ Users\ A2273174\ Desktop\ Archivos\ Resultados" y el resultado de la cuenta me los guarde en una variable. Uno de los...
1 respuesta

Contar archivos dentro de subcarpetas por extensión

Estoy exprimiendome la sesera y no logro realizar lo que quiero y por eso solicito de vuestras ayuda. Tengo un carpeta que, automáticamente se me generan dentro varias subcarpetas con archivos con una misma extensión. Habría alguna forma de poder...
1 respuesta

Validar si un archivo existe o no a partir de una macro excel 2007.

Tengo un formulario en vba excel 2007 con un textbox y un command button necesito realizar una macro que a través de ese command button me permita validar que el nombre que escribo en la caja de texto corresponde a un archivo que existe dentro de un...
1 respuesta

Borrar el contenido de una Carpeta desde excel

Necesito por favor me apoyen con un código Vba. Requiero validar si una carpeta se encuentra vacía, y si no lo está que borre los archivo contenido en ésta. Actualmente tengo el siguiente código: Sub borrar() If RmDir("D:\Oladier\06...
2 respuestas

Macro para generar hipervínculos con parte del nombre.

Necesito crear una macro que me genere hipervínculos. Tengo una hoja con un listado de códigos, de 5 números, y cada código está asociado a un archivo pdf. He probado varias opciones pero el problema que tengo es con la secuencia de la ruta, ya que...
2 respuestas

Buscar un archivo a partir del valor de una celda en excel (macro)

No se si se pueda realizar lo siguiente: lo que quiero es que a partir de un valor escrito en una celda de excel pueda ejecutar una macro la cual me busque en una carpeta de mi pc el archivo con el nombre que esta en la celda, si lo localiza me de un...
1 respuesta

Macro que busque un archivo y lo abra desde cualquier ruta

Quisiera que me ayudaran con mi problema, resulta que tengo una macro que funciona muy bien en mi ordenador, pero resulta que si intento ejecutarlo en otro ordenador me causa error ya que la ruta del archivo del cual extraigo los datos no es la...
2 respuestas

Como guardar en csv delimitado por comas

Tengo varios archivos de excel y necesito guardarlos a formato csv delimitado por comas, necesito una macro que me guarde los 100 archivos con el mismo nombre pero con extensión csv
1 respuesta

¿Cómo puedo copiar una carpeta de mis documentos a una o varias localidades de red? Con Excel 2010

En mi trabajo debo hacer un respaldo de varias carpetas que contiene archivos de Excel, pdf y xml en dos ubicaciones de red distintos, quisiera saber si es posible que la copia se haga desde Excel por medio de una macro.
1 respuesta

Copiar contenido de archivos de Texto a Excel.

Tengo una carpeta en una ruta especifica que contiene 100 subcarpetas y cada una a su vez, tiene 10 carpetas dentro de ellas, en las cuales viene un archivo de texto.txt del cual quiero extraer el contenido y pegarlo en una hoja de calculo de excel....
2 respuestas