ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 4721|回复: 8

EXCEL操作的模块(自己编写的)采用COM方式

[复制链接]

TA的精华主题

TA的得分主题

发表于 2014-3-1 14:33 | 显示全部楼层 |阅读模式
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
       模块功能是我根据别人的模块改的,加入了我常用的命令,一些在COM中无法实现,
或很难实现的功能采用excel只带的VBA实现希望大家指正或修改,希望大家把修改的模
块传上来分享这个模块的最大缺点就是读取大量数据时速度很慢,我不知道怎么改了
看来还是改用VB编写模块(对速度没有影响,和VBA中的速度一样)

Excel模块.zip (304.24 KB, 下载次数: 621)
--------------------------------------------------------------------------------------------------------------------------------------
模块名称:Excel功能模块版本:1.0
------------------------------.版本 2.子程序 斑马线, , 公开.参数 excel, 对象.参数 区域, 文本型, , 格式为“A1:D4”.子程序 保存工作薄, , 公开.参数 excel, 对象.子程序 插入_列, 逻辑型, 公开.参数 excel, 对象.参数 此列以前, 整数型, , 插入到该列以前.子程序 插入_行, 逻辑型, 公开.参数 excel, 对象.参数 此行以前, 整数型, , 插入到这行以前.子程序 插入名称, , 公开.参数 excel, 对象.参数 名称, 文本型, 数组.参数 参数, 文本型, 数组.子程序 打开_文件, 逻辑型, 公开.参数 excel, 对象.参数 文件名, 文本型.子程序 打印, , 公开.参数 excel, 对象.参数 工作薄序号, 整数型, , 可由“取_工作薄序号()方法得到.子程序 打印预览, , 公开.参数 excel, 对象.参数 工作薄序号, 整数型, , 可由“取_工作薄序号()方法得到.子程序 单元格_插入剪切, 逻辑型, 公开, 需要先用单元格_剪切命令后使用该命令,成功返回真,失败返回假.参数 excel, 对象.参数 工作表序号, 整数型.参数 单元格行, 整数型, , 插入到此行以上.参数 单元格列, 整数型.子程序 单元格_查找替换, , 公开, 需要先选择要操作的作业表.参数 excel, 对象.参数 查找替换区域, 文本型.参数 查找替换的文本, 文本型.参数 作为替换的文本, 文本型.子程序 单元格_复制, 逻辑型, 公开, 复制指定区域的数据,通过粘贴_方法可以设置要粘贴成值还是公式.参数 excel, 对象.参数 工作表序号, 整数型.参数 欲复制区域, 文本型.子程序 单元格_合并单元格, , 公开.参数 excel, 对象.参数 区域, 文本型, , 如:"A1:B4".参数 合并, 逻辑型, , 为真时合并,为假时分开.子程序 单元格_剪切, 逻辑型, 公开.参数 excel, 对象.参数 工作表序号, 整数型.参数 单元格行, 整数型.参数 单元格列, 整数型.参数 欲剪切区域, 文本型.子程序 单元格_清除批注, , 公开.参数 excel, 对象.参数 工作表序号, 整数型.参数 单元格行, 整数型.参数 单元格列, 整数型.参数 单元格区域, 文本型.子程序 单元格_取标注, 文本型, 公开, 返回指定单元格的标注文本字符串.参数 excel, 对象.参数 工作表序号, 整数型.参数 单元格行, 整数型.参数 单元格列, 整数型.子程序 单元格_取当前列号, 整数型, 公开, 返回当前工作表当前选择单元格的列号.参数 excel, 对象.子程序 单元格_取当前行号, 整数型, 公开.参数 excel, 对象.子程序 单元格_取公式, 文本型, 公开, 返回指定单元格的公式文本字符串.参数 excel, 对象.参数 工作表序号, 整数型.参数 单元格行, 整数型.参数 单元格列, 整数型.参数 公式方式, 逻辑型, 可空, 为真时,返回(RC)方式的公式,为假时返回(A1)方式的公式,默认为假.子程序 单元格_取文本, 文本型, 公开, 返回指定单元格的公式文本字符串.参数 excel, 对象.参数 工作表序号, 整数型.参数 单元格行, 整数型.参数 单元格列, 整数型.子程序 单元格_文本自动换行, , 公开.参数 excel, 对象.参数 工作表序号, 整数型.参数 自动换行, 逻辑型, , 真为自动换行.参数 单元格行, 整数型, 可空.参数 单元格列, 整数型, 可空.参数 单元格区域, 文本型, 可空.子程序 单元格_文本自动缩放, , 公开.参数 excel, 对象.参数 工作表序号, 整数型.参数 自动缩放, 逻辑型, , 真为自动缩放.参数 单元格行, 整数型, 可空.参数 单元格列, 整数型, 可空.参数 单元格区域, 文本型, 可空.子程序 单元格_粘贴, , 公开, 粘贴,等效于CTRL+V粘贴.参数 excel, 对象.参数 工作表序号, 整数型.参数 单元格行, 整数型.参数 单元格列, 整数型.子程序 单元格_置边框, , 公开.参数 excel, 对象.参数 工作表序号, 整数型.参数 线型, 整数型, , #外双线内虚线;#外单线内虚线;#外单线内单线.参数 单元格行, 整数型, 可空.参数 单元格列, 整数型, 可空.参数 单元格区域, 文本型, 可空.子程序 单元格_置标注, 逻辑型, 公开.参数 excel, 对象.参数 工作表序号, 整数型.参数 单元格行, 整数型.参数 单元格列, 整数型.参数 标注内容, 文本型.子程序 单元格_置对齐方式, , 公开.参数 excel, 对象.参数 工作表序号, 整数型.参数 水平对齐方式, 整数型, , 常量中有.参数 垂直对齐方式, 整数型, , 常量中有.参数 单元格行, 整数型, 可空.参数 单元格列, 整数型, 可空.参数 单元格区域, 文本型, 可空.子程序 单元格_置公式, 逻辑型, 公开, 向指定单元格写入计算公式,可以为“=R[1]C+1”方式,也可以为“=A1+1”.参数 excel, 对象.参数 工作表序号, 整数型.参数 单元格行, 整数型.参数 单元格列, 整数型.参数 公式, 文本型.子程序 单元格_置内容, , 公开.参数 excel, 对象.参数 工作表序号, 整数型.参数 文本, 文本型.参数 单元格行, 整数型, 可空.参数 单元格列, 整数型, 可空.参数 单元格区域, 文本型, 可空.子程序 单元格_置数值格式, , 公开.参数 excel, 对象.参数 工作表序号, 整数型.参数 格式, 文本型, , gs_常量.参数 单元格行, 整数型, 可空.参数 单元格列, 整数型, 可空.参数 单元格区域, 文本型, 可空.子程序 单元格_置填充色, , 公开.参数 excel, 对象.参数 工作表序号, 整数型.参数 单元格行, 整数型, 可空.参数 单元格列, 整数型, 可空.参数 单元格区域, 文本型, 可空.参数 颜色序号, 整数型, , 如:#ys_黄色,常量,或者1-60的数值.子程序 单元格_置文字方向, , 公开.参数 excel, 对象.参数 工作表序号, 整数型.参数 文本方向, 整数型, , 常量中有.参数 单元格行, 整数型, 可空.参数 单元格列, 整数型, 可空.参数 单元格区域, 文本型, 可空.子程序 调整为列宽和行高最适当的值, , 公开.参数 excel, 对象.参数 单元格区域, 文本型.参数 行或列, 逻辑型, , 列为真,行为假.子程序 冻结窗口, , 公开.参数 excel, 对象.参数 冻结, 逻辑型, , 为真时冻结,为假时不冻结.子程序 读名称, , 公开.参数 excel, 对象.参数 名称, 文本型, 参考 数组.子程序 读取数据, 文本型, 公开, 返回值以“;”号风格开。.参数 Excel程序, Excel程序, , 用户的excel控件.参数 Excel工作簿, Excel工作簿, , 用户的excel工作簿控件.参数 打开文件名, 文本型, , excel文件.子程序 对象_组合分解, , 公开.参数 excel, 对象.子程序 二十六进制转换, 文本型, 公开, 专为把列数转换为Excel表示方法如"EA".参数 数值, 整数型.子程序 复制_工作表, , 公开, 需要先将工作表打开后才能插入工作表,插入空表这可以不打开其他工作表,插入表到当前工作薄.参数 excel, 对象.参数 原工作薄名, 文本型.参数 原工作表名, 文本型.参数 新工作薄名, 文本型.参数 插入位置, 整数型, 可空, 1:插入到最前;0:插入到当前表后;默认为插入到最后.子程序 关闭工作薄, , 公开.参数 excel, 对象.参数 工作薄名, 文本型, 可空.子程序 激活工作薄, , 公开.参数 excel, 对象.参数 要激活的工作薄名, 文本型.子程序 禁止_提示, , 公开.参数 excel, 对象.参数 提示, 逻辑型, , 为真时提示,为假时不提示,如:excel的保存,关闭等提示.子程序 另存为, , 公开.参数 excel, 对象.参数 文件名, 文本型.子程序 排序, , 公开.参数 excel, 对象.参数 排序区域, 文本型.参数 主排序列, 文本型, , 如:“A1”.参数 主排序方向, 逻辑型, , 真时为降序,假时为升序.参数 次排序列, 文本型, 可空, 如:“B1”.参数 次排序方向, 逻辑型, 可空, 真时为降序,假时为升序.参数 第三排序列, 文本型, 可空, 如:“C1”.参数 第三排序方向, 逻辑型, 可空, 真时为降序,假时为升序.子程序 清除所有格式, , 公开.参数 excel, 对象.参数 单元格区域, 文本型.子程序 取_表格列数, 整数型, 公开, ‘导入单个表格到程序时使用.参数 工作簿, Excel工作簿, , 用户的Excel工作簿控件.参数 表格序号, 整数型, 可空, 用户要取的表格序号(从1开始).子程序 取_表格行数, 整数型, 公开.参数 工作簿, Excel工作簿, , 用户的Excel工作簿控件.参数 表格序号, 整数型, 可空, 用户要取的表格序号(如果为空则默认为1).子程序 取_程序句柄, 整数型, 公开, 返回已经连接的excel程序窗口句柄.参数 excel, 对象, , 用户的Excel工作簿控件.子程序 取_程序状态, 逻辑型, 公开, 返回连接的excel程序是否可是.参数 excel, 对象.子程序 取_工作表名, 文本型, 公开, 返回工作表的名字,文本型.参数 excel, 对象.参数 工作表序号, 整数型, 可空.子程序 取_工作表数, 整数型, 公开, 返回工作表的总数量,从1开始.参数 excel, 对象.子程序 取_工作薄是否打开, 逻辑型, 公开, 用于检测要打开的工作薄是否已经被打开,已经打开返回真,没有打开返回假.参数 excel, 对象.参数 工作薄名, 文本型, 可空.子程序 取_工作薄数, 整数型, 公开, 取现在打开的工作薄得数量,成功返回工作薄数,失败或打开的工作薄数量为0时返回0.参数 excel, 对象.子程序 取_工作薄序号, 整数型, 公开.参数 excel, 对象.参数 工作薄名, 文本型.子程序 取_文件名, 文本型, 公开, 返回完整路径或简化路径的文件名,包含后缀名.参数 路径, 文本型.子程序 取_有效列, 整数型, 公开.参数 excel, 对象.参数 工作表序号, 整数型.参数 读取行, 整数型.子程序 取_有效行, 整数型, 公开.参数 excel, 对象.参数 工作表序号, 整数型.参数 读取列, 整数型.子程序 取当前工作薄名, 文本型, 公开.参数 excel, 对象.子程序 删除_工作表, , 公开, 删除当前工作薄的工作表,需要提供要删除的工作表名称.参数 excel, 对象.参数 要删除的表名, 文本型.子程序 删除_列, , 公开.参数 excel, 对象.参数 删除列, 整数型, , 要删除的列序号.子程序 删除_区域, 逻辑型, 公开, 需要先选择要操作的作业表;成功返回真,失败返回假.参数 excel, 对象.参数 欲删除的区域, 文本型.参数 删除后填充的数据, 文本型, , 为“L”时由左边的数据填充,为“D”时下边的数据填充,输入参数为大写.子程序 删除_行, 逻辑型, 公开.参数 excel, 对象.参数 删除行, 整数型, , 删除此行.子程序 删除_有效性, , 公开.参数 excel, 对象.参数 区域, 文本型.子程序 删除_自定义名称, , 公开.参数 excel, 对象.参数 名称, 文本型.子程序 设置打印区域, , 公开, 需要先选择表.参数 excel, 对象.参数 打印区域, 文本型, , 参数格式,"$A$1:$N$30".子程序 释放对象, , 公开.参数 excel, 对象.子程序 新建工作薄, 逻辑型, 公开.参数 excel, 对象.子程序 选择_单元格, 逻辑型, 公开.参数 excel, 对象.参数 欲选择单元格, 文本型.子程序 选择_工作表, 逻辑型, 公开, 选择工作表,参数为表序号,整数型.参数 excel, 对象.参数 工作表序号, 整数型.子程序 选择_列, 逻辑型, 公开.参数 excel, 对象.参数 欲选择列, 整数型.子程序 选择_区域, 逻辑型, 公开.参数 excel, 对象.参数 欲选择区域, 文本型.子程序 选择_行, 逻辑型, 公开.参数 excel, 对象.参数 欲选择列, 整数型.子程序 页面_缩放工作表打印比例, 整数型, 公开, 设置页面打印时的缩放比例,成功返回当前打印页面缩放比例,0.95。,表示95%,失败返回-1.参数 excel, 对象.参数 缩放比例, 整数型.子程序 页面_置打印区域, , 公开.参数 excel, 对象.参数 打印区域, 文本型, , 区域格式"A1:D1".子程序 页面_置顶标题行, , 公开.参数 excel, 对象.参数 行区域, 文本型, , 格式为“"$1:$2".子程序 页面_置缩放比例, , 公开.参数 excel, 对象.参数 缩放比例, 整数型.子程序 页面_置页眉内容, , 公开.参数 excel, 对象.参数 左页眉内容, 文本型.参数 中页眉内容, 文本型.参数 右页眉内同, 文本型.参数 左页角内容, 文本型.参数 中页角内容, 文本型.参数 右页角内同, 文本型.子程序 页面_置纸张方向, , 公开.参数 excel, 对象.参数 纸张方向, 逻辑型, , 真为:横向;假为:纵向.子程序 页面_置纸张类型, , 公开.参数 excel, 对象.参数 区域, 文本型.参数 类型, 整数型, , 为 9 时纸张类型为"A4纸";为 8 时纸张类型为"A3纸".子程序 页面_置左标题列, , 公开.参数 excel, 对象.参数 列区域, 文本型, , 格式为:"$A:$A".子程序 页面_自动调整页数, , 公开.参数 excel, 对象.参数 宽几页, 整数型.参数 高几页, 整数型.子程序 移动工作表, , 公开.参数 excel, 对象.参数 被移动表, 文本型, , 被移动表的表名,可通过取_工作表名返回.参数 此表前, 文本型.参数 此表后, 文本型.子程序 隐藏工作表, , 公开.参数 excel, 对象.参数 要操作表名称, 文本型.参数 显示, 逻辑型.子程序 隐藏工作薄, , 公开.参数 excel, 对象.参数 要隐藏的工作薄名, 文本型.参数 是否隐藏, 逻辑型.子程序 隐藏显示列, , 公开.参数 excel, 对象.参数 欲操作的列, 整数型.参数 隐藏, 逻辑型, , 为真时隐藏操作列,为假显示操作列.子程序 隐藏显示行, , 公开.参数 excel, 对象.参数 欲操作的行, 整数型.参数 隐藏, 逻辑型, , 为真时隐藏操作行,为假显示操作行.子程序 运行宏, , 公开.参数 excel, 对象.参数 宏名, 文本型.子程序 粘贴_粘贴为值, , 公开, 粘贴为值.参数 excel, 对象.参数 工作表序号, 整数型.参数 单元格行, 整数型.参数 单元格列, 整数型.子程序 置_单元格自动计算, , 公开.参数 excel, 对象.参数 自动计算, 逻辑型, , 为真时,自动计算,为假时手动计算.子程序 置_公式显示方式, , 公开.参数 excel, 对象.参数 方式, 逻辑型, , 真时为"xlA1",假时为"xlR1C1".子程序 置_列宽, , 公开.参数 excel, 对象.参数 工作表序号, 整数型.参数 操作列, 文本型, , 单行时为“A:A”,多行时为“A:D”.参数 列宽值, 双精度小数型.子程序 置_行高, , 公开.参数 excel, 对象.参数 工作表序号, 整数型.参数 操作行, 文本型, , 单行时为“1:1”,多行时为“1:10”.参数 行高值, 双精度小数型.子程序 置单元格字体, , 公开.参数 excel, 对象.参数 工作表序号, 整数型.参数 字体名称, 文本型.参数 字体大小, 整数型.参数 单元格行, 整数型, 可空.参数 单元格列, 整数型, 可空.参数 单元格区域, 文本型, 可空.参数 文字颜色, 整数型, 可空.参数 是否加粗, 逻辑型, 可空.参数 是否倾斜, 逻辑型, 可空.参数 是否下划线, 逻辑型, 可空.参数 是否删除线, 逻辑型, 可空.子程序 置数据筛选, 逻辑型, 公开.参数 excel, 对象.参数 工作表序号, 整数型.参数 区域, 文本型.子程序 置有效性, , 公开.参数 excel, 对象.参数 工作表序号, 整数型.参数 区域, 文本型.参数 有效性引用区域, 文本型.参数 有效值, 文本型UID:239977 该帖来源于精易论坛:bbs.125.la-------------------------------------------------------------------------------------------------------------------------------------------------------------------


TA的精华主题

TA的得分主题

发表于 2014-3-1 21:40 | 显示全部楼层
不明觉厉,支持,具体啥用?

TA的精华主题

TA的得分主题

发表于 2014-3-6 15:25 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
首先感谢楼主,提个小意见:文字太多,标点太少,看了半天也没看明白

TA的精华主题

TA的得分主题

发表于 2014-3-31 17:28 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2014-8-14 09:21 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2018-2-4 20:25 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
首先感谢楼主,提个小意见:文字太多,标点太少,

TA的精华主题

TA的得分主题

发表于 2018-3-3 19:18 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2018-3-17 18:40 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
首先感谢楼主,javascript:;

TA的精华主题

TA的得分主题

发表于 2018-5-23 16:15 | 显示全部楼层
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-11-22 08:11 , Processed in 0.035901 second(s), 10 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表