Como capturar el nombre de archivo

11/12/2003 - 21:48 por Jairo Hernandez | Informe spam
Hola Amigos.. tiempo sin verlos...

Como se puede capturar el nombre de un archivo que actualmente este abierto.
es decir, si doy clic en el Menu Ventana, aparece ahi "ElArchivo.xls" y
todos los demas archivos que tenga abierto.

yo quisiera pasarle a una variable o a una hoja no importa el nombre de ese
archivo cuando lo seleccione, o de alguna otra forma no importa.

el lio se da que el archivo puede ser cualquiera, con cualquier nombre, pero
claro, yo tendré siempre un archivo abierto para poner ahi el nombre del
archivo seleccionado.

saludos... y se agradece mucho cualquier colaboracion


~
Jairo Josue Hernandez
Choluteca, Honduras..

"Algunas personas miran al mundo y dicen ¿Porque?. Otras miran al mundo y
dicen ¿Porque no?."
- George Bernard Shaw
 

Leer las respuestas

#1 Héctor Miguel
11/12/2003 - 23:06 | Informe spam
hola, Jairo !

... capturar el nombre de un archivo que actualmente este abierto.
... pasarle a una variable o a una hoja no importa el nombre de ese archivo cuando lo seleccione [...]



puedes usar la propiedad 'name' de un objeto 'workbook' [p.e.]
Sub Nombres_Libros()
Dim LibroActivo As String, EsteLibro As String, Nombres As String, Libro As Workbook
LibroActivo = ActiveWorkbook.Name
EsteLibro = ThisWorkbook.Name
For Each Libro In Workbooks
If Libros <> "" Then Libros = Libros & vbCr
Libros = Libros & Libro.Name
Next
MsgBox "Los libros abiertos en esta sesión son:" & vbCr & _
Libros & vbCr & _
"El libro activo es: " & LibroActivo & vbCr & _
"Este libro se llama: " & EsteLibro
End Sub

saludos,
hector.

Preguntas similares