Error 800A9C68 running VBS using task scheduler

[shekkikim]

Hello,

I keep getting this windows script host error.

Script: C\top 5 macro.vbs
Line: 5
Char: 1
Error: Unknown runtime error
Code: 800A9C68
Source: Microsoft VBScript runtime error

Dim xlApp
Dim xlBook
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("S:\Operations\Daily Reports\Top 5\top five macro.xlsm", 0, True)
xlApp.Run "WeeklyReports"
xlBook.Close
xlApp.Quit
Set xlBook = Nothing
Set xlApp = Nothing

Any help or insight you guys can provide is greatly appreciated!

Thanks,

Shekk

 

[shg]

Try

xlApp.Run "'" & xlBook.Name & "'!WeeklyReports"

 

[shekkikim]

whoops.

Edit: I just saw the same error Msg. It was hidden behind all my programs.

 

[shg]

Do you know what line fails?

If not, delete lines from the bottom until the failure does away.

 

[shekkikim]

I believe the line that fails is:

Set xlBook = xlApp.Workbooks.Open("S:\Operations\Daily Reports\Top 5\top five macro.xlsm", 0, True)

 

[shg]

Does it work if you run it as a VBA macro in Excel?

 

[shekkikim]

I just ran it through VBA and the error actually is at

[COLOR=#333333]xlApp.Run "'" & xlBook.Name & "'!WeeklyReports"[/COLOR]

Two things are happening now:

1. It says that the file is locked for editing by 'another user' (There is no other user)
2. Run-time error '440': Automation Error

 

[shg]

You don't already have the workbook open in the current Excel instance, do you?

 

[shekkikim]

No I opened a blank excel file, put the code into it, and then ran it. There are no other instances of excel running. I honestly am pretty baffled with this. Would it help if I posted the code? It's a bit of a read and a bit messy.

 

[shg]

Would it help if I posted the code?

I thought that was the code.