Этот код пытается сохранить файл в каталоге C: \. Имя файла - это ссылка на ячейку (PS: ячейка - это формула, а не значение, я не знаю, влияет ли это на мою ошибку.)
Я получаю ошибку:
"Ошибка времени выполнения" 1004 ": Microsoft Excel не может получить доступ к файлу" C: \ "Строка случайных чисел" ".
Sub Save_File()
Dim FileNameStr As String
Dim Path As String
FileNameStr = Worksheets("Data").Range("B19")
Path = "C:\" & FileNameStr & ".xlsm"
ThisWorkbook.SaveAs filename:=Path, FileFormat:=xlOpenXMLWorkbookMacroEnabled
End Sub