|
|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
模块功能是我根据别人的模块改的，加入了我常用的命令，一些在COM中无法实现，
或很难实现的功能采用excel只带的VBA实现希望大家指正或修改，希望大家把修改的模
块传上来分享这个模块的最大缺点就是读取大量数据时速度很慢，我不知道怎么改了
看来还是改用VB编写模块（对速度没有影响，和VBA中的速度一样）
Excel模块.zip
(304.24 KB, 下载次数: 618)
--------------------------------------------------------------------------------------------------------------------------------------
模块名称：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-------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
沪公网安备 31011702000001号 沪ICP备11019229号-2
发表于 2014-3-1 14:33
