Save Workbook Error Microsoft Excel cannot access the file

[martipe1]

I'm trying to save a new workbook and I get the following error:

Run-time error 1004
Microsoft Excel cannot access the file 'C:\6A3EF000".

The code is:

Dim WB As Workbook
Set WB = Workbooks.Add

WB.SaveAs "C:\Report.xlsx"

I also tried:
ActiveWorkbook.SaveAs "C:\Report.xlsx"

Same result, just the file name changes in the error message because is creating a new workbook.

Any idea of what can be wrong?

Thanks

 

[cmowla]

The main issue is that C drive is denying you access. So you have to save it in Documents, Desktop, etc. And it's really a good idea if you append , 61 since you want to save as a .xlsx file extension type. (See XlFileFormat enumeration (Excel) . )

(Of course change the file path to your computer's. (Remove "Chris".)

Sub Save_New_Workbook()

Dim WB As Workbook
Set WB = Workbooks.Add
WB.SaveAs "C:\Users\Chris\Desktop\My Novel\Report.xlsx", 61
Set WB = Nothing

End Sub

 

[martipe1]

The main issue is that C drive is denying you access. So you have to save it in Documents, Desktop, etc. And it's really a good idea if you append , 61 since you want to save as a .xlsx file extension type. (See XlFileFormat enumeration (Excel) . )

(Of course change the file path to your computer's. (Remove "Chris".)

Sub Save_New_Workbook()

Dim WB As Workbook
Set WB = Workbooks.Add
WB.SaveAs "C:\Users\Chris\Desktop\My Novel\Report.xlsx", 61
Set WB = Nothing

End Sub

Thank you very much for your answer and solution, didn't think c drive was not accessible, I changed to temp directory and kill the file at the end.

I used in the end ActiveWorkbook.SaveAs to save my file and I believe file extension type doesn't apply.

Just one more question. Why use type 61 and not 51?

Thanks!!

 

[cmowla]

Thank you very much for your answer and solution, didn't think c drive was not accessible, I changed to temp directory and kill the file at the end.

I used in the end ActiveWorkbook.SaveAs to save my file and I believe file extension type doesn't apply.

Just one more question. Why use type 61 and not 51?

Thanks!!

You are correct, it should be 51. (Sorry. I saw .xlsx 10 lines too late!) See Save Workbook As for a second opinion which agrees.