.版本 2 .支持库 eExcel2000 .支持库 eGrid .子程序 _按钮1_被单击 .局部变量 记录集句柄, 整数型 .局部变量 i, 整数型 .局部变量 单元, 文本型 .局部变量 m .局部变量 行对象, 对象 .局部变量 列对象, 对象 .局部变量 行, 整数型 .局部变量 列, 整数型 .局部变量 单元格对象, 对象 .局部变量 工作簿对象, 对象 .局部变量 范围, 对象 通用对话框1.打开 () 编辑框1.内容 ＝ 通用对话框1.文件名 Excel工作簿1.打开 (通用对话框1.文件名) Excel工作簿1.激活工作簿 () Excel工作簿1.激活表格 () Excel工作簿1.表格序号 ＝ 1 工作簿对象 ＝ Excel工作簿1.取表格对象 () ' 工作簿对象.查看 () 范围 ＝ 工作簿对象.读对象型属性 (“UsedRange”, ) 行对象 ＝ 范围.读对象型属性 (“Rows”, ) 行 ＝ 行对象.读数值属性 (“Count”, ) 列对象 ＝ 范围.读对象型属性 (“Columns”, ) 列 ＝ 列对象.读数值属性 (“Count”, ) 输出调试文本 (到文本 (行)) 输出调试文本 (到文本 (列)) 高级表格1.行数 ＝ 1 高级表格1.列数 ＝ 1 高级表格1.置列宽 (0, 50) 高级表格1.置数据 (0, 0, #表格常量.文本型, “序号”) ' 假设字段名在第一行，可自己调整 .计次循环首 (列, i) ' 把一条记录中的字段放入数组 高级表格1.插入列 (, ) Excel工作簿1.首单元格 ＝ 转换字母 (i) ＋ “1” Excel工作簿1.尾单元格 ＝ 转换字母 (i) ＋ “1” 单元格对象 ＝ Excel工作簿1.取单元格对象 () ' 输出调试文本 (单元格对象.读文本属性 (“Value”, )) 高级表格1.置数据 (0, i, #表格常量.文本型, 单元格对象.读文本属性 (“Value”, )) 高级表格1.置列宽 (i, 70) .计次循环尾 () .如果 (外部数据库1.打开 (“ODBC;DBQ=” ＋ 编辑框1.内容 ＋ “;Driver={Microsoft Excel Driver (*.xls)}; ”, )) ' 通过odbc文本链接xls文件 记录集句柄 ＝ 外部数据库1.查询 (“select * from [sheet1$]”) .如果 (记录集句柄 ≠ 0) 外部数据库1.到首记录 (记录集句柄) i ＝ 1 m ＝ 1 外部数据库1.到后一记录 (记录集句柄) .判断循环首 (外部数据库1.尾记录后 (记录集句柄) ＝ 假) 高级表格1.插入行 (, ) .计次循环首 (列, i) ' 把一条记录中的字段放入数组 单元 ＝ 到文本 (外部数据库1.读 (记录集句柄, i)) 高级表格1.置数据 (m, i, #表格常量.文本型, 单元) 高级表格1.置数据 (m, 0, #表格常量.文本型, 到文本 (i)) .计次循环尾 () m ＝ m ＋ 1 外部数据库1.到后一记录 (记录集句柄) .判断循环尾 () .否则 .如果结束 .否则 信息框 (“连接失败”, 0, ) .如果结束 外部数据库1.关闭记录集 (记录集句柄) 外部数据库1.关闭 () Excel工作簿1.关闭 () Excel工作簿1.释放 () Excel程序1.销毁 ()