|
楼主 |
发表于 2020-1-29 18:59:44
|
显示全部楼层
广东省珠海市
这个表格导入程序 也只能导入的Z, AA 之后也导入不了
哪里需要修改???
谢谢!!
————————————————————————————————————————————
.版本 2
.支持库 iext
.支持库 eExcel2000
.子程序 EXCEL_导入超级列表框, , 公开, EXCEL文档导入到超级列表框内
.参数 参数_超级列表框, 超级列表框, , 指定要显示的超级列表框,需有一个“超级列表框”组件
.参数 参数_通用对话框, 通用对话框, , 需要有一个“通用对话框”组件
.参数 参数_Excel程序, Excel程序, , 需要有一个“Excel程序”组件
.参数 参数_Excel工作簿, Excel工作簿, , 需要有一个“Excel工作簿”组件
.参数 参数_路径, 文本型, , 指定EXCEL文件路径
.局部变量 表头循环次数, 整数型
.局部变量 局部_导出头, 文本型
.局部变量 报表列, 字节集
.局部变量 局部_计次, 整数型
.局部变量 局部_标志, 文本型
.局部变量 局部_索引, 整数型
.局部变量 局部_计次1, 整数型
.局部变量 a, 整数型
参数_超级列表框.全部删除 () ' ======这一条是防止超级列表框重复显示的
参数_Excel程序.创建 ()
参数_Excel工作簿.置程序 (参数_Excel程序)
参数_Excel工作簿.激活工作簿 ()
参数_Excel工作簿.打开 (参数_路径)
参数_Excel工作簿.表格序号 = 1
局部_标志 = “1”
局部_计次 = 1
.判断循环首 (删全部空 (局部_标志) ≠ “”)
处理事件 ()
局部_标志 = “”
参数_Excel工作簿.首单元格 = 字符 (96 + 局部_计次) + 到文本 (1)
参数_Excel工作簿.尾单元格 = 字符 (96 + 局部_计次) + 到文本 (1)
局部_标志 = 局部_标志 + 参数_Excel工作簿.内容
参数_超级列表框.插入列 (-1, 参数_Excel工作簿.内容, 100, #中间对齐, , ) ' 列宽修改
局部_计次 = 局部_计次 + 1
表头循环次数 = 表头循环次数 + 1
.判断循环尾 ()
局部_标志 = “”
局部_计次 = 0
处理事件 ()
' ===============================================================================================
局部_标志 = “1” ' 先给 局部_标志 赋值,目的是让程序进入循环
局部_计次 = 1 ' 设定局部计次的初始值为 1 内部循环完成后赋值 局部_计次 = 局部_计次 + 1 就可以模拟双循环了
.判断循环首 (删全部空 (局部_标志) ≠ “”)
处理事件 ()
局部_索引 = 参数_超级列表框.插入表项 (, , , , , ) ' 每次插入都必须要做的事情,然后才能插入值 他是插入一列
局部_标志 = “”
.计次循环首 (表头循环次数 - 1, 局部_计次1)
参数_Excel工作簿.首单元格 = 字符 (96 + 局部_计次1) + 到文本 (局部_计次 + 1)
参数_Excel工作簿.尾单元格 = 字符 (96 + 局部_计次1) + 到文本 (局部_计次 + 1)
' 每个单元格的设定,,表是每个单元格每个单元格的插入的。
局部_标志 = 局部_标志 + 参数_Excel工作簿.内容
' 用于判断循环的条件的 每内部循环一次就往里面添加xx了。如果整列都没有xx 里面就为空了 如果为空 就不进入循环了 !
参数_超级列表框.置标题 (局部_索引, 局部_计次1 - 1, 参数_Excel工作簿.内容)
.计次循环尾 ()
局部_计次 = 局部_计次 + 1
.判断循环尾 ()
信息框 (“你已经成功导入了” + 到文本 (局部_计次 - 2) + “行xx!”, 0, , )
参数_Excel工作簿.关闭 ()
参数_Excel工作簿.释放 ()
参数_Excel程序.退出 ()
参数_Excel程序.释放 ()
|
|