【常用】易语言免安装excel超级列表框导出表格与导入表格

callme大大

  

子程序名	返回值类型	公开	备 注
超级列表框_导入表格	逻辑型
参数名	类 型	参考	可空	数组	备 注
超级列表框	超级列表框				超级列表框优先
路径	文本型				Excel保存路径\理论支持（ 2007、2010、2016）格式文件
进度条	进度条

变量名	类 型	静态	数组	备 注
book	类_工作簿
表格	类_工作表
起始行	整数型
起始列	整数型
终止行	整数型
终止列	整数型
i	整数型
列宽	整数型
s	整数型
n	整数型

如果真 (文件是否存在 (路径) ＝ 假)
返回 (假)
超级列表框.全部删除 ()
计次循环首 (超级列表框.取列数 (), i)
i ＝ i － 1
超级列表框.删除列 (i)
计次循环尾 ()
EXCEL_初始化 (book, 路径)
表格 ＝ book.选择表 (0)
起始行 ＝ 表格.取使用起始行 ()
起始列 ＝ 表格.取使用起始列 ()
终止列 ＝ 表格.取使用终止列 ()
终止行 ＝ 表格.取使用终止行 ()
进度条.最小位置 ＝ 0
进度条.最大位置 ＝ 终止行 － 起始行 － 1
列宽 ＝ (超级列表框.宽度 － 80) ÷ (终止列 － 起始列)
计次循环首 (终止列 － 起始列 ＋ 1, i)
i ＝ i － 1
如果 (i ＝ 0)
超级列表框.插入列 (i, “ID”, 50, 1, , )  ' 增加一个ID列
超级列表框.插入列 (i, 表格.取单元格文本 (0, i － 1), 列宽, 1, , )
调试输出 (i)
处理事件 ()
计次循环尾 ()
计次循环首 (终止行 － 起始行 － 1, i)
进度条.位置 ＝ i
s ＝ 超级列表框.插入表项 (, , , , , )
计次循环首 (终止列 － 起始列 ＋ 1, n)
n ＝ n － 1
如果 (n ＝ 0)
超级列表框.置标题 (s, n, 到文本 (i))
超级列表框.置标题 (s, n, 表格.取单元格文本 (i, n － 1))
处理事件 ()
计次循环尾 ()
计次循环尾 ()
返回 (真)

子程序名	返回值类型	公开	备 注
超级列表框_导出表格
参数名	类 型	参考	可空	数组	备 注
保存文件名	文本型				如果没有模板文件，那么必须是xlsx的文件后缀
超级列表框	超级列表框
模板文件	文本型				一个没有数据的模板文件

变量名	类 型	静态	数组	备 注
工作簿	类_工作簿
excel	类_工作表
格式	类_格式
i	整数型
n	整数型
内容	文本型
a	整数型
b	整数型
c	整数型

如果 (模板文件 ≠ “”)
复制文件 (模板文件, 保存文件名)
写到文件 (保存文件名, #空表格xlsx )
EXCEL_初始化 (工作簿, 保存文件名)
excel ＝ 工作簿.选择表 (0)
计次循环首 (超级列表框.取表项数 () ＋ 1, i)
i ＝ i － 1
计次循环首 (超级列表框.取列数 (), n)
n ＝ n － 1
如果 (i ＝ 0)
内容 ＝ 超级列表框.取列标题 (n)
内容 ＝ 超级列表框.取标题 (i － 1, n)
格式 ＝ excel.取单元格格式 (i, n)  ' 忽略一行.I从1开始
excel.置单元格文本 (i, n, 内容, 格式)
计次循环尾 ()
计次循环尾 ()
工作簿.保存 (保存文件名)
工作簿.释放 ()

子程序名	返回值类型	公开	备 注
EXCEL_初始化	逻辑型		如果使用xlsx格式，文档不存在将自动创建一个空的
参数名	类 型	参考	可空	数组	备 注
book	类_工作簿				类_工作簿
excel路径	文本型

如果 (文件_取扩展名 (excel路径) ＝ “.xlsx”)
如果真 (文件是否存在 (excel路径) ＝ 假)
写到文件 (excel路径, #空表格xlsx )
book.创建XLSX ()
如果 (文件_取扩展名 (excel路径) ＝ “.xls”)
book.创建XLSX ()
返回 (假)

book.注册 (“123”, Getkey (“123”))
返回 (book.打开 (excel路径))

i支持库列表	支持库注释
iext	扩展界面支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .子程序 超级列表框_导入表格, 逻辑型, 公开<br /> .参数 超级列表框, 超级列表框, , 超级列表框优先<br /> .参数 路径, 文本型, , Excel保存路径\理论支持（ 2007、2010、2016）格式文件<br /> .参数 进度条, 进度条, 可空<br /> .局部变量 book, 类_工作簿<br /> .局部变量 表格, 类_工作表<br /> .局部变量 起始行, 整数型<br /> .局部变量 起始列, 整数型<br /> .局部变量 终止行, 整数型<br /> .局部变量 终止列, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 列宽, 整数型<br /> .局部变量 s, 整数型<br /> .局部变量 n, 整数型<br /> <br /> .如果真 (文件是否存在 (路径) ＝ 假)<br />     返回 (假)<br /> .如果真结束<br /> 超级列表框.全部删除 ()<br /> .计次循环首 (超级列表框.取列数 (), i)<br />     i ＝ i － 1<br />     超级列表框.删除列 (i)<br /> .计次循环尾 ()<br /> EXCEL_初始化 (book, 路径)<br /> 表格 ＝ book.选择表 (0)<br /> 起始行 ＝ 表格.取使用起始行 ()<br /> 起始列 ＝ 表格.取使用起始列 ()<br /> 终止列 ＝ 表格.取使用终止列 ()<br /> 终止行 ＝ 表格.取使用终止行 ()<br /> <br /> 进度条.最小位置 ＝ 0<br /> 进度条.最大位置 ＝ 终止行 － 起始行 － 1<br /> 列宽 ＝ (超级列表框.宽度 － 80) ÷ (终止列 － 起始列)<br /> .计次循环首 (终止列 － 起始列 ＋ 1, i)<br />     i ＝ i － 1<br />     .如果 (i ＝ 0)<br />         超级列表框.插入列 (i, “ID”, 50, 1, , )  ' 增加一个ID列<br />     .否则<br />         超级列表框.插入列 (i, 表格.取单元格文本 (0, i － 1), 列宽, 1, , )<br />     .如果结束<br />     调试输出 (i)<br />     处理事件 ()<br /> .计次循环尾 ()<br /> <br /> .计次循环首 (终止行 － 起始行 － 1, i)<br />     进度条.位置 ＝ i<br />     s ＝ 超级列表框.插入表项 (, , , , , )<br />     .计次循环首 (终止列 － 起始列 ＋ 1, n)<br />         n ＝ n － 1<br />         .如果 (n ＝ 0)<br />             超级列表框.置标题 (s, n, 到文本 (i))<br />         .否则<br />             超级列表框.置标题 (s, n, 表格.取单元格文本 (i, n － 1))<br />         .如果结束<br />         处理事件 ()<br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> 返回 (真)<br /> <br /> <br /> .子程序 超级列表框_导出表格, , 公开<br /> .参数 保存文件名, 文本型, , 如果没有模板文件，那么必须是xlsx的文件后缀<br /> .参数 超级列表框, 超级列表框<br /> .参数 模板文件, 文本型, 可空, 一个没有数据的模板文件<br /> .局部变量 工作簿, 类_工作簿<br /> .局部变量 excel, 类_工作表<br /> .局部变量 格式, 类_格式<br /> .局部变量 i, 整数型<br /> .局部变量 n, 整数型<br /> .局部变量 内容, 文本型<br /> .局部变量 a, 整数型<br /> .局部变量 b, 整数型<br /> .局部变量 c, 整数型<br /> <br /> .如果 (模板文件 ≠ “”)<br />     复制文件 (模板文件, 保存文件名)<br /> .否则<br />     写到文件 (保存文件名, #空表格xlsx)<br /> .如果结束<br /> EXCEL_初始化 (工作簿, 保存文件名)<br /> excel ＝ 工作簿.选择表 (0)<br /> .计次循环首 (超级列表框.取表项数 () ＋ 1, i)<br />     i ＝ i － 1<br />     .计次循环首 (超级列表框.取列数 (), n)<br />         n ＝ n － 1<br />         .如果 (i ＝ 0)<br />             内容 ＝ 超级列表框.取列标题 (n)<br />         .否则<br />             内容 ＝ 超级列表框.取标题 (i － 1, n)<br />         .如果结束<br />         格式 ＝ excel.取单元格格式 (i, n)  ' 忽略一行.I从1开始<br />         excel.置单元格文本 (i, n, 内容, 格式)<br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> 工作簿.保存 (保存文件名)<br /> 工作簿.释放 ()<br /> .版本 2<br /> <br /> .子程序 EXCEL_初始化, 逻辑型, 公开, 如果使用xlsx格式，文档不存在将自动创建一个空的  <br /> .参数 book, 类_工作簿, , 类_工作簿<br /> .参数 excel路径, 文本型<br /> <br /> .如果 (文件_取扩展名 (excel路径) ＝ “.xlsx”)<br />     .如果真 (文件是否存在 (excel路径) ＝ 假)<br />         写到文件 (excel路径, #空表格xlsx)<br />     .如果真结束<br />     book.创建XLSX ()<br /> .否则<br />     .如果 (文件_取扩展名 (excel路径) ＝ “.xls”)<br />         book.创建XLSX ()<br />     .否则<br />         返回 (假)<br />     .如果结束<br /> <br /> .如果结束<br /> book.注册 (“123”, Getkey (“123”))<br /> 返回 (book.打开 (excel路径))

模块与dll.zip (2.59 MB, 下载次数: 845)

2020-10-8 12:35 上传

点击文件名下载附件

爱书人飞

感谢分享

1365436

感谢分享，很给力！~

qzmylove

回复看看，弄丢了

766711831

88888888888888888888888

766711831

66666666666666666

风人

回复看看，弄丢了

sukylzy

谢谢谢谢

sukylzy

谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢

oyg121

感谢分享，很给力！~