// Build with Harbour and FWH

#include "fivewin.ch"

function Main()

   local oExcel, oBook, oSheet
   local n

   FW_SetUnicode( .T. )
   HB_CDPSELECT( "UTF8" )

   oExcel      := ExcelObj()
   oBook       := oExcel:WorkBooks:Add()
   oSheet      := oBook:ActiveSheet

   oSheet:Cells( 1, 1 ):Value    := "TELUGU"
   oSheet:Cells( 1, 2 ):Value    := "HINDI"
   oSheet:Cells( 1, 3 ):Value    := "CHINESE"

   oSheet:Cells( 2, 1 ):Value    := "రామ చంద్ర మూర్తి"
   oSheet:Cells( 3, 1 ):Value    := "సాంబ శివ రావు"
   oSheet:Cells( 4, 1 ):Value    := "మురళిధర"

   oSheet:Cells( 2, 2 ):Value    := "सर्वे जनम सुखिनो भवतु"
   oSheet:Cells( 3, 2 ):Value    := "वसुधैका कुटुम्बम"
   oSheet:Cells( 4, 2 ):Value    := "ॐ शांति शांति शांति"

   oSheet:Cells( 2, 3 ):Value    := "我們都是一家人。"
   oSheet:Cells( 3, 3 ):Value    := "中國是一個大國"
   oSheet:Cells( 4, 3 ):Value    := "隨著最熱情的問候"


   for n := 1 to 3
      oSheet:Columns( n ):AutoFit()
   next

   oExcel:Visible := .t.

return nil