易语言， *** 作高级表格将数据保存到excel中

网络大表哥，帮您解决EXCEL 及 VBA 疑难问题

QQQQ QQQQ QQQQ QQQQ QQQQ QQ QQQQ Q Q QQQQ

Q Q Q Q Q Q Q Q Q Q Q Q

QQQQ QQQQ QQQQ QQQQ QQQQ Q Q QQQQQ QQQQ

Q Q Q Q Q Q Q Q Q Q

QQQQ QQQQ QQQQ QQQQ QQQQ QQQQ Q Q QQQQ

我有个制作工具源码你可以参考下， 带模版

版本 2

程序集 窗口程序集1

程序集变量 画板, 画板, , "0"

程序集变量 号, 整数型, , "0"

程序集变量 当前画板, 画板

程序集变量 当前编号, 字节型

程序集变量 宽, 字节型

程序集变量 高, 字节型

子程序 _载入按钮_被单击

局部变量 当前数, 字节型

宽 ＝ 到数值 (编辑框1内容)

高 ＝ 到数值 (编辑框2内容)

如果真 (通用对话框1打开 ())

    当前数 ＝ 取数组成员数 (画板)

    如果真 (当前数 ＞ 0)

        画板 [当前数]画板背景色 ＝ #灰绿

        画板 [当前数]画 (号 [当前数], 8, 8, 32, 32, )

    如果真结束

    重定义数组 (号, 真, 当前数 ＋ 1)

    号 [当前数 ＋ 1] ＝ 载入 (通用对话框1文件名)

    如果真 ((画板2取宽度 (号 [当前数 ＋ 1]) ≠ 宽 或 画板2取高度 (号 [当前数 ＋ 1]) ≠ 高) 且 选择框1选中 ＝ 假)

        如果真 (信息框 (“    所要载入的大小为” ＋ 到文本 (画板2取宽度 (号 [当前数 ＋ 1])) ＋ “×” ＋ 到文本 (画板2取高度 (号 [当前数 ＋ 1])) ＋ “象素，与设置的” ＋ 编辑框1内容 ＋ “×” ＋ 编辑框2内容 ＋ “象素不一致，将根据设置的大小自动缩放。确定要载入吗？” ＋ #换行符 ＋ “    你可以选中选择框” ＋ #左引号 ＋ “自动缩放” ＋ #右引号 ＋ “以避免出现本信息框。”, #信息图标 ＋ #确认取消钮, “载入”) ＝ #取消钮)

            返回 ()

        如果真结束

    如果真结束

    当前数 ＝ 取数组成员数 (画板)

    重定义数组 (画板, 真, 当前数 ＋ 1)

    复制窗口组件 (画板2, 画板 [当前数 ＋ 1])

    画板 [当前数 ＋ 1]标记 ＝ 到文本 (当前数 ＋ 1)

    画板 [当前数 ＋ 1]移动 (当前数 × 48 ＋ (当前数 ＋ 1) × 12, 10, 48, 48)

    画板 [当前数 ＋ 1]可视 ＝ 真

    画板 [当前数 ＋ 1]画板背景色 ＝ #蓝色

    画板 [当前数 ＋ 1]画 (号 [当前数 ＋ 1], 8, 8, 32, 32, )

    如果真 (当前编号 ≠ 0)

        画板 [当前编号]画板背景色 ＝ #灰绿

        画板 [当前编号]画 (号 [当前编号], 8, 8, 32, 32, )

    如果真结束

    当前画板 ＝ 画板 [当前数 ＋ 1]

    当前编号 ＝ 当前数 ＋ 1

    如果真 (画板 [当前数 ＋ 1]左边 ＋ 60 ＞ 画板1宽度)

        横向滚动条1可视 ＝ 真

        横向滚动条1最大位置 ＝ 画板 [当前数 ＋ 1]左边 ＋ 60 － 画板1宽度

        横向滚动条1位置 ＝ 横向滚动条1最大位置

        画板5移动 (－横向滚动条1最大位置, , , )

    如果真结束

    连续赋值 (假, 生成按钮禁止, 清除按钮禁止, 删除按钮禁止, 插入按钮禁止)

    画板5宽度 ＝ 画板5宽度 ＋ 60

如果真结束

子程序 _生成按钮_被单击

局部变量 容器1, 字节型

画板4可视 ＝ 真

画板4移动 (12, (画板3高度 － 高) ÷ 2, 取数组成员数 (号) × 宽, 高)

计次循环首 (取数组成员数 (号), 容器1)

    画板4画 (号 [容器1], (容器1 － 1) × 宽, 0, 宽, 高, )

计次循环尾 ()

如果真 (画板4左边 ＋ 画板4宽度 ＋ 12 ＞ 画板3宽度)

    横向滚动条2可视 ＝ 真

    横向滚动条2最大位置 ＝ 画板4左边 ＋ 画板4宽度 ＋ 12 － 画板3宽度

    横向滚动条2位置 ＝ 横向滚动条2最大位置

    画板4移动 (12 － 横向滚动条2最大位置, , , )

如果真结束

保存按钮禁止 ＝ 假

如果 (横向滚动条2可视 ＝ 真)

    _启动窗口移动 (, , , 326)

否则

    _启动窗口移动 (, , , 308)

如果结束

子程序 _横向滚动条1_位置被改变

画板5移动 (－横向滚动条1位置, , , )

子程序 _横向滚动条2_位置被改变

画板4移动 (12 － 横向滚动条2位置, , , )

子程序 _清除按钮_被单击

局部变量 容器1, 字节型

计次循环首 (取数组成员数 (号), 容器1)

    画板4画 (号 [容器1], (容器1 － 1) × 宽, 0, 宽, 高, )

    卸载 (号 [容器1])

    画板 [容器1]销毁 ()

计次循环尾 ()

重定义数组 (画板, 假, 0)

重定义数组 (号, 假, 0)

画板4清除 (, , , )

画板4可视 ＝ 假

连续赋值 (真, 生成按钮禁止, 保存按钮禁止, 清除按钮禁止, 删除按钮禁止, 插入按钮禁止)

连续赋值 (1, 横向滚动条1位置, 横向滚动条1最大位置, 横向滚动条2位置, 横向滚动条2最大位置)

横向滚动条1可视 ＝ 假

横向滚动条2可视 ＝ 假

画板5移动 (0, , 72, )

_启动窗口移动 (, , , 224)

当前编号 ＝ 0

子程序 _保存按钮_被单击

如果真 (通用对话框2打开 ())

    如果 (写到文件 (通用对话框2文件名, 画板4取 (, )))

        信息框 (“保存组文件” ＋ 通用对话框2文件名 ＋ “成功！”, #信息图标, “保存组”)

    否则

        信息框 (“保存组文件” ＋ 通用对话框2文件名 ＋ “失败！”, #错误图标, “保存组”)

    如果结束

如果真结束

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

_启动窗口移动 (, , , 224)

子程序 _编辑框1_获得焦点

编辑框1被选择字符数 ＝ -1

子程序 _编辑框2_获得焦点

编辑框2被选择字符数 ＝ -1

子程序 _编辑框1_内容被改变

如果真 (到数值 (编辑框1内容) ＞ 64)

    鸣叫 ()

    编辑框1内容 ＝ 取文本左边 (编辑框1内容, 取文本长度 (编辑框1内容) － 1)

    编辑框1起始选择位置 ＝ 取文本长度 (编辑框1内容)

如果真结束

子程序 _编辑框2_内容被改变

如果真 (到数值 (编辑框2内容) ＞ 64)

    鸣叫 ()

    编辑框2内容 ＝ 取文本左边 (编辑框2内容, 取文本长度 (编辑框2内容) － 1)

    编辑框2起始选择位置 ＝ 取文本长度 (编辑框2内容)

如果真结束

子程序 _画板2_鼠标左键被按下, 逻辑型

参数 横向位置, 整数型

参数 纵向位置, 整数型

参数 功能键状态, 整数型

局部变量 容器1, 字节型

当前画板 ＝ 取事件组件 ()

画板 [当前编号]画板背景色 ＝ #灰绿

画板 [当前编号]画 (号 [当前编号], 8, 8, 32, 32, )

当前编号 ＝ 到数值 (当前画板标记)

当前画板画板背景色 ＝ #蓝色

当前画板画 (号 [当前编号], 8, 8, 32, 32, )

子程序 _删除按钮_被单击

局部变量 容器1, 字节型

当前画板销毁 ()

删除成员 (号, 当前编号, 1)

删除成员 (画板, 当前编号, 1)

如果 (取数组成员数 (号) ＝ 0)

    画板4清除 (, , , )

    画板4可视 ＝ 假

    连续赋值 (真, 生成按钮禁止, 保存按钮禁止, 清除按钮禁止, 删除按钮禁止, 插入按钮禁止)

    连续赋值 (1, 横向滚动条1位置, 横向滚动条1最大位置, 横向滚动条2位置, 横向滚动条2最大位置)

    横向滚动条1可视 ＝ 假

    横向滚动条2可视 ＝ 假

    _启动窗口移动 (, , , 224)

否则

    如果真 (当前编号 ≤ 取数组成员数 (画板))

        变量循环首 (当前编号, 取数组成员数 (画板), 1, 容器1)

            画板 [容器1]标记 ＝ 到文本 (容器1)

            画板 [容器1]左边 ＝ 画板 [容器1]左边 － 60

        变量循环尾 ()

    如果真结束

    当前画板 ＝ 画板 [选择 (当前编号 ＞ 取数组成员数 (画板), 取数组成员数 (画板), 当前编号)]

    当前编号 ＝ 到数值 (当前画板标记)

    画板 [当前编号]画板背景色 ＝ #蓝色

    画板 [当前编号]画 (号 [当前编号], 8, 8, 32, 32, )

    如果 (画板 [取数组成员数 (画板)]左边 ＋ 60 ＞ 画板1宽度)

        横向滚动条1可视 ＝ 真

        横向滚动条1最大位置 ＝ 画板 [取数组成员数 (画板)]左边 ＋ 60 － 画板1宽度

        横向滚动条1位置 ＝ 横向滚动条1最大位置

        画板5移动 (－横向滚动条1最大位置, , , )

    否则

        横向滚动条1可视 ＝ 假

        画板5左边 ＝ 0

    如果结束

如果结束

画板5宽度 ＝ 画板5宽度 － 60

子程序 _插入按钮_被单击

局部变量 插入画板, 画板

局部变量 插入号, 整数型

局部变量 容器1, 字节型

如果真 (通用对话框1打开 ())

    插入号 ＝ 载入 (通用对话框1文件名)

    如果真 ((画板2取宽度 (插入号) ≠ 宽 或 画板2取高度 (插入号) ≠ 高) 且 选择框1选中 ＝ 假)

        如果真 (信息框 (“    所要载入的大小为” ＋ 到文本 (画板2取宽度 (插入号)) ＋ “×” ＋ 到文本 (画板2取高度 (插入号)) ＋ “象素，与设置的” ＋ 编辑框1内容 ＋ “×” ＋ 编辑框2内容 ＋ “象素不一致，将根据设置的大小自动缩放。确定要载入吗？” ＋ #换行符 ＋ “    你可以选中选择框” ＋ #左引号 ＋ “自动缩放” ＋ #右引号 ＋ “以避免出现本信息框。”, #信息图标 ＋ #确认取消钮, “载入”) ＝ #取消钮)

            返回 ()

        如果真结束

    如果真结束

    画板5宽度 ＝ 画板5宽度 ＋ 60

    插入成员 (号, 当前编号 ＋ 1, 插入号)

    复制窗口组件 (画板2, 插入画板)

    插入成员 (画板, 当前编号 ＋ 1, 插入画板)

    画板 [当前编号 ＋ 1]可视 ＝ 真

    画板 [当前编号 ＋ 1]画板背景色 ＝ #蓝色

    画板 [当前编号 ＋ 1]标记 ＝ 到文本 (当前编号 ＋ 1)

    画板 [当前编号 ＋ 1]左边 ＝ 当前画板左边 ＋ 60

    画板 [当前编号 ＋ 1]画 (号 [当前编号 ＋ 1], 8, 8, 32, 32, )

    当前画板画板背景色 ＝ #灰绿

    当前画板画 (号 [当前编号], 8, 8, 32, 32, )

    当前画板 ＝ 画板 [当前编号 ＋ 1]

    当前编号 ＝ 当前编号 ＋ 1

    变量循环首 (当前编号 ＋ 1, 取数组成员数 (画板), 1, 容器1)

        画板 [容器1]标记 ＝ 到文本 (容器1)

        画板 [容器1]左边 ＝ 画板 [容器1]左边 ＋ 60

    变量循环尾 ()

    如果真 (画板 [取数组成员数 (画板)]左边 ＋ 60 ＞ 画板1宽度)

        横向滚动条1可视 ＝ 真

        横向滚动条1最大位置 ＝ 画板 [取数组成员数 (画板)]左边 ＋ 60 － 画板1宽度

        横向滚动条1位置 ＝ 横向滚动条1最大位置

        画板5移动 (－横向滚动条1最大位置, , , )

数据内容=到文本（读入文件（取运行目录（）+“\文件名”））

下面代码无法写了，只能给看例子。 比如我要导入qq账号和qq密码到超级列表框里

数据内容=

123456----eyybbs

456789----eyybbs

文本数组=分割文本（数据内容，#换行符，）

计次循环首（取数组成员数（数据内容），n）

结果数组=分割文本（文本数组[n]，“----”，）

如果真（取数组成员数（结果数组）=2）

索引=超级列表框1插入表项（）

如果真（取数组成员数（结果数组）=2）’加个如果以防数据内容错乱导致软件报错

超级列表框1至标题（索引，0，结果数组[1]）

超级列表框1至标题（索引，0，结果数组[2]）

计次循环尾

这个代码我给你敲了两遍，第一遍网页无缘无故关闭了，纯手工。不懂请hi我。百度hi头像有我qq

打开方式出错。

1鼠标右键点击乱码的excel，选择“打开方式”。2在打开方式中选择“记事本”，如果没有，可以点击“打开方式”，选择“其他默认程序中找到该应用”，点击确定。3在打开的文本中，点击顶部左侧的“文件”，在下拉列表中选择“另存为”，点击一下。4在另存为的d窗中，在其右下角找到编码按钮。5点击编码右侧的按钮，在下拉列表中选择ANSI，点击保存。6再次用OFFICEEXCEL打开已经另存为的文档，就可以正常显示文字内容了。