學習記錄：OpenOffice Basic (6)

　　
rem ##### 兩個 SPREADSHEET 間切換

REM ***** BASIC *****

Sub Main

sFile2 = "C:\Documents and Settings\Administrator\My Documents\man_test_oo1.ods" ' Windows
'sFile = "/home/danny/Desktop/MyCalc.sxc" ' Linux
sURL2 = ConvertToURL(sFile2)
oDoc2 = StarDesktop.loadComponentFromURL(sURL2, "_blank", 0, Array())

sFile1 = "C:\Documents and Settings\Administrator\My Documents\nextSpreadsgeet.ods" ' Windows
'sFile = "/home/danny/Desktop/MyCalc.sxc" ' Linux
sURL1 = ConvertToURL(sFile1)
oDoc1 = StarDesktop.loadComponentFromURL(sURL1, "_blank", 0, Array())

REM ##### 將焦點放回第一個開啟的 man_test_oo1.ods
oDoc2.CurrentController.Frame.ContainerWindow.toFront()
oDoc2.CurrentController.Frame.Activate()

End Sub