报表导出excel或wps模块

39667285

总是要报表导出，所以自己写了一个模块；也是学习了一些前辈的源代码，写了一个方便易友们使用的，模块可以导出 Microsoft Office  Excel 也可以导出金山wps Office 表格，文本内容的导出的。模块和例成上传，有什么问题还请大家指教


以下模块信息，  和下面例成信息
报表导出，可以导出 Microsoft Office excel表格 或者 金山WPS Office 表格


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


.版本 2


.子程序 子程序_导出, , 公开
.参数 参数_真Excel假wps表格, 逻辑型, , 真导出Microsoft Office excel表格  假导出 金山 wps 表格
.参数 参数_如果导出Excel先给出excel路径, 文本型, 可空, 真导出Microsoft Office excel表格 导出必须先给出excel保存文件路径
.参数 参数_列标题文本数组, 文本型, 可空 数组, 对就导出数据列数 第一行每列标题
.参数 参数_导出数据列数, 整数型, , 对就二维数组第2位的（几列数据）
.参数 参数_行标题文本数组, 文本型, 可空 数组, 对就导出数据行数 给出表格第一列每行的标题
.参数 参数_导出数据行数, 整数型, , 对就二维数组第1位的（几行数据）
.参数 参数_导出数据二维数组s, 文本型, 数组, 要导出的数据 二维数组 文本型  第一位为 行  第二位为 列

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_窗口_导出
变量名	类 型	数组	备 注
程变_要插入的信息	文本型	100,6
程变_列标题	文本型	6
程变_行标题	文本型	100

子程序名	返回值类型	公开	备 注
_窗口_导出_创建完毕

变量名	类 型	静态	数组	备 注
局变_行	整数型
局变_列	整数型
局变_i	整数型

计次循环首 (100, 局变_行)
计次循环首 (6, 局变_列)
程变_要插入的信息 [局变_行] [局变_列] ＝ 到文本 (局变_行) ＋ “行” ＋ 到文本 (局变_列) ＋ “列”
程变_要插入的信息 [局变_行] [局变_列] ＝ 到文本 (局变_行) ＋ “行” ＋ 到文本 (局变_列) ＋ “列”
程变_要插入的信息 [局变_行] [局变_列] ＝ 到文本 (局变_行) ＋ “行” ＋ 到文本 (局变_列) ＋ “列”
程变_要插入的信息 [局变_行] [局变_列] ＝ 到文本 (局变_行) ＋ “行” ＋ 到文本 (局变_列) ＋ “列”
程变_要插入的信息 [局变_行] [局变_列] ＝ 到文本 (局变_行) ＋ “行” ＋ 到文本 (局变_列) ＋ “列”
程变_要插入的信息 [局变_行] [局变_列] ＝ 到文本 (局变_行) ＋ “行” ＋ 到文本 (局变_列) ＋ “列”
计次循环尾 ()
计次循环尾 ()
程变_列标题 [1] ＝ “第一列标题”
程变_列标题 [2] ＝ “第二列标题”
程变_列标题 [3] ＝ “第三列标题”
程变_列标题 [4] ＝ “第四列标题”
程变_列标题 [5] ＝ “第五列标题”
程变_列标题 [6] ＝ “第六列标题”
计次循环首 (100, 局变_i)
程变_行标题 [局变_i] ＝ “第一列第” ＋ 到文本 (局变_i) ＋ “行标题”
计次循环尾 ()

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

变量名	类 型	静态	数组	备 注
局变_n	整数型
局变_导出文件名	文本型

' ------------------------列头行标题
' 子程序_导出 (假, , 程变_列标题, 6, , 100, 程变_要插入的信息)
' ------------------------a1列头标题
子程序_导出 (假, , , 6, 程变_行标题, 100, 程变_要插入的信息)
' ------------------------列头标题 ，a1行标题
' 子程序_导出 (假, , 程变_列标题, 6, 程变_行标题, 100, 程变_要插入的信息)

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

变量名	类 型	静态	数组	备 注
局变_列标题	文本型		6
局变_行标题	文本型		100
局变_n	整数型
局变_导出文件名	文本型

通用对话框_导出.类型 ＝ 1
通用对话框_导出.默认文件后缀 ＝ “xls”
通用对话框_导出.过滤器 ＝ “excel文件|*.xls”
通用对话框_导出.打开 ()
如果真 (通用对话框_导出.文件名 ≠ “”)
' ------------------------列头行标题
子程序_导出 (真, 通用对话框_导出.文件名, 程变_列标题, 6, , 100, 程变_要插入的信息)
' ------------------------a1列头标题
' 子程序_导出 (真, 通用对话框_导出.文件名 , , 6, 程变_行标题, 100, 程变_要插入的信息)
' ------------------------列头标题 ，a1行标题
' 子程序_导出 (真, 通用对话框_导出.文件名 , 程变_列标题, 6, 程变_行标题, 100, 程变_要插入的信息)

.版本 2<br /> <br /> .程序集 窗口程序集_窗口_导出<br /> .程序集变量 程变_要插入的信息, 文本型, , "100,6"<br /> .程序集变量 程变_列标题, 文本型, , "6"<br /> .程序集变量 程变_行标题, 文本型, , "100"<br /> <br /> .子程序 _窗口_导出_创建完毕<br /> .局部变量 局变_行, 整数型<br /> .局部变量 局变_列, 整数型<br /> .局部变量 局变_i, 整数型<br /> <br /> <br /> .计次循环首 (100, 局变_行)<br />     .计次循环首 (6, 局变_列)<br />         程变_要插入的信息 [局变_行] [局变_列] ＝ 到文本 (局变_行) ＋ “行” ＋ 到文本 (局变_列) ＋ “列”<br />         程变_要插入的信息 [局变_行] [局变_列] ＝ 到文本 (局变_行) ＋ “行” ＋ 到文本 (局变_列) ＋ “列”<br />         程变_要插入的信息 [局变_行] [局变_列] ＝ 到文本 (局变_行) ＋ “行” ＋ 到文本 (局变_列) ＋ “列”<br />         程变_要插入的信息 [局变_行] [局变_列] ＝ 到文本 (局变_行) ＋ “行” ＋ 到文本 (局变_列) ＋ “列”<br />         程变_要插入的信息 [局变_行] [局变_列] ＝ 到文本 (局变_行) ＋ “行” ＋ 到文本 (局变_列) ＋ “列”<br />         程变_要插入的信息 [局变_行] [局变_列] ＝ 到文本 (局变_行) ＋ “行” ＋ 到文本 (局变_列) ＋ “列”<br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> 程变_列标题 [1] ＝ “第一列标题”<br /> 程变_列标题 [2] ＝ “第二列标题”<br /> 程变_列标题 [3] ＝ “第三列标题”<br /> 程变_列标题 [4] ＝ “第四列标题”<br /> 程变_列标题 [5] ＝ “第五列标题”<br /> 程变_列标题 [6] ＝ “第六列标题”<br /> .计次循环首 (100, 局变_i)<br />     程变_行标题 [局变_i] ＝ “第一列第” ＋ 到文本 (局变_i) ＋ “行标题”<br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 _按钮_et_被单击<br /> .局部变量 局变_n, 整数型<br /> .局部变量 局变_导出文件名, 文本型<br /> <br /> <br /> ' ------------------------列头行标题<br /> ' 子程序_导出 (假, , 程变_列标题, 6, , 100, 程变_要插入的信息)<br /> <br /> ' ------------------------a1列头标题<br /> 子程序_导出 (假, , , 6, 程变_行标题, 100, 程变_要插入的信息)<br /> <br /> ' ------------------------列头标题 ，a1行标题<br /> ' 子程序_导出 (假, , 程变_列标题, 6, 程变_行标题, 100, 程变_要插入的信息)<br /> <br /> <br /> .子程序 _按钮_ex_被单击<br /> .局部变量 局变_列标题, 文本型, , "6"<br /> .局部变量 局变_行标题, 文本型, , "100"<br /> .局部变量 局变_n, 整数型<br /> .局部变量 局变_导出文件名, 文本型<br /> <br /> 通用对话框_导出.类型 ＝ 1<br /> 通用对话框_导出.默认文件后缀 ＝ “xls”<br /> 通用对话框_导出.过滤器 ＝ “excel文件|*.xls”<br /> 通用对话框_导出.打开 ()<br /> <br /> <br /> .如果真 (通用对话框_导出.文件名 ≠ “”)<br />     ' ------------------------列头行标题<br />     子程序_导出 (真, 通用对话框_导出.文件名, 程变_列标题, 6, , 100, 程变_要插入的信息)<br /> <br />     ' ------------------------a1列头标题<br />     ' 子程序_导出 (真, 通用对话框_导出.文件名 , , 6, 程变_行标题, 100, 程变_要插入的信息)<br /> <br />     ' ------------------------列头标题 ，a1行标题<br />     ' 子程序_导出 (真, 通用对话框_导出.文件名 , 程变_列标题, 6, 程变_行标题, 100, 程变_要插入的信息)<br /> <br /> .如果真结束

模块和例成.rar (17.99 KB, 下载次数: 769)

2015-12-12 21:41 上传

点击文件名下载附件
Microsoft Office Excel 也可以导出金山wps Office 表格

cyzyr001

感谢大佬分享

qsedu

谢谢分享

1347379245

感谢分享

yuanhexi

感谢分享

junhai

谢谢！！！

小琳的世界

开源精神必须支持~~~

leikang

开源精神必须支持~

xiaomu5921

试试

Cesclong

试试怎么样

bkqrj

试试试试试试试试