導出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”

位律師廻複