08/12/03 14:40:07 PwT6Xghb0
>>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