文件名称：Excel表格数据导入到超级列表框.ec
文件大小：7KB
文件格式：EC
更新时间：2023-03-12 04:48:52
易语言 易语言模块 Excel 超级列表框
Excel表格数据导入到超级列表框，超级简单只需导入相应的组件以及调整组件的位置大小即可 .版本 2 .支持库 iext .支持库 eExcel2000 .支持库 spec .子程序 Excel导入到超级列表框, , 公开, 需要添加相应组件，Excel表格中不能有合并的单元格 .参数 Excel导入数据文件名, 文本型, , 要打开文件的完整路径 .参数 超级列表框, 超级列表框, , 用来显示加载数据的组件 加入超级列表框组件 .参数 Excel程序, Excel程序, , 加入Excel程序组件 .参数 Excel工作簿, Excel工作簿, , 加入Excel工作薄组件 .参数 是否有进度条, 逻辑型, 可空, 默认为假 .参数 进度条组件, 进度条, 可空, 加入进度条组件，如果为空可以不用加入组件 .局部变量 工作薄对象, 对象 .局部变量 范围, 对象 .局部变量 行对象, 对象 .局部变量 列对象, 对象 .局部变量 行, 整数型 .局部变量 列, 整数型 .局部变量 n1, 整数型 .局部变量 单元格对象, 对象 .局部变量 索引, 整数型 .局部变量 n2, 整数型 .局部变量 列字母, 文本型 .局部变量 表格内容, 文本型 .局部变量 列宽, 整数型 .局部变量 字母, 文本型 .局部变量 首字母, 文本型 .局部变量 次字母, 文本型 .局部变量 尾字母, 文本型 .局部变量 临时数, 整数型 Excel程序.创建 () Excel程序.显示 ＝ 假 Excel工作簿.置程序 (Excel程序) Excel工作簿.打开 (Excel导入数据文件名) Excel工作簿.激活工作簿 () Excel工作簿.激活表格 () Excel工作簿.表格序号 ＝ 0 工作薄对象 ＝ Excel工作簿.取表格对象 () 范围 ＝ 工作薄对象.读对象型属性 (“UsedRange”, ) 行对象 ＝ 范围.读对象型属性 (“Rows”, ) 行 ＝ 行对象.读数值属性 (“Count”, ) 列对象 ＝ 范围.读对象型属性 (“Columns”, ) 列 ＝ 列对象.读数值属性 (“Count”, ) ' 列宽 ＝ 列对象.读属性 (, ) 调试输出 (行, 列) n2 ＝ 0 .判断循环首 (n2 ＜ 行) n2 ＝ n2 ＋ 1 n1 ＝ 1 索引 ＝ 超级列表框.插入表项 (, , , , , ) .计次循环首 (列, n1) .如果真 (n1 ≤ 26) 列字母 ＝ 字符 (64 ＋ n1) ' 键代码65代表字符A,n1从1开始 .如果真结束 .如果真 (26 ＜ n1 且 n1 ≤ 701) ' 26*26+26=702 首字母 ＝ 多项选择 (n1 ＼ 26, “A”, “B”, “C”, “D”, “E”, “F”, “G”, “H”, “I”, “J”, “K”, “L”, “M”, “N”, “O”, “P”, “Q”, “R”, “S”, “T”, “U”, “V”, “W”, “X”, “Y”, “Z”) ' 共26个字母,整除取首字母， Excel最多有IV列 次字母 ＝ 字符 (64 ＋ n1 ％ 26) ' 求余数取次字母 列字母 ＝ 首字母 ＋ 次字母 .如果真结束 .如果真 (n1 ＝ 702) 列字母 ＝ “ZZ” .如果真结束 .如果真 (702 ＜ n1 且 n1 ≤ 18953) 首字母 ＝ 多项选择 (n1 ＼ 702, “A”, “B”, “C”, “D”, “E”, “F”, “G”, “H”, “I”, “J”, “K”, “L”, “M”, “N”, “O”, “P”, “Q”, “R”, “S”, “T”, “U”, “V”, “W”, “X”, “Y”, “Z”) 临时数 ＝ n1 － 702 × (n1 ＼ 702) 次字母 ＝ 多项选择 (临时数 ＼ 26, “A”, “B”, “C”, “D”, “E”, “F”, “G”, “H”, “I”, “J”, “K”, “L”, “M”, “N”, “O”, “P”, “Q”, “R”, “S”, “T”, “U”, “V”, “W”, “X”, “Y”, “Z”) ' 共26个字母,整除取首字母， Excel最多有IV列 尾字母 ＝ 字符 (64 ＋ 临时数 ％ 26) ' 求余数取次字母 列字母 ＝ 首字母 ＋ 次字母 ＋ 尾字母 .如果真结束 .如果真 (n1 ＝ 18954) ' 702*26+26=18954 列字母 ＝ “ZZZ” .如果真结束 Excel工作簿.首单元格 ＝ 列字母 ＋ 到文本 (n2) Excel工作簿.尾单元格 ＝ 列字母 ＋ 到文本 (n2) 单元格对象 ＝ Excel工作簿.取单元格对象 () 表格内容 ＝ 单元格对象.读文本属性 (“Value”, ) .如果真 (超级列表框.取列数 () ＜ 列) 超级列表框.插入列 (, , , , , ) .如果真结束 超级列表框.置标题 (索引, n1 － 1, 表格内容) .计次循环尾 () .如果真 (n2 ＞ 行) 跳出循环 () .如果真结束 .如果真 (是否有进度条 ＝ 真) 进度条组件.位置 ＝ 进度条组件.位置 ＋ (进度条组件.最大位置 － 进度条组件.位置) × n2 ÷ 行 .如果真 (进度条组件.位置 ＝ 进度条组件.最大位置) 信息框 (“数据导入完毕。”, 0, , ) .如果真结束 .如果真结束 .判断循环尾 () Excel工作簿.关闭 () Excel程序.退出 () Excel工作簿.释放 () Excel程序.释放 ()