有一个access的mdb数据库文件，内有三个表，怎样写才能一键把三个表内容（包括标题栏）极快的导出成三个以表名命名的CSV文件（在form中不用显示表内容）？查询了一下，网上绝大部分都是教如何把CSV文件导入MDB文件，反倒出来的很少很少，有的里面也就是一两句话，让人摸不清头脑。

能否麻烦写一个form上传上来，不知道该引用些啥，以及语句怎么写。

拜求版主和路过的高能坛友。

附MDB文件：

引用 DAO 3.5 和 Access 12.0后，写下面的语句：

Private Sub Command1_Click()
Dim AccAPP As New Access.Application
    AccAPP.OpenCurrentDatabase "" & "d:\OB.mdb"
    AccAPP.DoCmd.OutputTo acOutputTable, "DataInfo", acFormatCSV, "" & "d:\2.csv", True  '导出表
    AccAPP.CloseCurrentDatabase '关闭access对象
    AccAPP.Quit acQuitSaveNone
    Set AccAPP = Nothing
End Sub

导出的CSV格式不正确
换成acFormatTXT 格式也不正确
而且时间较长。
请问怎么修改？

???

[此贴子已经被作者于2019-2-28 21:28编辑过]

csv格式是逗号格式文本。
运行你的代码发现可直接输出到xls格式文件中，excel可正常打开的，感觉这个数据导出代码没毛病。

很奇怪楼主为什么要把数据库的表导出为csv文件，数据库中的数据都是标准的数据格式，处理速度很快，转换为csv格式再进行处理就比较麻烦了，与在数据库中处理是没方比的。

Hi,楼主你这个程式后面写成功了吗?

可以分享一下不,万分感谢.
邮箱lailinyang1991@