Botón o control para definir la ruta de...
Tengo un formulario sencillo en el que se solicita el nombre de usuario y contraseña, pero quiero añadir un botón (Browse) que defina la ruta en donde se va a guardar un archivo.
Quiero que la ruta se guarde la ruta en una variable.
Necesito saber si existe un control en Excel que pueda hacer eso. He investigado y he encontrado soluciones muy complejas para mi
he trabajado con macros en excel, pero no se como anexar funciones o módulos. La idea es que la macro pueda copiarse a otros equipos. Por eso necesito que la ruta pueda cambiarse.
Ejem:
usuario:_________________
contraseña:_________________
browse:_________________
De antemano gracias por su apoyo y comprensión
Quiero que la ruta se guarde la ruta en una variable.
Necesito saber si existe un control en Excel que pueda hacer eso. He investigado y he encontrado soluciones muy complejas para mi
he trabajado con macros en excel, pero no se como anexar funciones o módulos. La idea es que la macro pueda copiarse a otros equipos. Por eso necesito que la ruta pueda cambiarse.
Ejem:
usuario:_________________
contraseña:_________________
browse:_________________
De antemano gracias por su apoyo y comprensión
Respuesta de Elsa Matilde
1
No entendí si el usuario escribirá la ruta en ese campo de tu formulario o quieres que la busque. Para esto último te dejo una rutina (*)
Para que la variable pueda ser utilizada en otros ámbitos fuera del formulario, por ej. en el evento Sabe, deberás declararla en un módulo como pública.
Public ruta as string
Luego la utilizarás como: ActiveWorkbook.Save ruta & "\" & nbre_archivo
La siguiente rutina te permite elegir la ruta y dejará como predeterminado el nombre de tu libro, por lo que en la instrucción anterior solo debés mencionar la variable ruta.
Espero se comprenda, cualquier duda escribime nuevamente.
Desde el editor, insertá un módulo y allí copiá esto:
Sub ElegirCarpeta()
Dim archi, i As Integer
'muestra cuadro de diálogo
archi = Application.GetSaveAsFilename(, , , "Seleccione la carpeta")
If archi= "Falso" Then
MsgBox "No seleccionó carpeta. La acción se cancela."
End If
ruta = archi
'Opcional: pasar a una hoja la variable ruta
Sheets("Hoja1").Range("C20") = ruta
End Sub
Para que la variable pueda ser utilizada en otros ámbitos fuera del formulario, por ej. en el evento Sabe, deberás declararla en un módulo como pública.
Public ruta as string
Luego la utilizarás como: ActiveWorkbook.Save ruta & "\" & nbre_archivo
La siguiente rutina te permite elegir la ruta y dejará como predeterminado el nombre de tu libro, por lo que en la instrucción anterior solo debés mencionar la variable ruta.
Espero se comprenda, cualquier duda escribime nuevamente.
Desde el editor, insertá un módulo y allí copiá esto:
Sub ElegirCarpeta()
Dim archi, i As Integer
'muestra cuadro de diálogo
archi = Application.GetSaveAsFilename(, , , "Seleccione la carpeta")
If archi= "Falso" Then
MsgBox "No seleccionó carpeta. La acción se cancela."
End If
ruta = archi
'Opcional: pasar a una hoja la variable ruta
Sheets("Hoja1").Range("C20") = ruta
End Sub
