Running Excel Macro from Access (cont'd)?

[chazan]

First of all I am using Access 97. Before using the following code I reference the Microsoft Excel 8.0 Object Library. The code doesn't run though- when I try to execute nothing happens. Here is the code:

Option Compare Database
Option Explicit

Sub RunXlMacro()
Dim appXL As Excel.Application
Dim wbk As Excel.Workbook

Set appXL = New Excel.Application

Set wbk = appXL.Workbooks.Open("D:DeleteMe.xls")

appXL.Run wbk.Name & "!Test"
wbk.Close False
appXL.Quit

Set appXL = Nothing

End Sub

I am new so please excuse my ignorance Thanks.

 

[parry]

On 2003-01-08 13:56, chazan wrote:
First of all I am using Access 97. Before using the following code I reference the Microsoft Excel 8.0 Object Library. The code doesn't run though- when I try to execute nothing happens. Here is the code:

Option Compare Database
Option Explicit

Sub RunXlMacro()
Dim appXL As Excel.Application
Dim wbk As Excel.Workbook

Set appXL = New Excel.Application

Set wbk = appXL.Workbooks.Open("D:DeleteMe.xls")

appXL.Run wbk.Name & "!Test"
wbk.Close False
appXL.Quit

Set appXL = Nothing

End Sub

I am new so please excuse my ignorance Thanks.

Hi, Ive never tried to do this before, but in a test I did the following where Test is the name of a macro within the Excel file....

Sub RunXlMacro()
Dim appXL As Excel.Application
Dim wbk As Excel.Workbook

Set appXL = New Excel.Application
Set wbk = appXL.Workbooks.Open("C:1.xls")

appXL.Run "Test"
appXL.Quit

Set appXL = Nothing

End Sub

Are you trying to run an Excel macro or an Access macro?

EDIT: Note that backslashes in the path are in the code but dont appear in this post - something to do with BBCode and HTML.
_________________
cheers
Parry
This message was edited by parry on 2003-01-22 16:44