懒人办公插件com

zzoo1314

易 怎么调用 这个求大神 示范一下   办公 好像多多少少有点问题 所以只好去找 以前玩按键精灵里用的 这个懒人办公插件 :D

ssshill

我写了一些基本的xls用法，包括读文件，读表名，读写单元格内容等，不明白的看帮助文件“懒人办公插件帮助文档.CHM”，看代码：

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
lr对象	对象

子程序名	返回值类型	公开	备 注
_按钮1_被单击

调试输出 (“注册：”, 注册xls ())
打开exl (取运行目录 () ＋ “\kkk.xls”, 0, “”, “”, 0)  ' xls文件放当前目录下，给出正确路径
' 表隐藏 ()  ' 隐藏打开的exl界面，序号为1，要关闭就不要执行这一行！
' 查看属性方法 ()  ’不清楚可以用这个看说明
调试输出 (“插件描述：”, 插件中文描述 (“SheetGetName”))
调试输出 (“表总张数：”, 取表sheet总数 ())
调试输出 (“当前表序号：”, 取当前表序号 ())
调试输出 (“取某张表名：”, 取某张表名 (3))
调试输出 (“读某单元格内容”, 读单元格内容 (2, 2, 1, 1))
调试输出 (“写出内容：”)
写单元格内容 (2, 2, 1, “太丑”, 1)
调试输出 (“再读读某单元格内容”, 读单元格内容 (2, 2, 1, 1))
关闭exl (1)

子程序名	返回值类型	公开	备 注
注册xls	逻辑型		"LazyOffice.dll"文件需放在当前目录下

变量名	类 型	静态	数组	备 注
lr路径dll	文本型

lr路径dll ＝ 取运行目录 () ＋ “\LazyOffice.dll”
如果真 (运行 (“regsvr32 ” ＋ lr路径dll ＋ “ -s”, 真, ))
如果真 (lr对象.创建 (“Lazy.LxjExcel”, ) ＝ 真)
返回 (真)

返回 (假)

子程序名	返回值类型	公开	备 注
查看属性方法			查看属性方法

lr对象.查看 ()

子程序名	返回值类型	公开	备 注
打开exl	短整数型		打开xls文件
参数名	类 型	参考	可空	数组	备 注
path	文本型
typ	短整数型				填"1”
password	文本型
writeps	文本型
ronly	短整数型				参数值为“0”

返回 (lr对象.数值方法 (“ExcelOpenEX”, path, typ, password, writeps, ronly))

子程序名	返回值类型	公开	备 注
关闭exl	变体型		关闭exl
参数名	类 型	参考	可空	数组	备 注
index	短整数型				默认值填“1

返回 (lr对象.通用方法 (“ExcelClose”, index))

子程序名	返回值类型	公开	备 注
取表sheet总数	整数型

返回 (lr对象.通用方法 (“SheetCount”, 1).取数值 ())

子程序名	返回值类型	公开	备 注
取当前表序号	整数型

返回 (lr对象.通用方法 (“SheetIndex”, 1).取数值 ())

子程序名	返回值类型	公开	备 注
表隐藏			隐藏界面

变量名	类 型	静态	数组	备 注
typ	整数型

lr对象.通用方法 (“ExcelHideWindow”, typ, 1)
返回 ()

子程序名	返回值类型	公开	备 注
取某张表名	文本型		为1，取第1张表名
参数名	类 型	参考	可空	数组	备 注
序号	整数型				第几张表

返回 (lr对象.通用方法 (“SheetGetName”, 序号, 1).取文本 ())

子程序名	返回值类型	公开	备 注
插件中文描述	文本型
参数名	类 型	参考	可空	数组	备 注
插件文本	文本型

返回 (lr对象.文本方法 (“Get_Plugin_Description”, 插件文本))

子程序名	返回值类型	公开	备 注
读单元格内容	文本型
参数名	类 型	参考	可空	数组	备 注
表序号	整数型				第几张表
行数	整数型
列数	整数型
exl序号	整数型				默认第一

返回 (lr对象.通用方法 (“ExcelRead”, 表序号, 行数, 列数, exl序号).取文本 ())

子程序名	返回值类型	公开	备 注
写单元格内容	文本型		返回空文本
参数名	类 型	参考	可空	数组	备 注
表序号	整数型
行数	整数型
列数	整数型
内容	文本型
exl序号	整数型

lr对象.通用方法 (“ExcelWrite”, 表序号, 行数, 列数, 内容, exl序号)
返回 (“”)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 lr对象, 对象<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 调试输出 (“注册：”, 注册xls ())<br /> 打开exl (取运行目录 () ＋ “\kkk.xls”, 0, “”, “”, 0)  ' xls文件放当前目录下，给出正确路径<br /> ' 表隐藏 ()  ' 隐藏打开的exl界面，序号为1，要关闭就不要执行这一行！<br /> ' 查看属性方法 ()  ’不清楚可以用这个看说明<br /> 调试输出 (“插件描述：”, 插件中文描述 (“SheetGetName”))<br /> 调试输出 (“表总张数：”, 取表sheet总数 ())<br /> 调试输出 (“当前表序号：”, 取当前表序号 ())<br /> 调试输出 (“取某张表名：”, 取某张表名 (3))<br /> 调试输出 (“读某单元格内容”, 读单元格内容 (2, 2, 1, 1))<br /> 调试输出 (“写出内容：”)<br /> 写单元格内容 (2, 2, 1, “太丑”, 1)<br /> 调试输出 (“再读读某单元格内容”, 读单元格内容 (2, 2, 1, 1))<br /> 关闭exl (1)<br /> <br /> .子程序 注册xls, 逻辑型, 公开, "LazyOffice.dll"文件需放在当前目录下<br /> .局部变量 lr路径dll, 文本型<br /> <br /> lr路径dll ＝ 取运行目录 () ＋ “\LazyOffice.dll”<br /> .如果真 (运行 (“regsvr32 ” ＋ lr路径dll ＋ “ -s”, 真, ))<br />     .如果真 (lr对象.创建 (“Lazy.LxjExcel”, ) ＝ 真)<br />         返回 (真)<br />     .如果真结束<br /> <br /> .如果真结束<br /> 返回 (假)<br /> <br /> .子程序 查看属性方法, , 公开, 查看属性方法<br /> <br /> lr对象.查看 ()<br /> <br /> .子程序 打开exl, 短整数型, 公开, 打开xls文件<br /> .参数 path, 文本型<br /> .参数 typ, 短整数型, , 填"1”<br /> .参数 password, 文本型<br /> .参数 writeps, 文本型<br /> .参数 ronly, 短整数型, , 参数值为“0”<br /> <br /> 返回 (lr对象.数值方法 (“ExcelOpenEX”, path, typ, password, writeps, ronly))<br /> <br /> <br /> .子程序 关闭exl, 变体型, 公开, 关闭exl<br /> .参数 index, 短整数型, , 默认值填“1<br /> <br /> 返回 (lr对象.通用方法 (“ExcelClose”, index))<br /> <br /> <br /> .子程序 取表sheet总数, 整数型, 公开<br /> <br /> 返回 (lr对象.通用方法 (“SheetCount”, 1).取数值 ())<br /> <br /> .子程序 取当前表序号, 整数型, 公开<br /> <br /> 返回 (lr对象.通用方法 (“SheetIndex”, 1).取数值 ())<br /> <br /> .子程序 表隐藏, , 公开, 隐藏界面<br /> .局部变量 typ, 整数型<br /> <br /> lr对象.通用方法 (“ExcelHideWindow”, typ, 1)<br /> 返回 ()<br /> <br /> .子程序 取某张表名, 文本型, 公开, 为1，取第1张表名<br /> .参数 序号, 整数型, , 第几张表<br /> <br /> 返回 (lr对象.通用方法 (“SheetGetName”, 序号, 1).取文本 ())<br /> <br /> .子程序 插件中文描述, 文本型, 公开<br /> .参数 插件文本, 文本型<br /> <br /> 返回 (lr对象.文本方法 (“Get_Plugin_Description”, 插件文本))<br /> <br /> .子程序 读单元格内容, 文本型, 公开<br /> .参数 表序号, 整数型, , 第几张表<br /> .参数 行数, 整数型<br /> .参数 列数, 整数型<br /> .参数 exl序号, 整数型, , 默认第一<br /> <br /> 返回 (lr对象.通用方法 (“ExcelRead”, 表序号, 行数, 列数, exl序号).取文本 ())<br /> <br /> .子程序 写单元格内容, 文本型, 公开, 返回空文本<br /> .参数 表序号, 整数型<br /> .参数 行数, 整数型<br /> .参数 列数, 整数型<br /> .参数 内容, 文本型<br /> .参数 exl序号, 整数型<br /> <br /> lr对象.通用方法 (“ExcelWrite”, 表序号, 行数, 列数, 内容, exl序号)<br /> 返回 (“”)

花间一壶酒

这么说吧  用他这个  不如直接用官方的COM对象文档看  或者用别的易语言写好的模块了