通过VBA宏保存具有特定单元名称的xlsm文件

Question

I'm trying to make a button that saves my workbook with the name of a specific cell from one of its own sheets.

The cell that I'm getting the name from is gonna change it's value each week. I get the error:

Run-time error '1004':
Method 'SaveAs' of object'_Workbook' failed

Here is the code:

Private Sub Save_file_Click()
Dim path As String
Dim filename1 As String
Dim ws As Worksheet

Set ws = ActiveWorkbook.Sheets("Fejlregistrering")

path = "C:\Users\JOHLA\Desktop\Yield ark\"
filename1 = ws.Range("D5").Text
ActiveWorkbook.SaveAs path & filename1 & ".xlsm", FileFormat =  xlOpenXMLWorkbookMacroEnabled


End Sub

//Johan

Answer 1

Change

ActiveWorkbook.SaveAs path & filename1 & ".xlsm", FileFormat = xlOpenXMLWorkbookMacroEnabled

to

ActiveWorkbook.SaveAs Filename:=(path & filename1 & ".xlsm"), FileFormat:=xlOpenXMLWorkbookMacroEnabled

Answer 2

尝试以下

ActiveWorkbook.SaveAs Filename:=path & filename1, FileFormat:=xlOpenXMLWorkbookMacroEnabled