;==========================================================================================================================================
;
;  How to fill an Excel workbook at the example of a multiplication table.
;
; (c)20100222.Detlev Dalitz.
;==========================================================================================================================================

objXL = ObjectCreate ("Excel.Application")

objXL.Visible = @TRUE

objWorkbooks = objXL.WorkBooks
objWorkbooks.Add

strNumbers = "One Two Three Four Five Six Seven Eight Nine Ten"
intOffset = 1
intRow = 0

While intRow < 10
   intCol = 0
   intRow = intRow + 1
   strNumber = ItemExtract (intRow, strNumbers, " ")
   intColIndex = intRow + intOffset

   ; Column Heading.
   objCells1 = objXL.Cells(1, intColIndex)
   objCells1.Value = strNumber
   ; Add special properties.
   objMyFont = objCells1.Font
   objMyFont.FontStyle = "BOLD"
   objMyFont.size = 12
   objMyFont.ColorIndex = 3 ; RED.

   ; Row Heading.
   objCells1 = objXL.Cells(intRow + 1, 1)
   objCells1.Value = strNumber
   ; Add special properties.
   objMyFont = objCells1.Font
   objMyFont.FontStyle = "BOLD"
   objMyFont.size = 12
   objMyFont.ColorIndex = 3 ; RED.

   While intCol < 10
      intCol = intCol + 1
      ; Sets values of cells.
      intValue = intRow * intCol
      objCells1 = objXL.Cells(intRow + intOffset, intCol + intOffset)
      objCells1.Value = intValue
      ; Add special properties.
      objMyFont = objCells1.Font
      objMyFont.FontStyle = "BOLD"
      objMyFont.size = 10
   EndWhile
EndWhile

DropWild ("obj*")
Display (2, "WinBatch OLE Sample", "Complete.")
Exit