Solved SaveAs not erroring, but doesn't appear to do anything (1 Viewer)

[Alc]

I have the following code which I found online in a standalone sub procedure, just to test it out for future use.
It's in Access 2010, in case that makes a difference.

                Dim xlApp As Excel.Application
                Dim xlWB As Excel.Workbook
                Dim strMasterBook as string

                strMasterBook = "P:\QE\New Model Activity\Automobile\PQS\IQS project\PQS data\_2022\AllData_2022.xlsm"
               
                Set xlApp = New Excel.Application
                xlApp.Visible = True
                Set xlWB = xlApp.Workbooks.Add
    MsgBox "5"
                xlWB.SaveAs strMasterBook
    MsgBox "6"
                xlWB.Close SaveChanges:=False
                Set xlWB = Nothing
                xlApp.Quit
                Set xlApp = Nothing

The code runs as far as opening Excel and producing Msgbox "5", then skips straight to the end.
No error message is displayed, but it's not saving the file and it's ignoring the rest of the code and leaving an Excel process hanging.
I figure there has to be something simple I'm missing.

I've debugged to confirm that strMasterBook is correctly set.
I've tried hard coding in the filepath, in case the variable was causing the problem.

Any ideas?

 

[arnelgp]

do you have all the folders and subfolders on P:
do you have Right to Create in that folder?

 

[Alc]

do you have all the folders and subfolders on P:
do you have Right to Create in that folder?

Yes and yes.
I should have said, I can manually create that file without any problems.

 

[arnelgp]

you did not Specify the Format of the workbook (which is Macro Enabled):

..
..
xlWB.SaveAs strMasterBook, xlOpenXMLWorkbookMacroEnabled '52

 

[Minty]

I think you need to close the App workbook to prevent the Excel process from being left behind.

xlApp.Workbooks.Close
Set xlApp = Nothing

 

[Alc]

you did not Specify the Format of the workbook (which is Macro Enabled):

..
..
xlWB.SaveAs strMasterBook, xlOpenXMLWorkbookMacroEnabled '52

Thank you! I knew it wouldn't be something complicated.
Works like a charm now.

 

[Alc]

I think you need to close the App workbook to prevent the Excel process from being left behind.

xlApp.Workbooks.Close
Set xlApp = Nothing

Thanks.
Once I got past the 'save' problem, the process did close as wanted.