下面可以導出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[office/9.shtml'target='_blank'class='article'>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.z

　　conn.CursorLocation=adUseServer

　　conn.Open"PROVIDER=Microsoft.Jet.OLEDB.4.0;DataSource=" App.Path "/NWind.mdb;"

　　rsExport.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