^{<noscript id="ebb1i"></noscript>}

如何在VB6中導出EXCEL、FOXPRO格式的表

2019-11-18 17:49:26

字體：大中小

來源：轉載

供稿：網友

作者：cocoboy79中國軟件開發中心

　MIS系統在月末由于業務的需要總要匯總當月業務情況，并且導出報盤，我把我的程序中的這一部分功能單拿出來，做成一個小的程序，僅供參考。

一般是在 access或是SQLSERVER中查尋，或是匯總，然后生成一個‘記錄集'可以顯示在GRID里，也可以將這個記錄集導出到磁盤中。

下面可以導出Xls,DBF,DB,MDB(表）,這些功能是由ISAM數據庫接口實現，為了導出各種版本的文件，我在MS網站下載了最新的JET4和MDAC6。前者到用于桌面數據庫如ACCESS，FOXPRO的組件，后者是實現新版本ADO組件。分別在：
http://download.microsoft.com/download/access2000/SP/4.0/NT5/EN-US/Jet40SP5_W2K.exe
http://download.microsoft.com/download/dasdk/install/2.60.6526.3/WIN98Me/CN/mdac_typ.exe

這些是標準的SQL導出語句：
select*into[Excel8.0;database=導出目錄].導出表名from表
select*into[FoxPro2.6;database=導出目錄].導出表名from表
select*into[FoxPro2.5;database=同上].導出表名from表
select*into[dBaseIII;database=同上].導出表名from表
select*into[Paradox4.X;database=同上].導出表名from表
select*into[;database=C:/temp/xxx.mdb].導出表名from表
下面程序為實現用戶自定議文件名用變量代替一部分。
http://go.163.com/~chunpeng/project/export.jpg

http://go.163.com/~chunpeng/project/Export.zrsExport.Open"select*fromCustomers",conn,adOpenStatic,adLockOptimistic
SetGrid1.DataSource=rsExport

注釋：初始化對話筐
WithDialog1
.Filter="FoxBase/FoxPro(*.DBF)|*.DBF|Access8.0(*.MDB)|*.MDB|Excel8.0(*.XLS)|*.XLS|Paradox4.x(*.DB)|*.DB"
.DialogTitle="導出文件為"
.CancelError=False
EndWith
EndSub->