How do I open an Excel Spreadsheet from Access using VBA

[Guest]

Running Access 2003 and need to open an Excel spreadsheet to run an excel
macro by clicking a button on an Access Form. Does anyone have some code
samples that show this?

 

[Dave Patrick]

This may give you some ideas.

Function Open_TrainLoadingEast()
Dim xlApp As Variant
Dim xlBook As Variant
Set xlApp = CreateObject("Excel.Applicatio­n")
Set xlBook = xlApp.Workbooks.Open("C:\data\­excel\TrainLoading.xlt")
xlApp.sheets("Data").range("e1­") = Forms!frmLoading.txtDate
xlApp.sheets("Data").range("e2­") = Forms!frmLoading.opt1.Value
xlApp.Run "EastPrint"
'xlApp.Application.Visible = True
xlBook.Close (False)
xlApp.Quit
Set xlApp = Nothing
Set xlBook = Nothing
End Function


--

Regards,

Dave Patrick ....Please no email replies - reply in newsgroup.
Microsoft Certified Professional
Microsoft MVP [Windows]
http://www.microsoft.com/protect

:
| Running Access 2003 and need to open an Excel spreadsheet to run an excel
| macro by clicking a button on an Access Form. Does anyone have some code
| samples that show this?
| --
| Robbie