>>330
Sub Main1
nRows = 10

oDoc = ThisComponent
oSheet = oDoc.getCurrentController().getActiveSheet()

Dim sData(nRows)

For i = 0 To nRows step 1
sData(i) = Array("あああ" & Format(i, "00") & "いいい" & Format(i, "00") )
Next

oSheet.getCellRangeByPosition(0, 0, 0, nRows).setDataArray(sData)
End Sub