- Code: Select all Expand view
- // 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
I am able to work with Excel with other languages from FWH with Harbour.
I still could not figure out if this is possible with xHarbour.