lole_Excel = Create OleObject
lole_Excel.ConnectToNewObject("Excel.Application")

lole_Workbook = Create OleObject
lole_Workbook = lole_Excel.Application.Workbooks.Open(as_path_name)

lole_Worksheet = Create OLEObject
lole_Worksheet = lole_Excel.Application.Workbooks(lole_Workbook.Name).Worksheets( 1 )

lole_Range = Create OLEObject
lole_Range = lole_Worksheet.UsedRange


/****************************КОД***************************/


If IsValid(lole_Range) Then 
    lole_Range.DisconnectObject()
    Destroy lole_Range
end if

If IsValid(lole_Worksheet) Then 
    lole_Worksheet.DisconnectObject()
    Destroy lole_Worksheet
end if

If IsValid(lole_Workbook) Then 
    lole_Workbook.DisconnectObject()
    Destroy lole_Workbook
end if

If IsValid(lole_Excel) Then 
    lole_Excel.Quit()
    lole_Excel.DisconnectObject()
    Destroy lole_Excel
end if