excel导出时用通用对话框选择导出

一大米一

  

子程序名	返回值类型	公开	备 注
子程序_导出
参数名	类 型	参考	可空	数组	备 注
通用对话框	通用对话框
Excel程序	Excel程序
Excel工作簿	Excel工作簿
超级列表框	超级列表框

变量名	类 型	静态	数组	备 注
EXCEL文件名	文本型
x	整数型
y	整数型
文本	文本型
保存结果	逻辑型

EXCEL文件名 ＝ “报表”
Excel程序.创建 ()
Excel工作簿.置程序 (Excel程序)
' 本源码来自易语言资源网([url]www.5A5X.com[/url])
Excel工作簿.表格序号 ＝ 1
Excel工作簿.激活 ()
变量循环首 (1, 超级列表框.取表项数 (), 1, x)
处理事件 ()
变量循环首 (1, 超级列表框.取列数 (), 1, y)
处理事件 ()
文本 ＝ 字符 (96 ＋ y)
Excel工作簿.首单元格 ＝ 文本 ＋ 到文本 (1)
Excel工作簿.尾单元格 ＝ 文本 ＋ 到文本 (1)
' 本源码来自易语言资源网([url]www.5A5X.com[/url])
Excel工作簿.内容格式 ＝ “@”
Excel工作簿.内容 ＝ 超级列表框.取列标题 (y － 1)
Excel工作簿.首单元格 ＝ 文本 ＋ 到文本 (x ＋ 1)
Excel工作簿.尾单元格 ＝ 文本 ＋ 到文本 (x ＋ 1)
Excel工作簿.内容格式 ＝ “@”
Excel工作簿.内容 ＝ 超级列表框.取标题 (x － 1, y － 1)
' 本源码来自易语言资源网([url]www.5A5X.com[/url])
变量循环尾 ()
变量循环尾 ()
通用对话框1.打开 ()
Excel工作簿.保存 (取运行目录 () ＋ “/工作表.xls”)
Excel程序1.显示 ＝ 真
' Excel工作簿.打开 (取运行目录 () ＋ “/工作表.xls”)
Excel工作簿.关闭 ()
Excel工作簿.释放 ()
Excel程序.退出 ()
Excel程序.释放 ()

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

子程序_导出 (通用对话框1, Excel程序1, Excel工作簿1, 超级列表框_主窗口)

i支持库列表	支持库注释
eExcel2000	EXCEL2000支持库
iext	扩展界面支持库一

.版本 2<br /> .支持库 eExcel2000<br /> .支持库 iext<br /> <br /> .子程序 子程序_导出<br /> .参数 通用对话框, 通用对话框<br /> .参数 Excel程序, Excel程序<br /> .参数 Excel工作簿, Excel工作簿<br /> .参数 超级列表框, 超级列表框<br /> .局部变量 EXCEL文件名, 文本型<br /> .局部变量 x, 整数型<br /> .局部变量 y, 整数型<br /> .局部变量 文本, 文本型<br /> .局部变量 保存结果, 逻辑型<br /> <br /> EXCEL文件名 ＝ “报表”<br /> Excel程序.创建 ()<br /> Excel工作簿.置程序 (Excel程序)<br /> ' 本源码来自易语言资源网(<a href="http://www.5A5X.com" rel="nofollow" rel="nofollow" rel="nofollow" target="_blank">www.5A5X.com</a>)<br /> Excel工作簿.表格序号 ＝ 1<br /> Excel工作簿.激活 ()<br /> .变量循环首 (1, 超级列表框.取表项数 (), 1, x)<br />     处理事件 ()<br />     .变量循环首 (1, 超级列表框.取列数 (), 1, y)<br />         处理事件 ()<br />         文本 ＝ 字符 (96 ＋ y)<br />         Excel工作簿.首单元格 ＝ 文本 ＋ 到文本 (1)<br />         Excel工作簿.尾单元格 ＝ 文本 ＋ 到文本 (1)<br />         ' 本源码来自易语言资源网(<a href="http://www.5A5X.com" rel="nofollow" rel="nofollow" rel="nofollow" target="_blank">www.5A5X.com</a>)<br />         Excel工作簿.内容格式 ＝ “@”<br />         Excel工作簿.内容 ＝ 超级列表框.取列标题 (y － 1)<br />         Excel工作簿.首单元格 ＝ 文本 ＋ 到文本 (x ＋ 1)<br />         Excel工作簿.尾单元格 ＝ 文本 ＋ 到文本 (x ＋ 1)<br />         Excel工作簿.内容格式 ＝ “@”<br />         Excel工作簿.内容 ＝ 超级列表框.取标题 (x － 1, y － 1)<br />         ' 本源码来自易语言资源网(<a href="http://www.5A5X.com" rel="nofollow" rel="nofollow" rel="nofollow" target="_blank">www.5A5X.com</a>)<br />     .变量循环尾 ()<br /> .变量循环尾 ()<br /> <br /> 通用对话框1.打开 ()<br /> <br /> <br /> Excel工作簿.保存 (取运行目录 () ＋ “/工作表.xls”)<br /> Excel程序1.显示 ＝ 真<br /> ' Excel工作簿.打开 (取运行目录 () ＋ “/工作表.xls”)<br /> <br /> Excel工作簿.关闭 ()<br /> Excel工作簿.释放 ()<br /> Excel程序.退出 ()<br /> Excel程序.释放 ()<br /> <br /> .子程序 _按钮_导出_被单击<br /> <br /> 子程序_导出 (通用对话框1, Excel程序1, Excel工作簿1, 超级列表框_主窗口)

leiyh

超级列表框导入导出Excel.zip (17.03 KB, 下载次数: 85)

2015-5-10 22:57 上传

点击文件名下载附件 感觉 这个模块比较方便