以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]帮忙写段小代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=51566)
--  作者：dycjj
--  发布时间：2014/5/29 0:08:00
--  [求助]帮忙写段小代码
我想做一个按钮，希望单击该按钮能同时保存多个表为Excel文件，以便作为备份文件。
--  作者：Bin
--  发布时间：2014/5/29 8:36:00
--  
Dim dlg As New SaveFileDialog   \'指定一个新的SaveFileDialog
dlg.Filter= "备份文件|*.xls"   \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then   \'如果用户单击了确定按钮
    If FileSys.FileExists(dlg.filename) Then    \'如果指定的文件存在
        FileSys.DeleteFile(dlg.filename,2,2)     \'则彻底删除之
    End If
    For Each dt As DataTable In DataTables
        Dim ex As New Exporter
        ex.SourceTableName = dt.name \'指定导出表
        ex.FilePath = dlg.FileName
        ex.Format = "Excel" \'导出格式为Excel
        ex.Export() \'开始导出
    Next
End If
--  作者：dycjj
--  发布时间：2014/5/29 21:58:00
--  
感谢Bin总，感谢CCTV,MTV DVD