接下来就可以用计次循环首分别读入每一行的数据了!,这里为好理解,用了个笨方法,每循环一次代表读取每一行的数据!然后就把取得的数据置入超级列表框就行了!
.版本 2.支持库 eExcel2000.支持库 iext
.计次循环首 (行, n1) Excel工作簿1.首单元格 = “A” + 到文本 (n1) Excel工作簿1.尾单元格 = “A” + 到文本 (n1) 单元格对象 = Excel工作簿1.取单元格对象 () A列 = 单元格对象.读文本属性 (“Value”, )
Excel工作簿1.首单元格 = “B” + 到文本 (n1) Excel工作簿1.尾单元格 = “B” + 到文本 (n1) 单元格对象 = Excel工作簿1.取单元格对象 () B列 = 单元格对象.读文本属性 (“Value”, )
Excel工作簿1.首单元格 = “C” + 到文本 (n1) Excel工作簿1.尾单元格 = “C” + 到文本 (n1) 单元格对象 = Excel工作簿1.取单元格对象 () C列 = 单元格对象.读文本属性 (“Value”, )
Excel工作簿1.首单元格 = “D” + 到文本 (n1) Excel工作簿1.尾单元格 = “D” + 到文本 (n1) 单元格对象 = Excel工作簿1.取单元格对象 () D列 = 单元格对象.读文本属性 (“Value”, )
Excel工作簿1.首单元格 = “E” + 到文本 (n1) Excel工作簿1.尾单元格 = “E” + 到文本 (n1) 单元格对象 = Excel工作簿1.取单元格对象 () E列 = 单元格对象.读文本属性 (“Value”, )
Excel工作簿1.首单元格 = “F” + 到文本 (n1) Excel工作簿1.尾单元格 = “F” + 到文本 (n1) 单元格对象 = Excel工作簿1.取单元格对象 () F列 = 单元格对象.读文本属性 (“Value”, )
索引 = 超级列表框1.插入表项 (, , , , , ) 超级列表框1.置标题 (索引, 0, A列) 超级列表框1.置标题 (索引, 1, B列) 超级列表框1.置标题 (索引, 2, C列) 超级列表框1.置标题 (索引, 3, D列) 超级列表框1.置标题 (索引, 4, E列)
.计次循环尾 ()