Acceste bir tuşla, excel dosyası açtırma

[ArcMacDom]

Slm.
Access'de hazırladığınız bir form'a ekleyeceğiniz bir tuşa bastığınızda bir (örnek:deneme.xls) isimli bir excel dosyasını açmasını nasıl sağlayabiliriz?

 

[Haluk]

Merhaba;


Access makrolarından pek anlamam ama kurcalarken aşağıdaki gibi bir kod türettim;

Private Sub Command0_Click()
On Error GoTo Err_Command0_Click

    Dim oApp As Object

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

Exit_Command0_Click:
    Exit Sub

Err_Command0_Click:
    MsgBox Err.Description
    Resume Exit_Command0_Click
  
End Sub

 

[genesis]

Bu kodlara aşağıdaki satırlarıda eklerseniz ,istediğiniz excel sayfasını ve hücreyide seçebilirsiniz.
'
'
oApp.workbooks.Open "C:\Deneme.xls"

oApp.Sheets("Sheet2").Select
oApp.Range("A5").Select

On Error Resume Next
'
'

 

[mbankaar]

Haluk bey ve genesis verdiğiniz bilgiler için teşekkürler. Benim de aradığım bir konuydu. Sorunu çözdüm.