for i = 1 to 20
AddNumbers
FormatNumber
Next
Sub AddNumbers
objExcel.Visible = True
Set objWorkbook = objExcel.Workbooks.open("abc.xlsx")
set objWorksheet= objWorkbook.Worksheets("MySheet")
objWorksheet.Activate
Wait(2)
objExcel.Cells(RowCount,1) = 89.98
objExcel.Cells(RowCount,1) = 11.3
objExcel.Cells(RowCount,1) = 19.00
objExcel.ActiveWorkbook.Save
objExcel.application.quit
End Sub
Sub FormatNumber
objExcel.Visible = True
Set objWorkbook = objExcel.Workbooks.open("abc.xlsx")
set objWorksheet= objWorkbook.Worksheets("MySheet")
objWorksheet.Activate
Wait(2)
objExcel.Columns.NumberFormat = 0
objExcel.ActiveWorkbook.Save
objExcel.application.quit
End Sub
Set objExcel = nothing
set objWorkbook = nothing
Set objWorksheet = nothing