下面可以导出Xls,DBF,DB,MDB(表）,这些功能是由ISAM数据库接口实现，为了导出各种版本的文件，我在MS网站下载了最新的JET4和MDAC6。前者到用于桌面数据库如ACCESS，FOXPRO的组件，后者是实现新版本ADO组件。分别在： 字串6
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导出语句：
字串5
select*into[office/9.shtml'target='_blank'class='article'>Excel8.0;database=导出目录].导出表名from表 字串8
select*into[FoxPro2.6;database=导出目录].导出表名from表 字串2
select*into[FoxPro2.5;database=同上].导出表名from表
字串7
select*into[dBaseIII;database=同上].导出表名from表
select*into[Paradox4.X;database=同上].导出表名from表
字串1
select*into[;database=C:\temp\xxx.mdb].导出表名from表 字串3
下面程序为实现用户自定议文件名用变量代替一部分。 字串3
http://go.163.com/~chunpeng/project/export.jpg 字串2
http://go.163.com/~chunpeng/project/Export.zip点这里下载原程序文件。 字串8
'请先引用ADODB类库。
字串5
DimExport_Str,mdbTableAsString
字串6
DimrsExportAsNewADODB.Recordset
字串6
DimconnAsNewADODB.Connection 字串5
PrivateSubClose_cmd_Click()
UnloadMe 字串4
EndSub
字串5
字串6
PrivateSubEXport_cmd_Click()
DimmyPath,myStrAsString,myPosAsInteger
字串8
'******************处理选择的各种表的导出 字串8
WithDialog1 字串6
IfmyOption(2).ValueThen
.FilterIndex=1 字串6
.ShowSave 字串5
myStr=StrReverse(.FileName)'串取反 字串6
myPos=InStr(myStr,"\")'在反字符串中，找从左开始第一个\的位置
字串6
OnErrorGoTomyError'防FILENAME为空，MID出错 字串4
myPath=StrReverse(Mid(myStr,myPos))'取目录部分，并还原. 字串5
myStr=StrReverse(Left(myStr,myPos-1))'取文件名
字串3
Export_Str="select*into[dBaseIII;database="&myPath&"]."&myStr&"fromCustomers"
.DefaultExt="*.DBF"
ElseIfmyOption(3).ValueThen 字串8
mdbTable=InputBox("请给导出到MDB文件的表确定表名") 字串8
.FilterIndex=2
字串5
.ShowSave
字串5
Export_Str="select*into[;database="&.FileName&"]."&mdbTable&"fromCustomers"
字串8
.DefaultExt="*.MDB"
字串6
ElseIfmyOption(4).ValueThen 字串8
.FilterIndex=3 字串1
.ShowSave 字串2
Export_Str="select*into[Excel8.0;database="&.FileName&"].CustomersfromCustomers" 字串5
.DefaultExt="*.XLS"
ElseIfmyOption(5).ValueThen 字串9
.FilterIndex=4 字串3
.ShowSave 字串8
myStr=StrReverse(.FileName)'串取反
字串8
myPos=InStr(myStr,"\")'在反字符串中，找从左开始第一个\的位置 字串3
OnErrorGoTomyError'防FILENAME为空，MID出错
字串2
myPath=StrReverse(Mid(myStr,myPos))'取目录部分，并还原. 字串6
myStr=StrReverse(Left(myStr,myPos-1))'取文件名
字串2
Export_Str="select*into[Paradox4.X;database="&myPath&"]."&myStr&"fromCustomers" 字串5
.DefaultExt="*.DB" 字串2
EndIf
EndWith
字串6
'*****生成文件
字串3
Debug.PrintExport_Str
IfrsExport.State=1Then 字串9
rsExport.Close
EndIf 字串3
IfDir(Dialog1.FileName)<>""Then
OnErrorGoTomyError'防用户没选文件
IfDialog1.FilterIndex<>2Then 字串6
Kill(Dialog1.FileName)
EndIf
字串5
rsExport.OpenExport_Str,conn,adOpenStatic,adLockOptimistic
字串4
Else
字串6
rsExport.OpenExport_Str,conn,adOpenStatic,adLockOptimistic 字串8
EndIf
字串7
myError:
字串9
ExitSub 字串7
EndSub 字串8
PrivateSubForm_Load() 字串1
'联接数据库并打开记录集 字串2
conn.CursorLocation=adUseServer 字串8
conn.Open"PROVIDER=Microsoft.Jet.OLEDB.4.0;DataSource=" App.Path "\NWind.mdb;" 字串1
rsExport.Open"select*fromCustomers",conn,adOpenStatic,adLockOptimistic
字串2
SetGrid1.DataSource=rsExport
'初始化对话筐 字串9
WithDialog1
字串2
.Filter="FoxBase/FoxPro(*.DBF) *.DBF Access8.0(*.MDB) *.MDB Excel8.0(*.XLS) *.XLS Paradox4.x(*.DB) *.DB" 字串9
.DialogTitle="导出文件为" 字串1
.CancelError=False
EndWith
EndSub 字串7
->