使用Excel对象导出edb数据

.如果真 (EXCEL程序对象.创建 (“Excel.Application”, ) ＝ 假) ' 创建一个Excel程序对象，如果失败，说明没有装Excel程序
信息框 (“你的计算机没有安装EXCEL程序”, 0, )
返回 ()
.如果真结束
EXCEL工作簿对象 ＝ EXCEL程序对象.读对象型属性 (“Workbooks”, ).对象型方法 (“Add”, ) ' 为Excel程序对象的“Workbooks”工作簿集添加一个新的工作簿，并返回一个工作簿对象
EXCEL工作簿对象.方法 (“Active”, ) ' 将新添加的工作簿对象激活
EXCEL工作簿对象 ＝ EXCEL程序对象.读对象型属性 (“ActiveWorkbook”, ) ' 取得已经激活工作簿，并返回该对象
EXCEL工作簿对象.写属性 (“AutoUpdateSaveChanges”, 真) ' 将该工作簿的自动保存更改设置为真
EXCEL工作表对象 ＝ EXCEL工作簿对象.读对象型属性 (“Sheets”, ).读对象型属性 (“Item”, 1) ' 取得该工作簿的所有工作表的第一个工作表，并返回第一个工作表的对象
数据库文件名 ＝ 浏览文件夹 (“EdbPath”, 真) ' 获取数据库路径
打开 (数据库文件名, “edb1”, , , , , ) ' 打开该数据库
置当前库 (“edb1”) ' 设置当前数据库为所打开的数据库
.计次循环首 (取字段数 (), 列数) ' 取数据库的字段数
EXCEL工作表对象.读对象型属性 (“Range”, 子程序_转换字母 (列数) ＋ “1”).写属性 (“Value”, 取字段名 (列数)) ' 将数据库的字段名填写到指定的EXCEl文档的单元格，range属性为指定的工作 '区域，后面的参数返回单元格的坐标(如：A1，B2；aa--iv)并定位到该单元
到首记录 () ' 如果读取文本，须将写属性（“Value”，参数）改成读文本属性（“Value”）
.计次循环首 (取记录数 (), 行数)
EXCEL工作表对象.读对象型属性 (“Range”, 子程序_转换字母 (列数) ＋ 到文本 (行数 ＋ 1)).写属性 (“Value”, 读字段 (列数, ))
跳过 ()
.计次循环尾 ()
.计次循环尾 ()
通用对话框1.类型 ＝ 1
通用对话框1.过滤器 ＝ “EXCEL文件|*.xls”
通用对话框1.默认文件后缀 ＝ “*.xls”
通用对话框1.打开 ()
EXCEL工作簿对象.方法 (“SaveCopyAs”, 通用对话框1.文件名) ' 用SaveCopyAs方法另存为
EXCEL工作簿对象.写属性 (“Saved”, 真) ' 将EXCEL工作簿的已经保存属性设置为真，如果不加此句，EXCEL程序将弹出"是否对保存内容已经更改的工作簿？"对话框
EXCEL工作簿对象.方法 (“Close”, ) ' 关闭工作簿
EXCEL程序对象.方法 (“Quit”, ) ' 退出EXCEL程序
EXCEL工作表对象.清除 () ' 清空对象
EXCEL工作簿对象.清除 () ' 清空对象
EXCEL程序对象.清除 () ' 清空对象
' 如果打开一个已经存在的EXCEL文档，那么要将EXCEL工作簿对象 ＝ EXCEL程序对象.读对象型属性 (“Workbooks”, ).对象型方法 (“Add”, ) 改成EXCEL工作簿对象 ＝ EXCEL程序对象.读对象型属性 (“Workbooks”, ).对象型方法 (“open”，文件名，，只读属性），只读属性为真时不能属性excel文档内容，这样，本子程序的
' EXCEL工作簿对象.方法 (“Active”, ) ' 将新添加的工作簿对象激活
' EXCEL工作簿对象 ＝ EXCEL程序对象.读对象型属性 (“ActiveWorkbook”, ) ' 取得已经激活工作簿，并返回该对象
' EXCEL工作簿对象.写属性 (“AutoUpdateSaveChanges”, 真) ' 将该工作簿的自动保存更改设置为真
' 以上几行代码可以不用