我已經可以用ＶＢ呼叫出ＯＰＥＮ　ＣＡＬＧ的ＦＵＮＣＴＩＯＮ
可是我要找可以寫入資料的元件請問哪可以查到ㄋ

http://api.openoffice.org/SDK/index.html
http://api.openoffice.org/DevelopersGuide/DevelopersGuide.html

Developer's Guide 暫時我只見有簡體中文的翻譯 (StarOffice 8 版本)：
http://docs.sun.com/app/docs/doc/819-1325?l=zh

我現在想要使用VB6與Openoffice裡面的Calc文件相互連結,或者應該說希望透過VB6去撰寫一個類似Excel的文件資料.
不知這樣的source code範例或相關資訊要在哪邊才會有!
詳細應該是這樣的,以前我會使用Microsoft Excel Object Library去call excel產生.xls檔案.在Openoffice裡面,若也可以的話,將會非常的好.但不知哪邊可以找到相關的訊息或簡單的source code.

Leo

Dim objserviceManager As Object
Dim objDesktop As Object
Dim objDocument As Object
Dim args()



Public Sub openoffice()

Set objserviceManager = CreateObject("com.sun.star.ServiceManager")
'Create the Desktop
Set objDesktop = objserviceManager.createInstance("com.sun.star.frame.Desktop")
'args is the necessiory params
Set objDocument = objDesktop.loadComponentFromURL("private:factory/scalc", "_blank", 0, args)
Set oSheet = objDocument.getSheets().getByIndex(0)
With oSheet
For i = 1 To 9
For j = 1 To 9
.getCellByPosition(i, j).setString (i & "*" & j & "=" & i * j)
Next
Next
End With


End Sub



Private Sub cmDwrite_Click()
Call openoffice
End Sub


Private Sub Command1_Click()
Dim open_office_name As String

open_office_name = "calc.ods"
'xxx = "file:///" & Replace(xxx, "/","\/
Path = Replace(App.Path & "\" & open_office_name, "\ ", "/")
objDocument.storeToURL "file:///" & Path, args
objDocument.Close (True)
Label1.Caption = "Have write the file to your computer the path is : " & App.Path & "\" & open_office_name
End Sub

在VB6里我怎么找不到calc可用的引用呢？
要怎么设定才可以添加进来？