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

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.
Respuesta 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.


Respuesta 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'] :((
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida