Сохранение файла xlsm с именем определенной ячейки с помощью макроса vba.

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

// Johan

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