易语言无限列行导入导出EXCEL

.版本 2
.支持库 eExcel2000
.支持库 iext

.程序集 窗口程序集_启动窗口
.程序集变量 mm, 文本型, , "0"

.子程序 __启动窗口_创建完毕

mm ＝ { “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” }

.子程序 _按钮1_被单击
.局部变量 e, EXCEL类
.局部变量 a, 整数型
.局部变量 b, 整数型
.局部变量 c, 整数型
.局部变量 d, 整数型
.局部变量 f, 整数型
.局部变量 g, 整数型
.局部变量 列字母, 文本型

通用对话框1.打开 ()
e.创建 ()
e.打开EXCEL (通用对话框1.文件名)
e.取行数列数 (a, b)
e.关闭 ()
Excel程序1.创建 ()
Excel工作簿1.置程序 (Excel程序1)
Excel工作簿1.打开 (通用对话框1.文件名)
.计次循环首 (b, d)
    超级列表框1.插入列 (b － 1, 到文本 (d), , , , )
.计次循环尾 ()
.计次循环首 (a, d)
    超级列表框1.插入表项 (, , , , , )
.计次循环尾 ()
.计次循环首 (b, d)
    .判断开始 (d ＜ 27)
        列字母 ＝ mm [d ％ 27]
    .判断 (d ％ 26 ＝ 0)
        列字母 ＝ mm [取整 (d ÷ 26) － 1] ＋ “Z”
    .默认
        列字母 ＝ mm [取整 (d ÷ 26)] ＋ mm [d ％ 26]
    .判断结束
    .计次循环首 (a, f)
        Excel工作簿1.首单元格 ＝ 列字母 ＋ 到文本 (f)
        ' Excel工作簿1.尾单元格 ＝ 列字母 ＋ 到文本 (f)
        超级列表框1.置标题 (f － 1, d － 1, Excel工作簿1.内容)
    .计次循环尾 ()
.计次循环尾 ()
Excel工作簿1.关闭 ()
Excel程序1.退出 ()
' e.读单元格文本 (1, 列字母 ＋ 到文本 (f))

.子程序 _按钮2_被单击
.局部变量 d, 整数型
.局部变量 列字母, 文本型
.局部变量 f, 整数型

通用对话框1.类型 ＝ 1
.如果真 (通用对话框1.打开 () ＝ 假)
    返回 ()
.如果真结束
Excel程序1.创建 ()
Excel工作簿1.置程序 (Excel程序1)
Excel工作簿1.激活工作簿 ()
Excel工作簿1.表格序号 ＝ 1
.计次循环首 (超级列表框1.取列数 (), d)
    .判断开始 (d ＜ 27)
        列字母 ＝ mm [d ％ 27]
    .判断 (d ％ 26 ＝ 0)
        列字母 ＝ mm [取整 (d ÷ 26) － 1] ＋ “Z”
    .默认
        列字母 ＝ mm [取整 (d ÷ 26)] ＋ mm [d ％ 26]
    .判断结束
    .计次循环首 (超级列表框1.取表项数 (), f)
        Excel工作簿1.首单元格 ＝ 列字母 ＋ 到文本 (f)
        Excel工作簿1.尾单元格 ＝ 列字母 ＋ 到文本 (f)
        Excel工作簿1.内容 ＝ 超级列表框1.取标题 (f － 1, d － 1)
    .计次循环尾 ()
.计次循环尾 ()
Excel工作簿1.保存 (通用对话框1.文件名)
Excel工作簿1.关闭 ()
Excel程序1.退出 ()

@904237917