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

Siga el debate

3 respuestas

Tengo una respuesta

Preguntas similare

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.

Responder a este mensaje

#2 Jairo Hernandez

11/12/2003 - 23:22 | Informe spam

Excelente Hector Miguel..

muchas gracias..

saludos

Jairo

P.D. Lito Camps... ¿no ha estado por aqui?

"Héctor Miguel" escribió en el mensaje
news:u#

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.

Responder a este mensaje

#3 Héctor Miguel

11/12/2003 - 23:38 | Informe spam

P.D. Lito Camps... ¿no ha estado por aqui?

no [desde hace ya 'un buen rato'] :((

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida