超级列表框导出XLS

深爱者

超级列表框，传递一串数组，{ 1 , 3 ,5}，就是想导出第1列和3列和5列的内容到XLS

  

子程序名	返回值类型	公开	备 注
Excel导出
参数名	类 型	参考	可空	数组	备 注
参_超级列表框	超级列表框
参_导出文件名	文本型
参_导出文件名标记	文本型
参_导出文件名前缀	文本型
参_表头标记	整数型

变量名	类 型	静态	数组	备 注
局部_计次1	整数型
局部_计次	整数型
局部_导出头	文本型		0
导出文件名	文本型
n	整数型

Excel程序1.创建 ()
Excel工作簿1.置程序 (Excel程序1)
Excel工作簿1.激活工作簿 ()
Excel工作簿1.表格序号 ＝ 1
计次循环首 (参_超级列表框.取列数 (), n)
加入成员 (局部_导出头, 参_超级列表框.取列标题 (n － 1))
计次循环尾 ()
计次循环首 (取数组成员数 (局部_导出头), 局部_计次1)
Excel工作簿1.首单元格 ＝ 字符 (97 ＋ 局部_计次1 － 1) ＋ 到文本 (1)
Excel工作簿1.尾单元格 ＝ 字符 (97 ＋ 局部_计次1 － 1) ＋ 到文本 (1)
Excel工作簿1.内容格式 ＝ “@”
Excel工作簿1.内容 ＝ 局部_导出头 [局部_计次1]
计次循环尾 ()
计次循环首 (参_超级列表框.取表项数 (), 局部_计次)
处理事件 ()
计次循环首 (取数组成员数 (局部_导出头), 局部_计次1)
Excel工作簿1.首单元格 ＝ 字符 (97 ＋ 局部_计次1 － 1) ＋ 到文本 (局部_计次 ＋ 1)
Excel工作簿1.尾单元格 ＝ 字符 (97 ＋ 局部_计次1 － 1) ＋ 到文本 (局部_计次 ＋ 1)
Excel工作簿1.内容格式 ＝ “@”
Excel工作簿1.内容 ＝ 参_超级列表框.取标题 (局部_计次 － 1, 局部_计次1 － 1)
计次循环尾 ()
计次循环尾 ()
Excel工作簿1.保存 (参_导出文件名)
Excel工作簿1.关闭 ()
Excel工作簿1.释放 ()
Excel程序1.退出 ()
Excel程序1.释放 ()

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

.版本 2<br /> .支持库 iext<br /> .支持库 eExcel2000<br /> <br /> .子程序 Excel导出<br /> .参数 参_超级列表框, 超级列表框<br /> .参数 参_导出文件名, 文本型<br /> .参数 参_导出文件名标记, 文本型, 可空<br /> .参数 参_导出文件名前缀, 文本型, 可空<br /> .参数 参_表头标记, 整数型, 可空<br /> .局部变量 局部_计次1, 整数型<br /> .局部变量 局部_计次, 整数型<br /> .局部变量 局部_导出头, 文本型, , "0"<br /> .局部变量 导出文件名, 文本型<br /> .局部变量 n, 整数型<br /> <br /> Excel程序1.创建 ()<br /> Excel工作簿1.置程序 (Excel程序1)<br /> Excel工作簿1.激活工作簿 ()<br /> Excel工作簿1.表格序号 ＝ 1<br /> .计次循环首 (参_超级列表框.取列数 (), n)<br />     加入成员 (局部_导出头, 参_超级列表框.取列标题 (n － 1))<br /> .计次循环尾 ()<br /> .计次循环首 (取数组成员数 (局部_导出头), 局部_计次1)<br />     Excel工作簿1.首单元格 ＝ 字符 (97 ＋ 局部_计次1 － 1) ＋ 到文本 (1)<br />     Excel工作簿1.尾单元格 ＝ 字符 (97 ＋ 局部_计次1 － 1) ＋ 到文本 (1)<br />     Excel工作簿1.内容格式 ＝ “@”<br />     Excel工作簿1.内容 ＝ 局部_导出头 [局部_计次1]<br /> .计次循环尾 ()<br /> .计次循环首 (参_超级列表框.取表项数 (), 局部_计次)<br />     处理事件 ()<br />     .计次循环首 (取数组成员数 (局部_导出头), 局部_计次1)<br />         Excel工作簿1.首单元格 ＝ 字符 (97 ＋ 局部_计次1 － 1) ＋ 到文本 (局部_计次 ＋ 1)<br />         Excel工作簿1.尾单元格 ＝ 字符 (97 ＋ 局部_计次1 － 1) ＋ 到文本 (局部_计次 ＋ 1)<br />         Excel工作簿1.内容格式 ＝ “@”<br />         Excel工作簿1.内容 ＝ 参_超级列表框.取标题 (局部_计次 － 1, 局部_计次1 － 1)<br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> Excel工作簿1.保存 (参_导出文件名)<br /> Excel工作簿1.关闭 ()<br /> Excel工作簿1.释放 ()<br /> Excel程序1.退出 ()<br /> Excel程序1.释放 ()

参考例子： excel导出例程.e (9.24 KB, 下载次数: 15)

2021-6-8 22:33 上传

点击文件名下载附件





补充内容 (2021-6-8 22:38):
恳请大佬们解答，连https://bbs.125.la/thread-14684490-1-1.html一起结

rectdbszy

  

子程序名	返回值类型	公开	备 注
Excel导出
参数名	类 型	参考	可空	数组	备 注
参_超级列表框	超级列表框
参_导出文件名	文本型
参_导出文件名标记	文本型
参_导出文件名前缀	文本型
参_表头标记	文本型

变量名	类 型	静态	数组	备 注
局部_计次1	整数型
局部_计次	整数型
局部_导出头	文本型		0
导出文件名	文本型
n	整数型
i	整数型

Excel程序1.创建 ()
Excel工作簿1.置程序 (Excel程序1)
Excel工作簿1.激活工作簿 ()
Excel工作簿1.表格序号 ＝ 1
参_表头标记 ＝ 分割文本 (编辑框1.内容, “,”, )
计次循环首 (参_超级列表框.取表项数 (), n)
计次循环首 (参_超级列表框.取列数 (), i)
计次循环首 (取数组成员数 (参_表头标记), ii)
如果真 (i ＝ 到整数 (参_表头标记[ii]))
' 这就是你加入Excel的

计次循环尾 ()
计次循环尾 ()
计次循环尾 ()

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

.版本 2<br /> .支持库 iext<br /> .支持库 eExcel2000<br /> <br /> .子程序 Excel导出<br /> .参数 参_超级列表框, 超级列表框<br /> .参数 参_导出文件名, 文本型<br /> .参数 参_导出文件名标记, 文本型, 可空<br /> .参数 参_导出文件名前缀, 文本型, 可空<br /> .参数 参_表头标记, 文本型, 可空 数组<br /> .局部变量 局部_计次1, 整数型<br /> .局部变量 局部_计次, 整数型<br /> .局部变量 局部_导出头, 文本型, , "0"<br /> .局部变量 导出文件名, 文本型<br /> .局部变量 n, 整数型<br /> .局部变量 i, 整数型<br /> <br /> Excel程序1.创建 ()<br /> Excel工作簿1.置程序 (Excel程序1)<br /> Excel工作簿1.激活工作簿 ()<br /> Excel工作簿1.表格序号 ＝ 1<br /> 参_表头标记 ＝ 分割文本 (编辑框1.内容, “,”, )<br /> .计次循环首 (参_超级列表框.取表项数 (), n)<br />     .计次循环首 (参_超级列表框.取列数 (), i)<br />         .计次循环首 (取数组成员数 (参_表头标记), ii)<br />             .如果真 (i ＝ 到整数 (参_表头标记[ii]))<br />                 ' 这就是你加入Excel的<br />             .如果真结束<br /> <br />         .计次循环尾 ()<br /> <br />     .计次循环尾 ()<br /> .计次循环尾 ()