Ooo 與 vba 的兼容性

　
用 google 找了一個早上，沒甚麼文件提及 Ooo 兼容了 vba 的那些特性，
只好自已動手試。

以下的 vba 碼都成功用於 Ooo 上。
　
REM ***** BASIC *****

' 宣告與 vba 相容
Option VBASupport 1

Sub Main
　
Workbooks.Open Filename:="c:\Ooo\no1.ods" ', ReadOnly:=True
Workbooks.Open Filename:="c:\Ooo\no2.ods" ', ReadOnly:=True
　
'Workbooks("no1.ods").Workbookssheet
'print activesheet.name
set rng = Workbooks("no2.ods").Worksheets("Data").Range("A1:D10")
Workbooks("no1.ods").Worksheets("sheet2").Range("A1:D10").Value = rng.Value
　
Workbooks("no2.ods").Worksheets("Data").Range("e1")="Worksheets(Data)"
Workbooks("no1.ods").Worksheets("sheet2").Range("e1")="Worksheets(sheet2)"
　
End Sub