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”