Working with Excel Object

'****************************************************************************
''To Read The Data From Excel
'****************************************************************************

Set ExcelObj = CreateObject("Excel.Application")
ExcelObj.Workbooks.Open "C:\TestData.xls"
Set WorkSheet = ExcelObj.Sheets.Item(1)
sUserName= WorkSheet .Cells(2,1)
sPasswd = WorkSheet .Cells(2,2)
sKeyWord = WorkSheet .Cells(2,3)
ExcelObj.ActiveWorkbook.Save
ExcelObj.Application.Quit

'****************************************************************************
''To Write the Data into Excel
'****************************************************************************

Set ExcelObj = CreateObject("Excel.Application")
ExcelObj.Workbooks.Open "C:\TestData.xls"
Set WorkSheet = ExcelObj.Sheets.Item(1)
WorkSheet .Cells(i,1) = "Pass"
WorkSheet .Cells(i,2) = "Remarks"
ExcelObj.ActiveWorkbook.Save
ExcelObj.Application.Quit

'****************************************************************************
'To Count the Row & columns
'****************************************************************************

Set ExcelObj = CreateObject("Excel.Application")
ExcelObj.Workbooks.Open "C:\TestData.xls"
Set objUsedRange = ExcelObj.Worksheets(sSheetIndex).UsedRange()
msgbox objUsedRange.rows.Count
msgbox objUsedRange.Columns.Count
ExcelObj.ActiveWorkbook.Save
ExcelObj.Application.Quit

'****************************************************************************

'****************************************************************************