Run time error 91

[Garners Workshop]

Hi I have built a working database in Access 2007 not using SQL server.
I have upgraded to Access 2013 Office

Tis code to create and save worked now makes error 91 please help.


Call Shell("explorer.exe " & "C:\Allfiles\Job Template\Job Template.xlsm", vbNormalFocus)
Dim xlBook As Object
Dim xlApp As Object

Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Application.activeworkbook

xlApp.Application.activeworkbook.saveas ("C:\Allfiles\Jobs\") & [Job No] & (".") & [Job Name] & ("\Costs") & (" ") & [Job Name]
MsgBox "Work Book saved!"


Resulting error

Runtime error '91'
object variable or with block variable not set

 

[pr2-eugin]

Hello Garners Workshop, Welcome to AWF

Can you please highlight which section of the code you are getting the error?

 

[Garners Workshop]

Hi Paul I think this line of code is causing the error

xlApp.Application.activeworkbook.saveas ("C:\Allfiles\Jobs\") & [Job No] & (".") & [Job Name] & ("\Costs") & (" ") & [Job Name]


Thanks Nick.

 

[pr2-eugin]

Why all the parentheses? And there is no file extension.

xlApp.Application.ActiveWorkbook.SaveAs "C:\Allfiles\Jobs\" & [Job No] & "." & [Job Name] & "\Costs " & [Job Name] & ".xls"

 

[Garners Workshop]

Hi Paul I have followed your suggestions but error remains (Thanks good suggestions I will remember these ) Any other Ideas ? Nick.

 

[pr2-eugin]

Are you sure that the [Job No] and [Job Name] have values? Did you try some debugging?