请先安装工具
引用网址 | |
---|---|
OpenOffice开发文档PDF_sdk(英文) | http://www.openoffice.org/api/basic/man/tutorial/tutorial.pdf |
JDK1.8 32位 | https://www.7down.com/soft/267473.html |
OpenOffice4.1.7中文版 | https://www.openoffice.org/download/ |
OpenOffice_百度百科
https://baike.baidu.com/item/OpenOffice/7384410?fr=aladdin
Private Sub Command1_Click()
good_新建一个表和DOC
End Sub
Private Sub Command3_Click()
'新建Excel类表格
Dim mNoArgs()
Dim oSpreadsheetDocument As Object
Dim oTextDocument As Object
'Using StarOffice API - Basics 19
Dim oSM As Object
Set oSM = CreateObject("com.sun.star.ServiceManager")
Dim oDesktop
Set oDesktop = oSM.CreateInstance("com.sun.star.frame.Desktop")
'oDesktop = createUnoService("com.sun.star.frame.Desktop")
Dim sUrl
sUrl = "private:factory/scalc"
Set oSpreadsheetDocument = _
oDesktop.loadComponentFromURL(sUrl, "_blank", 0, mNoArgs())
'GetCell = oSheet.getCellByPosition(nColumn, nRow)
Dim oSheet As Object
Set oSheet = oSpreadsheetDocument.getSheets().getByIndex(0)
Dim Row As Long, Col As Long
Row = 2
Col = 2
Dim s As String
For Row = 1 To 3
For Col = 1 To 5
'oSheet.getCellByPosition(Col - 1, Row - 1).Value = Row & Col
s = "v" & Row & Col
'oSheet.getCellByPosition(Col - 1, Row - 1).v = Row & Col'数值
oSheet.getCellByPosition(Col - 1, Row - 1).String = s '文本
Next
Next
End Sub
Sub good_新建一个表和DOC()
Dim mNoArgs()
Dim oSpreadsheetDocument As Object
Dim oTextDocument As Object
'Using StarOffice API - Basics 19
Dim oSM As Object
Set oSM = CreateObject("com.sun.star.ServiceManager")
Dim oDesktop
Set oDesktop = oSM.CreateInstance("com.sun.star.frame.Desktop")
'oDesktop = createUnoService("com.sun.star.frame.Desktop")
Dim sUrl
sUrl = "private:factory/scalc"
Set oSpreadsheetDocument = _
oDesktop.loadComponentFromURL(sUrl, "_blank", 0, mNoArgs())
sUrl = "private:factory/swriter"
Set oTextDocument = _
oDesktop.loadComponentFromURL(sUrl, "_blank", 0, mNoArgs)
End Sub
Private Sub Command4_Click()
'打开一个WORD文件,GOOD
Dim mFileProperties(0) ' As New com.sun.star.beans.PropertyValue
Dim sUrl As String
Dim oSM As Object
Set oSM = CreateObject("com.sun.star.ServiceManager")
Dim oDesktop
Dim oDocument
Set oDesktop = oSM.CreateInstance("com.sun.star.frame.Desktop")
sUrl = "file:///" & App.Path & "\002word.doc"
sUrl = Replace(sUrl, "\", "/")
sUrl = GetFileName(App.Path & "\002word.doc")
'mFileProperties(0).Name = "FilterName"
'mFileProperties(0).Value = "scalc: Text - txt - csv (StarCalc)"
Set oDocument = oDesktop.loadComponentFromURL(sUrl, "_blank", 0, mFileProperties())
End Sub
Function GetFileName(ByVal sUrl As String) As String
sUrl = "file:///" & sUrl
sUrl = Replace(sUrl, "\", "/")
GetFileName = sUrl
End Function
Private Sub Command5_Click()
'打开一个Excel文件,GOOD
Dim mFileProperties(0) ' As New com.sun.star.beans.PropertyValue
Dim sUrl As String
Dim oSM As Object
Set oSM = CreateObject("com.sun.star.ServiceManager")
Dim oDesktop
Dim oDocument
Set oDesktop = oSM.CreateInstance("com.sun.star.frame.Desktop")
sUrl = GetFileName(App.Path & "\001excel.xls")
Set oDocument = oDesktop.loadComponentFromURL(sUrl, "_blank", 0, mFileProperties())
End Sub