hi guys,
      I want to read some data from each of the files from a directory
and save it to database.In the time of read operation each excel file is
open but not close after read from the file. After processing of all
files the excel is closed.
here is the code..
code

count=3D100
i=3D0
while i<count
i=3Di+1
begin
excel =3D WIN32OLE::new('excel.Application')   # create winole Object
    workbook =3D excel.Workbooks.Open("#{path}") # Open the Excel file
    worksheet =3D workbook.Worksheets(1) #get hold of the first =
worksheet
    worksheet.Select      # select the worksheet
    title =3D worksheet.Range('h3')['Value']  #get value of title
    excel.ActiveWorkbook.Close(0)    # close the workbook
    excel.Quit()       #  close Excel file
   rescue
     excel.Quit()
   ensure
     excel.Quit() unless excel.nil?
   end
end

code end

For 50/100 or more files, too many number of excel processes are shown
in the process list of Test manager.The cpu utility becomes 100% and
memory(RAM) becomes full and computer becomes very slow, almost hung.

Please review the code where I made mistake.

please help me.