OpenOffice.org PART8 - 暇つぶし2ch

OpenOffice.org PART8 ..

331:名無しさん＠お腹いっぱい。
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

次ページ