Abrir archivos listados

[Salvador1]

Hola.

Hay varios temas que piden listar los archivos de una carpeta, pero no he visto ninguno que permita abrir cualquiera de los archivos listados desde el mismo excel. ¿Es posible? Sería como si los archivos listados fueran cada uno un hipervínculo.

Adjunto un ejemplo sobre el que poder trabajar (aunque se puede utilizar cualquier otro).

Saludos.

Listar archivos II.zip

[joshua]

Saludos.

Pues con shell

shell ("C:\.........\archivo.extension")[/PHP]

Atte.

joshua

[Antoni]

Hola joshua, Salvador:

Otra forma es poner un hipervínculo.

En el procedimiento ListarArchivos solo tienes que añadir:

ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:=Ruta & "\" & oFile.Name[/CODE]

y te creará un hipervínculo en la columna [i][b]A[/b][/i].

Saludos a todos

[Salvador1]

Muchas gracias por vuestra rapidez y eficacia! Ha funcionado.

-----------------------

Aprovecho para hacer una sugerencia a los expertos, que quizás no se hayan dado cuenta: cuando respondáis escribiendo una parte del código como en este caso, no estaría de más decir detrás o delante de qué linea poner el código (yo, por ejemplo, he acertado al 2º intento).