Cómo programar un botón de navegación en Excel VBA para obtener un nombre de carpeta

Escrito por jaime avelar | Traducido por analia moranchel
  • Comparte
  • Twittea
  • Comparte
  • Pin
  • E-mail
Cómo programar un botón de navegación en Excel VBA para obtener un nombre de carpeta
Busca una ruta de carpeta en Excel con VBA. (Stockbyte/Stockbyte/Getty Images)

El método BrowseForFolder (navegar para la carpeta) puede hacer que tu aplicación de Microsoft Office Excel sea más dinámica al no requerir rutas de códigos difíciles en tu programa. El método BrowseForFolder te permite solicitar al usuario que navegue a una carpeta particular en tu computadura mediante el Visual Basic para aplicaciones (VBA). La ruta a la carpeta puede usarse para otros propósitos de programación como leer o guardar un archivo. Reduce la sustentabilidad al no tener que hacer códigos difíciles sobre rutas en tu programa.

Nivel de dificultad:
Moderado

Otras personas están leyendo

Instrucciones

  1. 1

    Abre Excel y haz clic en a pestaña de "Desarrollador" y luego en "Visual Basic". Haz clic en el menú "Insertar" y selecciona "UserForm” para insertar un formulario nuevo. Haz clic en el menú "Ver" y haz clic en "Caja de herramientas" para visualizar los controles que puedes agregar a tu formulario.

  2. 2

    Haz clic en “CommandButton” ("Botón de comando") en la Caja de herramientas y haz clic y arrastra sobre tu formulario para crear un control de botones. Agrega una nueva casilla de texto con la misma técnica.

  3. 3

    Haz doble clic en el nuevo botón para abrir la ventana de Visual Basic Editor Window. Escribe el siguiente código debajo de “Private Sub CommandButton1_Click():”

    On Error GoTo Err_CommandButton1_Click:

  4. 4

    Escribe el siguiente código para definir dos variables que usarás en tu programa:

    Dim pathSelected As String Dim ShellApp As Object

  5. 5

    Escribe el siguiente código para comenzar el método “BrowseForFolder” y visualizar una ventana de diálogo para que el usuario elija una carpeta:

    Set ShellApp = CreateObject("Shell.Application"). _ BrowseForFolder(0, "Choose a folder", 0, OpenAt)

  6. 6

    Escribe el siguiente código para obtener la carpeta seleccionada en la ventana de diálogo de “BrowseForFolder”:

    pathSelected = ShellApp.self.Path

  7. 7

    Escribe lo siguiente para agregar una ruta seleccionada al control de la casilla de texto de tu formulario:

    Me.TextBox1.Text = pathSelected

  8. 8

    Escribe lo siguiente para liberar el objeto de la memoria:

    Set ShellApp = Nothing

  9. 9

    Escribe lo siguiente para mostrar una casilla de mensaje con cualquier posible error y terminar el procedimiento:

    Exit_CommandButton1_Click: Exit Sub Err_CommandButton1_Click: MsgBox Err.Description Resume Exit_CommandButton1_Click: End Sub

  10. 10

    Presiona "F5" para correr tu programa y haz clic en "CommandButton1" para navegar para una carpeta. Elige una y haz clic en "Aceptar". La ruta se mostrará en el control de la casilla de texto.

No dejes de ver

Filtrar por:
  • Mostrar todos
  • Artículos
  • Galerías de fotos
  • Videos
Ordenar:
  • Más relevante
  • Más popular
  • Más reciente

No se encuentran artículos disponibles

No se encuentran slideshows disponibles

No se encuentran videos disponibles