Public Function ReadExcel(FileName,SheetName,Area)
Set excel=CreateObject("Excel.Application")
excel.workbooks.open(FileName)
set Oange =excel.worksheets(SheetName).Range(Area)
ReadExcel=Oange.Value
Set Oange=Nothing
excel.workbooks.item(1).close
excel.quit
set excel=Nothing
End Function
Set excel=CreateObject("Excel.Application")
excel.workbooks.open(FileName)
set Oange =excel.worksheets(SheetName).Range(Area)
ReadExcel=Oange.Value
Set Oange=Nothing
excel.workbooks.item(1).close
excel.quit
set excel=Nothing
End Function