Открытый документ в Excel представляет переменная Workbook. C ее помощью мы можем использовать свойства Save и SaveAs. вы можете сохранить документ с актуальным либо новым названием. Dim myExcel As Excel.Application, myWb As Workbook 'декларация переменных
Set myExcel = New Excel.Application 'инициализация
Set myWb = myExcel.Workbook.Open("C:\test.xls") 'открытие книги
'Сохранение книги с актуальным названием
myWb.Save
'Сохранение книги с новым названием
myWb.SaveAs "C:\test2.xls"
'Сохранение с новым именем и паролем pass.
myWb.SaveAs "C:\test3.xls", , "pass"
myExcel.Quit 'завершение
| 
