Open Excel from Access

[rizabdullah]

Hi Guys

I am trying to open .XLSM excel file from Access module but I am getting error message "run time error -2147417846 (8001010a) automation error the message filter indicated that the application is busy".
My code is:
Function runExcelMacro(wkbookPath, macroName)
Dim objXLApp As Object
Dim objXLBook As Object
Set objXLApp = CreateObject("Excel.Application")
Set objXLBook = objXLApp.Workbooks.Open("K:\default\Access Routine\Final Files\Miniroll - Copy.xlsm")
objXLApp.Application.Visible = True
End Function

Can someone please advise...

Many thanks

 

[Ranman256]

Is EXCEL OBJECT LIBRARY in the VBE references?

Is K assigned as a drive letter?
You should always use UNC paths: \\server\folder\file.xls

but the rest looks correct.

 

[rizabdullah]

Many thanks for the response.
I have VB for application, MS Access 15.0 object library, MS DAO 3.6 object library, OLE Automation, MS VB basic for app extensibility 5.3, MS ActiveX data object 2.1 library & MS outlook 15.0 object library

 

[Gasman]

Why not Microsoft Excel xx.0 Object Library ?

 

[rizabdullah]

Just tried that, still same error. It's failing on:
Set objXLApp = CreateObject("Excel.Application")

 

[Ranman256]

thats usually all it takes.
It could be the PC. I have seen failures on 1 PC , but not another.
Can you try it another PC?

 

[arnelgp]

If the file is in use, it will not ipen. Add error handler on your code.

 

[rizabdullah]

The file is not is use. I will try this from another pc.

 

[Gasman]

I have the code below in one of my modules and that works fine?
Not sure what the difference would be, but worth trying?, if only to debug the problem.?

Set XLApp = New Excel.Application

 

[rizabdullah]

It works fine from another pc.

Many thanks for you assistance guys