-Excel bestand openen vanuit excel-

[lab4]

ik wil een excel bestand openen vanuit acces. Het lukt me om excel te laten openen maar dan moet er nog code bij dat hij het bestand opent.

Enig idee?

On Error GoTo Err_cmdOpenExcel_Click

Dim oApp As Object

Set oApp = CreateObject("Excel.Application")
oApp.Visible = True
'Only XL 97 supports UserControl Property
On Error Resume Next
oApp.UserControl = True

Exit_cmdOpenExcel_Click:
Exit Sub

Err_cmdOpenExcel_Click:
MsgBox Err.Description
Resume Exit_cmdOpenExcel_Click

End Sub

 

[ilse DD]

Dim oApp As Object

Set oApp = CreateObject("Excel.Application")
oApp.Visible = True
On Error Resume Next
oApp.UserControl = True
oApp.Workbooks.Open Filename:="c:\plaats en naam van het bestand.xls"