作者：乔山办公网日期：
返回目录：excel表格制作
方法/步骤
利用易语言编程环境创建一个“Windows窗口程序”。点击菜单“工具”->“支持库配置”项。
在打开的窗口中，找到并勾选“通用对象支持库 2.0版”，并点击“确定”以添加“超级列e79fa5e98193e59b9ee7ad94361表框”组件。
接下来在“启动窗口”中绘制如图所示的界面，其中包括一个“外部数据库”和一个“超级列表框”（从扩展面板中可以找到）组件。
然后利用Excel创建一个名为“jiance.xls”的Excel文件。其内容如图所示：
注：将该文件与易语言程序本身放置在同一目录下。
确保选中“启动窗口”，然后为其添加“创建完毕”事件。
接着输入如图所示的易语言代码：
.版本 2
.支持库 iext
.如果真 (外部数据库1.打开 (“ODBC;DBQ=” ＋ 取当前目录 () ＋ “\jiance.xls;Driver={Microsoft Excel Driver (*.xls)};DriverId=790;FIL=excel 8.0;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;ReadOnly=0;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;”, , ) ＝ 假)
信息框 (“数据库连接失败！”, #错误图标, )
返回 ()
.如果真结束
查询语句 ＝ “select * from [Sheet1$]”
记录集 ＝ 外部数据库1.查询 (查询语句)
.如果真 (记录集 ＝ 0)
信息框 (“查询失败!”, #错误图标, )
返回 ()
.如果真结束
外部数据库1.到首记录 (记录集)
局部_计次 ＝ 1
超级列表框1.插入列 (, “序号”, 80, , , )
超级列表框1.插入列 (, “姓名”, 80, , , )
超级列表框1.插入列 (, “性别”, 80, , , )
超级列表框1.插入列 (, “年龄”, 80, , , )
.判断循环首 (外部数据库1.尾记录后 (记录集) ＝ 假)
局部_临时A ＝ 外部数据库1.读 (记录集, 1)
局部_临时B ＝ 外部数据库1.读 (记录集, 2)
局部_临时C ＝ 到文本 (外部数据库1.读 (记录集, 3))
索引 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (索引, 0, 到文本 (局部_计次))
超级列表框1.置标题 (索引, 1, 局部_临时A)
超级列表框1.置标题 (索引, 2, 局部_临时B)
超级列表框1.置标题 (索引, 3, 局部_临时C)
外部数据库1.到后一记录 (记录集)
局部_计次 ＝ 局部_计次 ＋ 1
.判断循环尾 ()
外部数据库1.关闭记录集 ()
7
最后点击“运行”按钮，就可以看到易语言成功引用Excel表格中的数据啦。
.版本 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工作簿.内容 ≠ 多项选择 (循环变量, “首饰类别”, “首饰编号”, “首饰金料”, “主石类型”, “首饰款式”, “首饰款号”, “首饰件数”, “首饰件重”, “首饰金重”, “首饰名称”, “首饰损耗”, “首饰实重”, “首饰手寸”, “首饰证书”, “首饰模具”, “主石规格”, “主石数量”, “主石净度”, “主石颜色”, “主石单价”e69da5e6ba90e799bee5baa6e79fa5e98193365, “主石金额”, “辅石类型”, “辅石规格”, “辅石数量”, “辅石单价”, “辅石金额”, “首饰金价”, “金料金额”, “石料金额”, “加工费用”, “首饰成本”, “首饰倍率”, “首饰标价”, “首饰备注”))
是否错误 ＝ 真
信息框 (“操作失败，表格字段信息错误！”, #信息图标, “操作失败”, 商品入库)
跳出循环 ()
.如果真结束
.计次循环尾 ()
.如果真 (是否错误 ＝ 假)
进度条1.最大位置 ＝ 表行数
进度条1.可视 ＝ 真
.计次循环首 (表行数, 循环变量)
进度条1.位置 ＝ 循环变量
.计次循环首 (34, 再次循环)
.判断开始 (再次循环 ≤ 26)
_启动窗口.Excel工作簿.首单元格 ＝ 字符 (64 ＋ 再次循环) ＋ 到文本 (循环变量 ＋ 1)
_启动窗口.Excel工作簿.尾单元格 ＝ 字符 (64 ＋ 再次循环) ＋ 到文本 (循环变量 ＋ 1)
.默认
_启动窗口.Excel工作簿.首单元格 ＝ “A” ＋ 字符 (64 ＋ 再次循环 － 26) ＋ 到文本 (循环变量 ＋ 1)
_启动窗口.Excel工作簿.尾单元格 ＝ “A” ＋ 字符 (64 ＋ 再次循环 － 26) ＋ 到文本 (循环变量 ＋ 1)
.判断结束
.如果真 (再次循环 ＝ 1)
商品信息.首饰类别 ＝ _启动窗口.Excel工作簿.内容
http://pan.baidu.com/s/1sl3Ao6h
用了“通用知对话框”、“EXCEL程序”道、“EXCEL工作薄”、“按钮”内、“编辑框”各一个容
用“外部数据库”组件，或者“EXCEL程序”和“EXCEL工作薄”组件
第一种方法，遇到文本数据和数值数据有一定可能出错，如果EXCEL全部为文本或全部为数字就没事
第二张方法，更完整的调用EXCEL