[VBA/ACCESS] Aprire file Excel Esistente

[nadia79]

Ciao a tutti,
devo far aprire tramite un pulsante e l'evento click un file Excel "statico" ho provato in questo moda ma non funziona:

Private Sub cmdExcel_Click()
On Error GoTo Err_cmdExcel_Click

Dim oApp As Object

Set oApp = CreateObject("Excel.Application")
oApp.Visible = True
oApp.Documents.Open ("C:\Statistiche.xls")
    
On Error Resume Next
oApp.UserControl = True

Exit_cmdExcel_Click:
    Exit Sub

Err_cmdExcel_Click:
    MsgBox Err.Description
    Resume Exit_cmdExcel_Click
End Sub

Dove sbaglio? Possibile che aprire un foglio Excel nuovo è facile (tutto guidato) e aprire un file esistente sia un problema? :master:

[Brainjar]

Prova con :

    oApp.Workbooks.Open("C:\Statistiche.xls")
    ' al posto di 
    oApp.Documents.Open ("C:\Statistiche.xls")

[Brainjar]

Ho rispolverato una vecchia routine in VB60 :

            Set xl = CreateObject("Excel.Application")

            ' dove sSource = path completo del tuo file .xls 

            With xl
                .Workbooks.Add
                .Workbooks.Open sSource
                .Sheets(sSheet).Activate
                .Visible = True
            End With

[Brainjar]

Chiarimento.

            Set xl = CreateObject("Excel.Application")

            ' dove sSource = path completo del tuo file .xls 
            ' dove sSheet  = Nome del foglio ("Sheet 1" o "Foglio 1" a seconda della versione di Excel  

            With xl
                .Workbooks.Add
                .Workbooks.Open sSource
                .Sheets(sSheet).Activate
                .Visible = True
            End With