導(dǎo)出EXCEL/FOXPRO/PRODOX格式表

一般是在ACCESS或是SQLSERVER中查尋，或是匯總，然后生成一個‘記錄集’可以顯示在GRID里，也可以將這個記錄集導(dǎo)出到磁盤中?！　?BR>    下面可以導(dǎo)出Xls,DBF,DB,MDB(表）,這些功能是由ISAM數(shù)據(jù)庫接口實現(xiàn)，為了導(dǎo)出各種版本的文件，我在MS網(wǎng)站下載了最新的JET4和MDAC6。前者到用于桌面數(shù)據(jù)庫如ACCESS，F(xiàn)OXPRO的組件，后者是實現(xiàn)新版本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導(dǎo)出語句：
    select * into [Excel 8.0;database=導(dǎo)出目錄].導(dǎo)出表名 from 表
    select * into [FoxPro 2.6;database=導(dǎo)出目錄].導(dǎo)出表名 from 表
    select * into [FoxPro 2.5;database=同上].導(dǎo)出表名 from 表
    select * into [dBase III;database=同上].導(dǎo)出表名 from 表
    select * into [Paradox 4.X;database=同上].導(dǎo)出表名 from 表
    select * into [;database=C:\temp\xxx.mdb].導(dǎo)出表名 from 表
    下面程序為實現(xiàn)用戶自定議文件名用變量代替一部分。
    /ncre2/Files/2007-9/27/98565268.jpg
    http://go.163.com/~chunpeng/project/Export.zip 點這里下載原程序文件?！　?BR>    '請先引用ADODB類庫。
    Dim Export_Str, mdbTable As String
    Dim rsExport As New ADODB.Recordset
    Dim conn As New ADODB.Connection
    Private Sub Close_cmd_Click()
    Unload Me
    End Sub
    Private Sub EXport_cmd_Click()
    Dim myPath, myStr As String, myPos As Integer
    '******************處理選擇的各種表的導(dǎo)出
    With Dialog1
    If myOption(2).Value Then
    .FilterIndex = 1
    .ShowSave
    myStr = StrReverse(.FileName) '串取反
    myPos = InStr(myStr, "\") '在反字符串中，找從左開始第一個\的位置
    On Error GoTo myError '防FILENAME為空，MID出錯
    myPath = StrReverse(Mid(myStr, myPos)) '取目錄部分，并還原.
    myStr = StrReverse(Left(myStr, myPos - 1)) '取文件名
    Export_Str = "select * into [dBase III;database=" & myPath & "]." & myStr & " from Customers"
    .DefaultExt = "*.DBF"