' Объявление объектов Excel
            Dim xl As New Excel.Application
            Dim xl_wb As New Excel.Workbook
            Dim xl_sh As New Excel.Worksheet
            ' Присвоение значений объектам Excel
            Set xl = CreateObject( "Excel.Application" )
            Set xl_wb = xl.Workbooks.Open([файл])
            Set xl_sh = xl_wb.Worksheets( 1 )
            ' выполняем действия
            ' закрываем
        xl_wb.SaveAs [файл], xlExcel9795, , , , , , xlLocalSessionChanges
        xl.Quit
        
    Set xl_sh = Nothing
    Set xl_wb = Nothing
    Set xl = Nothing