Sub obj2() 'скрипт копирования файла excel из таблицы excel и заполнение ячеек на основании таблицы excel

Dim objExcel As Object
Dim FileStart
Dim FileNew

'обновление ячейки для добавления времени в имя файла
Range("E29").FormulaR1C1 = "=NOW()"

Set objExcel = CreateObject("Excel.Application")

'исходный файл (шаблон), можно указать путь "g:\2.xlsx" или "\\fuib.com\kho\DOCUMENTYOOKUTU\..."
FileSt = Range("C30").Value

'новый файл, можно указать путь "g:\5.xlsx" или "\\fuib.com\kho\DOCUMENTYOOKUTU\..."
FileNew = Range("C33").Value

Set objWorkbook = Workbooks.Open(FileSt)

'если написать objExcel.Application.Visible = True, то Шаблон появляться будет
objExcel.Application.Visible = False

' описание файлов при сохранении https://www.mrexcel.com/board.....759381
ActiveWorkbook.SaveAs _
Filename:=FileNew, _
FileFormat:=xlOpenXMLWorkbook, _
CreateBackup:=False
objExcel.Quit

'открытие нового файла
Dim objExcelApp As Object
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = Workbooks.Open(FileNew)
objExcel.Visible = True 'если написать oobjExcel.Visible = False, то Шаблон появляться не будет

'активация окна нового файла
Workbooks(2).Activate
ActiveWindow.WindowState = xlMaximized

'пауза 2 сек.
Application.Wait (Now() + TimeValue("00:00:02"))

'открытие "Проводника" в папке; источник https://vremya-ne-zhdet.ru/vba-exc....vodnike
Shell "cmd /C start """" ""\\fuib.com\kho\DOCUMENTYOOKUTU\Кулиничев\! открытие счетов\avto\готовые документы\""", vbNormalFocus

End Sub