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.