Launching Exel from MS ACCESS

[Sillygirl]

Is there anyway to launch Excel from ACCESS?

 

[BradB]

Give this a try. I created a form with a command button called cmdImport.

Private Sub cmdImport_Click()
Dim objXL As Object

On Error GoTo err_cmdImport_click

On Error Resume Next
Set objXL = CreateObject("Excel.Application&quot

With objXL.Application
.Visible = True
'Open the Workbook
.Workbooks.Open "C:\YourExcelFile.xls"
.Quit
End With
Set objXL = Nothing

Hope this helps!

 

[BradB]

Oops, use this. I tried to cut and paste the code from my application, but left somethings you don't need. Try this:

Private Sub cmdImport_Click()
Dim objXL As Object

On Error Resume Next
Set objXL = CreateObject("Excel.Application&quot

With objXL.Application
.Visible = True
'Open the Workbook
.Workbooks.Open "C:\YourExcelFile.xls"
End With
Set objXL = Nothing

This should be better.

 

[Falcon99]

If you don't plan on VBA interaction try this:


i = Shell("excel.exe", 1)