作者：乔山办公网日期：
返回目录：excel表格制作
.版本 2
.支持库 iext
打开百 (“这里写数据库度全路径”, , , , , , ) ' 这里打开数据库
.计次循环首 (超级列表知框道1.取表项数 (), i)
加空记录 () ' 加一条空的 行
写 (1, 超级列表框1.取标题回 (i － 1, 0)) ' 在数据库的第一个字段 写入答 超级列表框的第0列
写 (2, 超级列表框1.取标题 (i － 1, 1)) ' 在数据库的第二个字段 写入 超级列表框的第1列
.计次循环尾 ()
准备好需要的excel表格数据，这里为了演示，随意添加一些数据！打开易语言，新建windows窗口程序，接着就可以添加必要的组件！
添加必要的组件，这里用到编辑框、按钮、通用对话框、超级列表框、以及excel程序、excel工作簿！
简单处理一下界面，将组件的标题、超级列表框设置为报表列表框、显示格线，对应设置一下报表列与excel表格，大致界面就完成了！
接下来进入代码部分，_按钮打开_被单击事件下，先添加通用对话框使用代码！过滤文件、指定打开的目录！
.版本 2
通用对话框1.类型 ＝ 0通用对话框1.初始目录 ＝ 取运行目录 ()通用对话框1.过滤器 ＝ “e799bee5baa6e79fa5e98193e59b9ee7ad94331excel文件（*.xlsx）|*.xlsx”.如果真 (通用对话框1.打开 ()) 编辑框1.内容 ＝ 通用对话框1.文件名
添加变量，创建excel程序，读出excel表格的行数与列数！
.版本 2.支持库 eExcel2000.支持库 spec
Excel程序1.创建 () Excel程序1.显示 ＝ 假 Excel工作簿1.置程序 (Excel程序1)
Excel工作簿1.打开 (通用对话框1.文件名) Excel工作簿1.激活工作簿 () Excel工作簿1.激活表格 ()
Excel工作簿1.表格序号 ＝ 0 工作簿对象 ＝ Excel工作簿1.取表格对象 () 范围 ＝ 工作簿对象.读对象型属性
(“UsedRange”, ) 行对象 ＝ 范围.读对象型属性 (“Rows”, ) 行 ＝ 行对象.读数值属性 (“Count”,
) 列对像 ＝ 范围.读对象型属性 (“Columns”, ) 列 ＝ 列对像.读数值属性 (“Count”, ) 调试输出
(行) 调试输出 (列)
接下来就可以用计次循环首分别读入每一行的数据了！，这里为好理解，用了个笨方法，每循环一次代表读取每一行的数据！然后就把取得的数据置入超级列表框就行了！
.版本 2.支持库 eExcel2000.支持库 iext
.计次循环首 (行, n1) Excel工作簿1.首单元格 ＝ “A” ＋ 到文本 (n1)
Excel工作簿1.尾单元格 ＝ “A” ＋ 到文本 (n1) 单元格对象 ＝ Excel工作簿1.取单元格对象
() A列 ＝ 单元格对象.读文本属性 (“Value”, )
Excel工作簿1.首单元格 ＝
“B” ＋ 到文本 (n1) Excel工作簿1.尾单元格 ＝ “B” ＋ 到文本 (n1) 单元格对象 ＝
Excel工作簿1.取单元格对象 () B列 ＝ 单元格对象.读文本属性 (“Value”, )
Excel工作簿1.首单元格 ＝ “C” ＋ 到文本 (n1) Excel工作簿1.尾单元格 ＝ “C” ＋ 到文本
(n1) 单元格对象 ＝ Excel工作簿1.取单元格对象 () C列 ＝ 单元格对象.读文本属性
(“Value”, )
Excel工作簿1.首单元格 ＝ “D” ＋ 到文本 (n1)
Excel工作簿1.尾单元格 ＝ “D” ＋ 到文本 (n1) 单元格对象 ＝ Excel工作簿1.取单元格对象
() D列 ＝ 单元格对象.读文本属性 (“Value”, )
Excel工作簿1.首单元格 ＝
“E” ＋ 到文本 (n1) Excel工作簿1.尾单元格 ＝ “E” ＋ 到文本 (n1) 单元格对象 ＝
Excel工作簿1.取单元格对象 () E列 ＝ 单元格对象.读文本属性 (“Value”, )
Excel工作簿1.首单元格 ＝ “F” ＋ 到文本 (n1) Excel工作簿1.尾单元格 ＝ “F” ＋ 到文本
(n1) 单元格对象 ＝ Excel工作簿1.取单元格对象 () F列 ＝ 单元格对象.读文本属性
(“Value”, )
索引 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (索引, 0, A列) 超级列表框1.置标题 (索引, 1, B列) 超级列表框1.置标题
(索引, 2, C列) 超级列表框1.置标题 (索引, 3, D列) 超级列表框1.置标题 (索引, 4, E列)
.计次循环尾 ()
读入完毕后，当然要将excel关闭并释放了！运行效果就是这样子的！这里把变量表也上传上来，方便观看！
.版本 2.支持库 eExcel2000
Excel工作簿1.关闭 () Excel工作簿1.释放 () Excel程序1.退出 () Excel程序1.释放 ()
步骤阅读
.版本 2.支持库 iext
打开 (“你要打百开的数据库名字.edb”, , , , , , )
超级列表框1.全部删除 ()
.计次循环首度 (取记录数 (), )
位置 ＝ 超级内列表框1.插入表项 (, “0”, , , , )
超级列表框1.置标题 (位置, 0, 到文本 (读 (1))) ‘数容据库有多少个数据就填写多少个读（）
超级列表框1.置标题 (位置, 1, 到文本 (读 (2)))
超级列表框1.置标题 (位置, 2, 到文本 (读 (3)))
跳过 ()
.计次循环尾 ()
可以弄成不要模块的么