1.Open Office Excel:
Set o=CreateObject("Excel.Application")
o.Visible=True
wscript.sleep 2000
o.Quit

2.Creating WorkBooks:                                     
Set o=CreateObject("Excel.Application")
o.Visible=True
o.WorkBooks.Add
o.ActiveWorkBook.SaveAs("C:\Users\Kazi\Desktop\Fruit.xlsx")
o.Quit

3.Adding Sheets in WorkBook:
Set exobj=CreateObject("Excel.Application")
exobj.visible=true
Set wb=exobj.WorkBooks.Add()
Set ws=exobj.WorkSheets.Add()
ws.Name="Fruit"
exobj.ActiveWorkBook.SaveAs("C:\Users\Kazi\Desktop\Tree.xlsx")
wscript.sleep 10000
exobj.Quit


' exobj.WorkBooks.WorkSheets.Add() doesn't work
' exobj.WorkSheets.Add() doesn't work
' In Object model worksheet comes directly under the application object not workBooks

4.Adding values in sheets:
Set x=CreateObject("Excel.Application")
x.Visible="True"
Set wb=x.WorkBooks.Add()
x.WorkSheets("Sheet1").cells(1,1).Value="Windows XP"
x.WorkSheets("Sheet1").cells(1,2).Value=2001
x.WorkSheets("Sheet2").cells(1,1).Value="Windows Vista"
x.WorkSheets("Sheet2").cells(1,2).Value=2006
x.WorkSheets("Sheet3").cells(1,1).Value="Windows 7"
x.WorkSheets("Sheet3").cells(1,2).Value=2009
x.ActiveWorkBook.SaveAs("C:\Users\Kazi\Desktop\Windows Timeline")
wscript.sleep 2000
x.quit

'Use WorkSheets("Sheet1") or WorkSheets(1) for the sheet reference.