在VB6中导出EXCEL，FOXPRO，PRODOX格式的表

月底由于业务需要，MIS系统总会汇总当月业务情况，导出报价。我把我程序里的这部分函数列表拿出来做成一个小程序，仅供参考。

一般在ACCESS或SQLSERVER中进行搜索或汇总，然后生成一个‘记录集’，可以在网格中显示，也可以导出到磁盘。

您可以导出Xls、DBF、DB、MDB(表格)如下。这些功能都是通过ISAM数据库接口实现的。为了导出各种版本的文件，我从MS网站下载了最新的JET4和MDAC6。前者用于ACCESS、FOXPRO等桌面数据库，后者用于实现新版ADO组件。

以下是标准的SQL导出语句:

选择*进入【Excel 8.0数据库=导出目录]。从表中导出表名

选择*进入【FoxPro 2.6数据库=导出目录]。从表中导出表名

选择*进入【FoxPro 2.5数据库=同上】。从表中导出表名

select * into[dBase III；数据库=同上】。从表中导出表名

选择*进入【悖论4。x；数据库=同上】。从表中导出表名

select * into[；Database=C:\temp\xxx.mdb】。从表中导出表名

请先参考ADODB类库。

Dim Export_Str，mdbTable As String

Dim rsExport作为新的ADODB。记录集

Dim conn作为新ADODB。关系

私有Sub Close_cmd_Click()

卸下我

末端接头

私有子导出_cmd_Click()

Dim myPath，myStr为字符串，myPos为整数

&急性；* * * * * * * * * * * * * * * *处理各种选定表格的导出。

使用对话框1

If myOption(2)。那就值了

。FilterIndex = 1

。显示保存

myStr = StrReverse(。文件名)& acute字符串倒置

myPos = InStr(myStr，" \ ")& acute；在反向字符串中，找到左起第一个\的位置。

出错时转到myError & acute文件名是空，MID有错误。

myPath = StrReverse(Mid(myStr，myPos))& acute；获取目录部分并恢复它。

myStr = StrReverse(Left(myStr，my pos-1))& acute；获取文件名

export _ Str = " select * into[dBase III；数据库=" & myPath & "]。"& myStr &“来自客户”

。DefaultExt = " *。DBF”

ElseIf myOption。那就值了

MDB = InputBox("请确定导出到MDB文件的表的表名")

。FilterIndex = 2

。显示保存

export _ Str = " select * into[；数据库=" &。文件名& "]。"& MDB表&“来自客户”

。DefaultExt = " *。MDB "

ElseIf myOption。那就值了

。FilterIndex = 3

。ShowSave