Question

易语言 如何将excel表格数据读入编辑框中

如图 ：这是excel表格内容

要求这样读入编辑框中

请高手指教，谢谢！！





Answer 1

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

.子程序 _导入_被单击
.局部变量 临时文件, 文本型
.局部变量 取范围, 对象
.局部变量 列对象, 对象
.局部变量 行对象, 对象
.局部变量 单元格, 对象
.局部变量 工作簿, 对象
.局部变量 表行数, 整数型
.局部变量 表列数, 整数型
.局部变量 循环变量, 整数型
.局部变量 再次循环, 整数型
.局部变量 单元格对象, 对象
.局部变量 首饰类别, 整数型

_启动窗口.通用对话框.类型 ＝ 0
_启动窗口.通用对话框.标题 ＝ “请选择需要导入的表格文件”
_启动窗口.通用对话框.过滤器 ＝ “Microsoft Excel(*.xlsx)|*.xlsx”
_启动窗口.通用对话框.初始目录 ＝ 取特定目录 (#系统桌面)
.如果真 (_启动窗口.通用对话框.打开 () ＝ 真)
    临时文件 ＝ _启动窗口.通用对话框.文件名
    .判断开始 (_启动窗口.Excel程序.创建 () ＝ 假)
        信息框 (“操作失败，无法使用 Microsoft Excel ，您的电脑可能未安装 Microsoft Excel ！”, #信息图标, “操作失败”, 商品入库)
    .默认
        _启动窗口.Excel工作簿.置程序 (_启动窗口.Excel程序)
        _启动窗口.Excel工作簿.激活工作簿 ()
        .判断开始 (_启动窗口.Excel工作簿.打开 (临时文件) ＝ 假)
            信息框 (“操作失败，无法打开文件[” ＋ 临时文件 ＋ “]”, #信息图标, “操作失败”, 商品入库)
        .默认
            _启动窗口.Excel工作簿.表格序号 ＝ 1
            _启动窗口.Excel程序.标题 ＝ 临时文件
            _启动窗口.Excel程序.显示 ＝ 假

            工作簿 ＝ _启动窗口.Excel工作簿.取表格对象 ()
            取范围 ＝ 工作簿.读对象型属性 (“UsedRange”, )
            行对象 ＝ 取范围.读对象型属性 (“Rows”, )
            表行数 ＝ 行对象.读数值属性 (“Count”, ) － 1
            列对象 ＝ 取范围.读对象型属性 (“Columns”, )
            表列数 ＝ 列对象.读数值属性 (“Count”, )
            .判断开始 (表列数 ≠ 34)
                信息框 (“操作失败，表列数错误！”, #信息图标, “操作失败”, 商品入库)
            .默认
                是否错误 ＝ 假
                .计次循环首 (34, 循环变量)
                    .判断开始 (循环变量 ≤ 26)
                        _启动窗口.Excel工作簿.首单元格 ＝ 字符 (64 ＋ 循环变量) ＋ “1”
                        _启动窗口.Excel工作簿.尾单元格 ＝ 字符 (64 ＋ 循环变量) ＋ “1”
                    .默认
                        _启动窗口.Excel工作簿.首单元格 ＝ “A” ＋ 字符 (64 ＋ 循环变量 － 26) ＋ “1”
                        _启动窗口.Excel工作簿.尾单元格 ＝ “A” ＋ 字符 (64 ＋ 循环变量 － 26) ＋ “1”
                    .判断结束

                    .如果真 (_启动窗口.Excel工作簿.内容 ≠ 多项选择 (循环变量, “首饰类别”, “首饰编号”, “首饰金料”, “主石类型”, “首饰款式”, “首饰款号”, “首饰件数”, “首饰件重”, “首饰金重”, “首饰名称”, “首饰损耗”, “首饰实重”, “首饰手寸”, “首饰证书”, “首饰模具”, “主石规格”, “主石数量”, “主石净度”, “主石颜色”, “主石单价”, “主石金额”, “辅石类型”, “辅石规格”, “辅石数量”, “辅石单价”, “辅石金额”, “首饰金价”, “金料金额”, “石料金额”, “加工费用”, “首饰成本”, “首饰倍率”, “首饰标价”, “首饰备注”))
                        是否错误 ＝ 真
                        信息框 (“操作失败，表格字段信息错误！”, #信息图标, “操作失败”, 商品入库)
                        跳出循环 ()
                    .如果真结束

                .计次循环尾 ()
                .如果真 (是否错误 ＝ 假)
                    进度条1.最大位置 ＝ 表行数
                    进度条1.可视 ＝ 真
                    .计次循环首 (表行数, 循环变量)
                        进度条1.位置 ＝ 循环变量
                        .计次循环首 (34, 再次循环)
                            .判断开始 (再次循环 ≤ 26)
                                _启动窗口.Excel工作簿.首单元格 ＝ 字符 (64 ＋ 再次循环) ＋ 到文本 (循环变量 ＋ 1)
                                _启动窗口.Excel工作簿.尾单元格 ＝ 字符 (64 ＋ 再次循环) ＋ 到文本 (循环变量 ＋ 1)
                            .默认
                                _启动窗口.Excel工作簿.首单元格 ＝ “A” ＋ 字符 (64 ＋ 再次循环 － 26) ＋ 到文本 (循环变量 ＋ 1)
                                _启动窗口.Excel工作簿.尾单元格 ＝ “A” ＋ 字符 (64 ＋ 再次循环 － 26) ＋ 到文本 (循环变量 ＋ 1)

                            .判断结束

                            .如果真 (再次循环 ＝ 1)
                                商品信息.首饰类别 ＝ _启动窗口.Excel工作簿.内容