Sub Autosave()
Dim FileName As String
FileName = Sheets("Sheet1").Range("A1").Text
ActiveWorkbook.SaveAs FileName:="C:\Users\PC\Desktop\" & FileName _
, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub
Как сохранить определенную книгу, которые открылиавтосохранение конкретные книги
Вы можете цикл через открытые рабочие книги, как эта
For Each w In Application.Workbooks
'You can simply save the current book
w.Save
'Or get the name and save it to a location as you were
Dim FileName As String
FileName = ActiveWorkbook.Name
ActiveWorkbook.SaveAs FileName:="C:\Users\PC\Desktop\" & FileName, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Next w
Если говорить о сохранении рабочей книги, который открыт только использовать 'ActiveWorkbook.Save' – MatthewD
У меня есть код для сохранения открытого файла excel, но проблема в том, что у меня открыто более двух книг. Sub Macro1() Sheets ("Лист1") Выберите Sheets ("Лист1") Copy End Sub Sub автосохранения() ActiveWorkbook.SaveAs Имя файла:.. = "C: \ Users \ PCNAME \ Desktop \ "& Листы (" Лист1 "). Диапазон (« A1 »). Текст, _ ФайлФормат: = xlOpenXMLWorkbookMacroEnabled, CreateBackup: = False Конец Sub 1-й код создает новую книгу из необработанного файла, на котором выполняются все вычисления , Новое имя файла «Book1» 2-й код сохраняет активную книгу, но не сохраняет новую созданную книгу. –