Simple Example 03

REM  *****  BASIC  *****

Sub Main

    Dim oWrkBk    as Object
    Dim oRng      as Object
    Dim dArray(2,2)

    oWrkBk   = ThisComponent

    dArray(0, 0)   =   "Square 1"
    dArray(0, 1)   =   "Square 2"
    dArray(0, 2)   =   "Square 3"

    dArray(1, 0)   =   "Square 11"
    dArray(1, 1)   =   "Square 12"
    dArray(1, 2)   =   "Square 13"

    dArray(2, 0)   =   "Square 21"
    dArray(2, 1)   =   "Square 22"
    dArray(2, 2)   =   "Square 23"


    oRng = oWrkBk.Sheets(0).getCellRangeByName("C2:E4")

    oRng.setDataArray(dArray)

End Sub