ERROR EN CÓDIGO. QUE PASA.
Publicado por Juan (6 intervenciones) el 02/11/2004 23:04:25
Tengo un boton que al pulsarle me abre el explorador de archivos para seleccionar documentos de word para poder abrirlos. El caso es que abrir, los abre, pero si no selecciono ninguno y le doy al boton cerrar o cancelar me sale un error que dice que no encuentra el archivo. ¿que me falta en el código?.
EL CÓDIGO ES ---------------------------------------------------------------------------
Option Explicit
Private Sub CommandButton1_Click()
With CommonDialog1
.DialogTitle = "BÚSQUEDA DE ARCHIVOS"
.Filter = "ARCHIVOS FORMATO WORD(*.doc; *.dot)|*.doc ; *.dot|"
.Flags = cdlOFNFileMustExist
.ShowOpen
Documents.Open (.Filename)
End With
End Sub
EL CÓDIGO ES ---------------------------------------------------------------------------
Option Explicit
Private Sub CommandButton1_Click()
With CommonDialog1
.DialogTitle = "BÚSQUEDA DE ARCHIVOS"
.Filter = "ARCHIVOS FORMATO WORD(*.doc; *.dot)|*.doc ; *.dot|"
.Flags = cdlOFNFileMustExist
.ShowOpen
Documents.Open (.Filename)
End With
End Sub
Valora esta pregunta
0