Como crear un boton con la opcion de abrir el explorador de window

07/03/2006 - 20:21 por Pregunton | Informe spam
Buenas, Buenas otra vez yo poniendo pereque!

Quisiera que me colaboraran con la siguiente preguntica.

Resulta que quiero crear un boton con la opcion de abrir el explorador de
windows y que cuando seleccione el archivo que necesito escriba esa ruta en
una celda de la hoja de calculo. Por ejemplo en la celda a1
"c:\bancosomina.xls" y que se pueda tambien on esa misma información dejar
en la celda a2 "nomina.xls".

Agradezco de antemano la colaboración a las personas que me puedan colaborar
ya que soy nuevo en este tema de excel con macros no se casi programar.

Muchas Gracias!
Bendiciones!

Preguntas similare

Leer las respuestas

#1 Manuel Romero
07/03/2006 - 22:51 | Informe spam
En el codigo del boton puedes colocar la siguiente instruccion:

Application.Dialogs(xlDialogOpen).Show

Buenas, Buenas otra vez yo poniendo pereque!

Quisiera que me colaboraran con la siguiente preguntica.

Resulta que quiero crear un boton con la opcion de abrir el explorador de
windows y que cuando seleccione el archivo que necesito escriba esa ruta en
una celda de la hoja de calculo. Por ejemplo en la celda a1
"c:\bancosomina.xls" y que se pueda tambien on esa misma información dejar
en la celda a2 "nomina.xls".

Agradezco de antemano la colaboración a las personas que me puedan colaborar
ya que soy nuevo en este tema de excel con macros no se casi programar.

Muchas Gracias!
Bendiciones!
Respuesta Responder a este mensaje
#2 Héctor Miguel
08/03/2006 - 05:36 | Informe spam
hola, chicos !

... quiero crear un boton con la opcion de abrir el explorador de windows y que cuando seleccione el archivo
... escriba esa ruta en una celda de la hoja de calculo. Por ejemplo en la celda a1 "c:\bancosomina.xls"
... que se pueda tambien con esa misma informacion dejar en la celda a2 "nomina.xls".

En el codigo del boton puedes colocar la siguiente instruccion:
Application.Dialogs(xlDialogOpen).Show





si se pulsa 'aceptar' con el dialogo de la instruccion anterior... 'el archivo' [seleccionado] sera... -> abierto :-(
[si lo unico que necesitas es] para 'rescatar' la ruta [y de ahi el nombre] del archivo seleccionado...
prueba con una macro +/- como la siguiente [una vez 'probada'... la puedes asignar a algun objeto/boton/figura/...]
=Sub Info_de_archivo()
Dim Archivo
Archivo = Application.GetOpenFilename
If Archivo = False Then Exit Sub
Range("a1") = Archivo
Range("a2") = Dir(Archivo)
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida