EXCEL操作的模块（自己编写的）采用COM方式

hj0810

模块功能是我根据别人的模块改的，加入了我常用的命令，一些在COM中无法实现，或很难实现的功能采用excel只带的VBA实现
希望大家指正或修改，希望大家把修改的模块传上来分享
这个模块的最大缺点就是读取大量数据时速度很慢，我不知道怎么改了
看来还是改用VB编写模块（对速度没有影响，和VBA中的速度一样）

自制excel模块（com vba）2011年6月1日.rar (43.68 KB, 下载次数: 873)

2011-6-1 13:42 上传

点击文件名下载附件
Excel模块.zip (304.24 KB, 下载次数: 917)

2012-8-10 21:34 上传

点击文件名下载附件
修正了一部分无效代码   2012年8月10日修改

--------------------------------------------------------------------------------------------------------------------------------------

模块名称：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, 对象
.参数 工作表序号, 整数型
.参数 区域, 文本型
.参数 有效性引用区域, 文本型
.参数 有效值, 文本型
-------------------------------------------------------------------------------------------------------------------------------------------------------------------

金哥专用

支持下。。。。

forkh

好东西收藏了

lcylcyll

好东西的啊不过就是不会用模块

网络注册会员

这么好的东东我顶一顶

mw286283329

5JB有点贵啊

tanker

我买不起啊

tanker

挣到金币了，买下啦

易魂

看看罗！。。

易魂

谢谢，了！#啊！