将access里所有表导在一个txt（或是Excel）文件里

nousen

请问如何一次批量将access里所有表导在一个txt文件里？

并且在txt文件里，记录之间用表的字段名分隔开。

（要是ＴＸＴ不行，ＥＸＣＥＬ可不可以？望高手指点）

[此贴子已经被作者于2006-6-20 17:08:23编辑过]

nousen

期待解决中......

fan0217

首先你需要获取数据库中所有表的名称，然后通过循环来导出。

nousen

获得表名没什么问题，可关键是怎样将每个表的字段名及数据导入到一个excel文件中，望fan0217及各位高手指点

[此贴子已经被作者于2006-6-20 22:19:37编辑过]

andymark

参考这个

http://www.office-cn.net/forum.php?mod=viewthread&tid=41673

fan0217

以下是引用nousen在2006-6-20 22:16:00的发言：


获得表名没什么问题，可关键是怎样将每个表的字段名及数据导入到一个excel文件中，望fan0217及各位高手指点

先建立ＥＸＣＥＬ对象，然后用ＡＤＯ来写入Excel表格。这种方法非常灵活，可以适用于非常复杂的报表处理。

首先需要Excel对象。可以用以下代码来建立Excel对象：

1. Dim xlApp As Excel.Application

复制代码

1. Dim xlBook As Excel.Workbook

复制代码

1. Dim xlSheet As Excel.WorkSheet

复制代码

1. Set xlApp = CreateObject("Excel.Application")

复制代码

1. Set xlBook = xlApp.Workbooks.Add

复制代码

1. Set xlSheet = xlBook.Worksheets(1)

复制代码

1. 建立以后Exce了就成了Access的一部分了。

复制代码

nousen

谢谢两位版主！