ник: snipe
Dim xlsReportPath As String
Dim exclApp As Object
xlsReportPath = "C:\Users\Сергей\Desktop\test.xlsx"
Set exclApp = CreateObject("Excel.Application")
exclApp.Workbooks.Open (xlsReportPath)
exclApp.ActiveWorkbook.RefreshAll
exclApp.ActiveWorkbook.Save
exclApp.Quit
Set exclApp = Nothing