Información sobre archivos

[Geckox]

Hola amigos, he estado utilizando este código de "https://blogs.itpro.es/exceleinfo" para listar archivos de una carpeta:

<i>
</i>Sub ListFiles()
    iRow = 11
    Call...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

Aquí te dejo una macro para obtener la lista de todos los atributos de los archivos de un directorio.

Sub TodosLosAtributos()

Application.FileDialog(msoFileDialogFolderPicker).Show...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Geckox]

Gracias Antoni,
Lo puse en dos foros por las prisas que tengo.
Muchas gracias, lo pruebo.

 

[Geckox]

Hola Antoni,
Lo he probado y funciona muy bien aunque algunos datos no los captura. Por ejemplo en archivos jpg no captura datos como Punto F, Tiempo de Exposicion, Velocidad ISO, Distancia...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Geckox]

Hola Antoni,
¿Se te ocurre algo para añadir esos datos que faltan a los datos que ya se consiguen con tu Macro (muy buena por cierto)?
Por mas que busco no encuentro ninguna solución.

Un saludo y...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

.

Es lo completo que tengo sobre el tema.

.

 

[Geckox]

Ok, gracias.

 

[rcanepa]

Hola, Quisiera poder tener mayor detalle sobre el contenido de los archivos listados. Por ejemplo, que no sólo me muestre la ruta y el nombre del archivo, sino la información de una celda...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

.
Prueba sustituyendo:

Cells(iRow, iCol).Value = Open.Workbook(MyFile.path) Sheets("ESTADO) Cell(2,1)

Por:

Workbook.Open MyFile
dato =...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[rcanepa]

Gracias por tu respuesta. Olvidé mencionar que el excel de donde quiero obtener la referencia está cerrado. Cuando corro la macro, se cierra el excel actual. ¿alguna otra sugerencia por favor?