导出EXCELFOXPROPRODOX格式表

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

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

http://download . Microsoft . com/download/access 2000/SP/4.0/NT5/EN-US/jet 40 SP 5 _ w2k . exe
http://download . Microsoft . com/download/dasdk/install/2 . 60 . 6526 . 3/win 98 me/CN/mdac _ typ . exe

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

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

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

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

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

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

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

下面的程序用一个变量替换文件名的一部分，以实现用户自定义文件名。

/ncre 2/Files/2007-9/27/98565268 . jpg

Http://go.163.com/~chunpeng/project/Export.zip点击这里下载原程序文件。

请先参考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 = strverse(。文件名)'字符串倒置

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

“错误转到我的错误”防止文件名成为空，以及MID错误。

My path = strverse (mid (mystr，mypos))'获取目录部分并恢复它。

Mystr = strverse (left (mystr，mypos-1))'取文件名

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

。DefaultExt = " *。DBF”