Access - exportar consulta - error

Hola a todos, de antemano agradezco a quines se interesen en mi duda.

Mi problema es el siguiente: tengo una consulta la cual quiero exportar a excel presionando un boton. El codigo del boton es:

Private Sub Comando1_Click()
If MsgBox("Se va a exportar el informe a Microsoft Excel........", vbQuestion + vbYesNo, "Confirme que desea exportar") = vbYes Then
DoCmd.OpenQuery "factura Consulta"
DoCmd.OutputTo acQuery, "factura Consulta", "MicrosoftExcel(*.xls)", , False, ""
DoCmd.Close acQuery, "factura Consulta"

End If

En la linea:
DoCmd.OutputTo acQuery, "factura Consulta", "MicrosoftExcel(*.xls)", , False, ""
se le pide al usuario que ingrese el nombre del archivo genereado y su ubicación.
Esto esta bien ya que en la misma carpeta hay varios archivos generados por este medio.
Pero si en el cuadro de dialogo donde se pregunta el nombre y la ubicacion, el usuario aprieta en Cancelar, se genera un error de código y se detiene la ejecucion de esa línea y de la siguinte, la que cierra la consulta.

Si alguien sabe como evitar ese error desde ya estoy muy agradecido por cualquier sugerencia

Saludos. Andres

Hola Andrés:

Prueba de esta forma, pero observa que no es necesario ni abrir previamente la consuta ni cerrarla después, es suficiente con poner su nombre entre comillas después de acQuery.

Private Sub Comando1_Click()
On Error GoTo Cancelar
DoCmd.OutputTo acQuery, "factura consulta", "MicrosoftExcel(*.xls)", , False, ""
Exit Sub
Cancelar:
MsgBox "Exportación cancelada.", vbInformation, "Cancelación"
End Sub

Saludos
Enrique

Hola:

En el código que pones, a mi entender, deberías poner un ELSE para conteplar qué hacer si se contesta NO a la exportación

No has puesto el código en el que se pide el nombre y la ubicaciónl y es ahí en donde hay que filtrar el Cancelar

Un saludo
Victoria

No, Victoria, parece que no has entendido lo que está haciendo Andrés, no se trata de un MsgBox con botones "Aceptar" y "Cancelar", la propia línea:
DoCmd.OutputTo acQuery............
ya abre por si misma un cuadro de diálogo tipo explorador de Windows y ese cuadro de diálogo tiene dos botones: Aceptar y Cancelar, además en un Cuadro de Texto aparece por defecto el nombre que va a tener el archivo Excel, que es el mismo nombre de la consulta (aunque se puede cambiar) y solo hay que buscar la carpeta de destino en el explorador y pulsar "Aceptar"; no hay que programar nada. Este cuadro de diálogo se abre porque justo antes de False, no se han especificado ni la carpeta de destino, ni el nombre de archivo Excel, que es lo que Andrés quiere que ocurra.

El error lo produce el propio cuadro de diálogo si se pulsa "Cancelar" y solo hay que interceptarlo con un control de error (On error Goto.....)

De todas formas, Andrés nos dirá.

Enrique

Tienes razón, no lo capté y te doy las gracias por aclarármelo. Ya sabes que respeto todo lo que sabes, sin duda, muchísimo más que yo

Feliz Año Enrique
Victoria

No es que yo sepa más, Victoria, lo que pasa es que lo probé antes de contestarle a Andrés y por eso lo sabía, además tenía algo parecido entre los muchos "experimentos" que tengo hechos en Access.

Un afectuoso saludo
Enrique

Muchas gracias a ambos por interesarse. El codigo que me pasó Enrique funcionó a la perfección.

Muchas gracias y felices fiestas!!!