- 331 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/12/03(水) 14:40:07 ID: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
