ник: 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