bloqueo formulario

06/10/2004 - 15:54 por fredy | Informe spam
tengo el siguiente codigo que se ejecuta cuando en un
formulario hago click en "examinar", el codigo me
despliega un navegador donde escojo la ruta para exportar
archivos, mi problema es que cuando escojo la carpeta y
doy aceptar excel queda bloqueado (es como sise quedara
escribiendo o calculando algo)... sabe alguien porque
puede pasar esto?

muchas gracias

pd.. el codigo fue una adptacion de un ejemplo
suministrado por Hector M



Private Sub BROWSE_Click()
'Application.ScreenUpdating = True
Dim Directorio As String
seleccion:
Directorio = ObtenerDirectorio("Selecciona un
directorio...")

If Directorio = "" Then GoTo seleccion Else GoTo dato
mensaje:
MsgBox "¡ NO se ha seleccionado ningún directorio !!!"

dato:
'Application.ScreenUpdating = False
Sheets("BASE").Range("D1") = Directorio
Sheets("hoja4").Select
Application.ScreenUpdating = True
Application.ScreenUpdating = False
End Sub




Function ObtenerDirectorio(Optional ByVal Texto As
String) As String
Dim Iniciar_en As InfoNavegar, _
RUTA As String, _
Directorio As Long, _
Buscar_en As Long, _
Largo As Integer, _
Seleccionado As String
Iniciar_en.IDRutaRaiz = 0&
If IsMissing(Texto) Or Texto = "" _
Then Iniciar_en.DlgTexto = "Selecciona un
directorio." _
Else Iniciar_en.DlgTexto = Texto
Iniciar_en.Devolver = &H1
Buscar_en = ExplorarDirectorios(Iniciar_en)
RUTA = Space$(512)
Directorio = BuscarDirectorio(Buscar_en, RUTA)
If Directorio Then
Largo = InStr(RUTA, Chr$(0))
Seleccionado = Left(RUTA, Largo - 1)
If Right(Seleccionado, 1) <> "\" Then Seleccionado =
Seleccionado
Else: Seleccionado = ""
End If
ObtenerDirectorio = Seleccionado
End Function

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
07/10/2004 - 10:49 | Informe spam
hola, fredy !

... el siguiente codigo ... despliega un navegador donde escojo la ruta para exportar archivos
... cuando escojo la carpeta y doy aceptar excel queda bloqueado [...]



1.- en la parte que expones del codigo, solo 'veo' dos cambios:
-> cambias a mayusculas la varible 'ruta' y...
-> eliminas la diagonal invertida a la hora de 'devolver' [finalmente] el directorio.
=> NINGUNO podria ser 'la causa' del error <= ;)
2.- supongo que las llamadas a las API's [que no transcribes] estan en otro modulo [?]
3.- puesto que SI se muestra el 'explorador'...
-> la llamada a la funcion [API] ->'ExplorarDirectorios'<- [parece que] esta 'funcionando' ;)
4.- si la falla se origina al llamar a la funcion [API] ->'BuscarDirectorio'<- ...
que es la que 'extrae' la cadena con la ruta seleccionada... [probablemente]...
- algun error u omision en dicho procedimiento [?]
- algun error u omision en el tipo de datos 'definido por el usuario' ->InfoNavegar<- [?]
- algun otro codigo o evento que este 'interrumpiendo' el proceso siguiente [?]

¿comentas datos adicionales?
saludos,
hector.
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida