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

Question

我试图做一个按钮，用自己的工作表中的一个特定单元格的名称保存我的工作簿。

我从中获取名称的单元格每周都会更改其值。 我得到错误：

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

这是代码：

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

//约翰

Answer 1

更改

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

至

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

Answer 2

尝试以下

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