FiveTech Support Forums

#include "FiveWin.ch"

Function XLSTabela()
   LOCAL objExcel, objExcelsheet, objWrkBooks, objCell

   amount  := 50.00
   taxrate := .0865

   objExcel         := TOleAuto():New( "Excel.Application" )
   objExcelsheet    := TOleAuto():New( "Excel.Sheet" )
   objWrkBooks      := objExcel:WorkBooks()

   objCell          := objExcelsheet:ActiveSheet()
   objExcel:Visible := .t.

   objExcel:WorkBooks:Add()

   oCellA1 := objExcel:Range("A1"):Select()
   objCell := objExcel:ActiveCell
   objCell:Value := amount

   oCellA2 = objExcel:Range("A2"):Select()
   objCell := objExcel:ActiveCell
   objCell:Value := taxrate

   oCellA3 = objExcel:Range("A3"):Select()
   objCell := objExcel:ActiveCell
   objCell:Formula := "=A1*A2"

   msgstop( objCell:Value )
   RETURN