按键精灵懒人办公插件【新版】 V15.0106.0.2官方免费版
资源介绍
是一款为了方便办公而制作的一款标准COM插件,支持多种语言调用。插件支持微软OFFICE或者金山WPS办公环境下大部分功能,支持多文件同时操作。办公软件请安装完整版,否则可能因为缺少组件导致插件无法使用。
功能说明
打开/关闭EXCEL
数据处理
标签页操作
全表操作
区域操作
单元格操作
行操作
列操作
表格设置
图片操作
宏操作
保存表格
其他便捷功能
[WORD部分]
打开/关闭WORD
WORD文本读写
光标操作
从当前光标处按下快捷键键
表格操作
图片操作
宏操作
保存文档
文档设置
其他便捷功能
[ACCESS部分]
打开/关闭数据库、数据表
获取数据库所有表名
数据表改名、删除、增加
字段改名、删除、增加
获取数据表所有数据,可直接用EXCEL操作命令区域写入
获取、查找某字段所有数据
获取数据表总记录数
记录增加、删除、修改、获取
游标位置(当前操作位置)定位、移动
数据库执行SQL语句
注册方法
在按键精灵中使用时,启动主程序编写脚本时程序将自动加载目录中所有插件,因此建议直接将本插件放入按键精灵安装目录下的Plugin文件夹内,无需再自己注册插件。运行按键精灵,即可在插件命令中找到本插件,选择命令,在下方帮助框内将看到对应命令说明。编写脚本时,用按键精灵调用插件的语法直接插入插件命令,或者通过创建对象调用插件均可。
其他语言的注册参照各语言中使用COM插件的语法。以下简要提供三种注册方法:
1、regsvr32 注册:
VBS语法下,LazyOffice.dll放在c: est目录,可使用以下代码对插件进行注册:
Set ws = CreateObject("Wscript.Shell")
ws.run "regsvr32 ""c: estLazyOffice.dll"" /s"
2、通过写注册表注册:
VBS语法下,以LazyOffice.dll放在c: est目录为例,可使用以下代码写注册表完成注册,此种方式一般不会弹出乱七八糟的提示:
Dim ws, DLLPath
DLLPath = "c: estLazyOffice.dll"
Set ws = CreateObject("wscript.shell")
ws.run "reg add ""HKEY_CLASSES_ROOTLazy.LxjExcelClsid"" /ve /d ""{A3A988D7-8A39-4505-83B9-9E31CCB7CB16}"" /f", 0
ws.run "reg add ""HKEY_CLASSES_ROOTLazy.LxjWordClsid"" /ve /d ""{ABB8CE32-77EE-4E4F-BB0E-DBC9568B8F00}"" /f", 0
ws.run "reg add ""HKEY_CLASSES_ROOTLazy.LxjAccessClsid"" /ve /d ""{8316739A-192A-475F-B734-32AD9460CC27}"" /f", 0
ws.run "reg add ""HKEY_CLASSES_ROOTCLSID{A3A988D7-8A39-4505-83B9-9E31CCB7CB16}InprocServer32"" /ve /d " & DLLPath & " /f", 0
ws.run "reg add ""HKEY_CLASSES_ROOTCLSID{ABB8CE32-77EE-4E4F-BB0E-DBC9568B8F00}InprocServer32"" /ve /d " & DLLPath & " /f", 0
ws.run "reg add ""HKEY_CLASSES_ROOTCLSID{8316739A-192A-475F-B734-32AD9460CC27}InprocServer32"" /ve /d " & DLLPath & " /f", 0
MsgBox "注册完毕!"
或者自行使用其他代码将指定内容写入注册表对应位置。
3、手动注册:
以LazyOffice.dll放在c: est目录为例,开始菜单->运行->cmd 命令提示符下,输入cd c: est,再输入 regsvr32 LazyOffice.dll 即可,这样会提示插件已经注册到系统中。(或者直接 开始菜单->运行->输入regsvr32 c: estLazyOffice.dll)
使用方法
插件使用前需要注册,具体方法见上部分注册方法。
然后使用下面代码创建对象:
Dim LazyExcel,LazyWord,LazyAccess
Set LazyExcel= CreateObject("Lazy.LxjExcel")
Set LazyWord= CreateObject("Lazy.LxjWord")
Set LazyAccess= CreateObject("Lazy.LxjAccess")
或者 工程-引用-LazyOffice By QQ:215537937,然后声明新对象:
Dim LazyExcel As New Lazy.LxjExcel
Dim LazyWord As New Lazy.LxjWord
Dim LazyAccess As New Lazy.LxjAccess
完成准备工作,即可开始使用:
path = "c:测试.xls"
Index = LazyExcel.ExcelOpen(path,1)
示例代码中将不再包括注册部分。