Cancelar Dialogo Seleccionar Carpeta
Buenas Tardes Expertos, he realizado el siguiente código para buscar una carpeta:
Private Sub Buscar_Click()
Cells(6, 1).Select
Dim ruta As String
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(0, "Buscar Carpeta", 0, path_oficial)
Set carpeta = objFolder.self
ruta = carpeta.Path
Call rating(ruta)
End Sub
Me funciona de maravilla, pero cuando yo ejecuto el código y me sale la ventana de búsqueda de la carpeta y le doy cancelar me sale un error:
Variable de objeto o bloque With no establecido.
Y me señala a Set carpeta = objFolder.self, entiendo que es porque la variable objFolder queda con valor Nothing pero como hago para que no me salga ese error sino que simplemente no haga nada. Gracias de antemano por la ayuda.
Private Sub Buscar_Click()
Cells(6, 1).Select
Dim ruta As String
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(0, "Buscar Carpeta", 0, path_oficial)
Set carpeta = objFolder.self
ruta = carpeta.Path
Call rating(ruta)
End Sub
Me funciona de maravilla, pero cuando yo ejecuto el código y me sale la ventana de búsqueda de la carpeta y le doy cancelar me sale un error:
Variable de objeto o bloque With no establecido.
Y me señala a Set carpeta = objFolder.self, entiendo que es porque la variable objFolder queda con valor Nothing pero como hago para que no me salga ese error sino que simplemente no haga nada. Gracias de antemano por la ayuda.
