Apertura de un archivo Excel en VBA Access

Para responder a Fred:
Primero, es necesario añadir una referencia a Excel para disponer de los objetos de Excel. Para ello, hay que abrir un módulo de código y luego usar el menú Herramientas, Referencias y buscar en la lista: Microsoft Excel 8 (por ejemplo).

Luego, aquí hay un ejemplo de código (del botón cmdOpenExcel):

Private Sub cmdOpenExcel_Click()
Dim xls As Excel.Application
On Error GoTo errHnd
Set xls = CreateObject("Excel.Application")
xls.Workbooks.Open "c:\toto.xls"
xls.Visible = True
Exit Sub
errHnd:
MsgBox "Error N° " & Err.Number & vbLf & Err.Description, , Err.Source
End Sub

Gracias por tu ayuda
tu respuesta me será muy útil

Hola,
El tema es antiguo, no sé si tendré una respuesta.
El código anterior funciona bien, excepto que me abre el archivo de Excel dos veces...

Private Sub Bascule65_Click() Dim xls As Excel.Application On Error GoTo errHnd Set xls = CreateObject("Excel.Application") xls.Workbooks.Open "c:\AvisCom\Trimestriel.xls" xls.Workbooks("Trimestriel.xls").Sheets("Feuil2").Activate xls.Visible = True Exit Sub errHnd: MsgBox "Erreur N° " & Err.Number & vbLf & Err.Description, , Err.Source End Sub

¿alguien tiene una idea?

Hola,

Aquí hay un método que se puede utilizar:

Private Sub Bascule65_Click() Dim xls As Excel.Application Dim wk As Excel.Workbook Dim ws As Excel.Worksheet On Error GoTo errHnd Set xls = CreateObject("Excel.Application") Set wk = xls.Workbooks.Open("C:\AvisCom\Trimestriel.xls") Set ws = wk.Sheets("Feuil2") ws.Activate xls.Visible = True Exit Sub errHnd: MsgBox "Error N° " & Err.Number & vbLf & Err.Description, , Err.Source End Sub 

No olvides referenciar: Microsoft Excel xx.x Object Library en Herramientas > Referencias ...

;o)
--
«Lo que se concibe bien se enuncia claramente, Y las palabras para decirlo llegan fácilmente.»
Nicolas Boileau

Hola
Hay un modo muy simple: crea un botón utilizando el asistente: es un botón de la categoría Aplicación y la acción es Ejecutar Microsoft Excel. El asistente generará el código para abrir Excel.
Para que el asistente esté activo, es necesario que el segundo botón en la barra de herramientas esté presionado (el que está después de la flecha).
Por supuesto, podemos hacer mucho mejor abriendo un archivo específico o controlando Excel desde ACCESS con código VBA. Esto se llama OLE Automation.

Buena suerte
Michel

Este código funciona igual de bien, pero siempre me abre el archivo de Excel dos veces.

De hecho, el problema viene del hecho de que estaba usando el evento de clic del botón de alternancia. Al usar el evento 'Con el ratón presionado', se abre solo una vez.

¡He entendido! Era necesario añadir una referencia (en herramientas) para que los objetos de Excel fueran reconocidos desde Access.