openoffice表格操作相关的一些宏例子

Sub Main
dim table as object
r_Tables = ()
iCount = r_Tables.getCount
'msgbox iCount
tTableNames = r_Tables.getElementNames
for i = 0 to iCount-1
    if tTableNames(i) = "table"then
        table = r_Tables.getByName("table")
        end if
next i
oTableCursor = ("A1")
'(2,true)
(2,true)
'("A3",true)
(4,false)
End Sub