VB6-COM接口操作开源OpenOffice编辑Excel,Word文件(中国首创)

请先安装工具

	引用网址
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 SubPrivate 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 ObjectSet oSheet = oSpreadsheetDocument.getSheets().getByIndex(0)Dim Row As Long, Col As LongRow = 2Col = 2Dim s As StringFor Row = 1 To 3For Col = 1 To 5'oSheet.getCellByPosition(Col - 1, Row - 1).Value = Row & Cols = "v" & Row & Col'oSheet.getCellByPosition(Col - 1, Row - 1).v = Row & Col'数值oSheet.getCellByPosition(Col - 1, Row - 1).String = s '文本NextNextEnd SubSub 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 SubPrivate 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 FunctionPrivate 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

VB6-COM接口操作开源OpenOffice编辑Excel,Word文件(中国首创)相关推荐

Java开发在线打开编辑保存Word文件（支持多浏览器）
Java调用PageOffice实现在线编辑保存Word文件(以jsp调用为例,支持SSM.SSH.SpringMVC等流行框架) 1. 下载PageOffice开发包:http://www.zhuo ...
java开发在线打开编辑保存word文件
Java调用logo是"P"图标的第三方插件,实现在线编辑保存Word文件(以jsp调用为例,支持SSM.SSH.SpringMVC等流行框架) 工具/原料 Eclipse或MyE ...
JPG图片如何识别为可编辑的Word文件
我们在日常学习和工作中,不免会经常遇到图片式文档,这种形式的图片供于阅读时没有任何问题的,但是想要复制和编辑里面的文字就是一件很困难的事情,因此这样的图片式文字在使用起来就非常的不方便,那么如何才能将 ...
在微信进行多人协作编辑Excel型文件，又何必和Excel死磕呢
在微信进行在线多人编辑,不必和Excel死磕,用vika维格表也能达到一样的效果. 这个问题的本质其实不是必须用Excel这个工具来编辑,假如有一个支持多人编辑的工具能够满足我们需要的Excel的功能 ...
如何将图片识别为可编辑的Word文件
我们经常会遇到图片式文档,想要复制和编辑里面的文字就是一件很困难的事情,因此这样的图片式文字在使用起来就非常的不方便,那么如何才能将图片文字转换成word呢? 1.首先打开转换的网址链接speedpd ...
打印Excel Word文件变成绿色背景解决方法
原因是开启了360安全卫士的护眼模式导致的. Step1 打开360安全卫士,找到健康助手 Step2 去掉启用视觉包含豆沙绿色勾选
无法编辑的word文件如何修改
今天我家领导下来了一个<租房合同>,想要把一些条款的空格填全,结果没想到这种制式合同居然是限制修改的. 其实呢,这类的word文档被进行了文档保护.对付这类文件,用什么office pas ...
VUE 在线编辑 EXCEL , SPERADJS的使用
提示:文章写完后,目录可以自动生成,如何生成可参考右边的帮助文档文章目录前言一.VUE 在线编辑 EXCEL 功能二.使用步骤 1.引入库 2.组件制作前言 spreadjs的使用提示:以 ...
Word文件设置了只读模式如何编辑？
word文件在设置成只读模式之后,我们会发现,在打开文件的时候就会有提示文件是只读模式的进入到文件中,我们就能够看到,word文件里面的大多数编辑按钮都是灰色的了在这里,我们要知道一个热知识,wo ...
excel word 网页自动求和
根据excel word文件,生成网页录入,自动求和. 使用工具:jsoup.poi.summernote(前台富文本编辑器) 先写一个关闭输入输出流的方法 /** * 关闭输入流 * @param ...

VB6-COM接口操作开源OpenOffice编辑Excel,Word文件(中国首创)

VB6-COM接口操作开源OpenOffice编辑Excel,Word文件(中国首创)相关推荐

最新文章

热门文章