Print diagonal values in an execl sheet
set exec_app=createobject("excel.application")
set MyFile=exec_app.workbooks.open("D:\Book1")
Set my_sheet=MyFile.sheets("Sheet3")
my_sheet.activate
iRow=my_sheet.usedrange.rows.count
msgbox iRow
For i=1 to iRow
x=my_sheet.cells(i,i).value
temp=temp+x
Next
msgbox temp
exec_app.Quit
Print the sum of numbers in the execl sheet
set exec_app=createobject("excel.application")
set MyFile=exec_app.workbooks.open("D:\Book1")
Set my_sheet=MyFile.sheets("Sheet3")
my_sheet.activate
iRow=my_sheet.usedrange.rows.count
iCol=my_sheet.usedrange.columns.count
For i=1 to iRow
For j=1 to iCol
x=my_sheet.cells(i,j).value
'msgbox x
temp=temp+x
next
next
msgbox temp
exec_app.Quit
