主题：[求助]帮忙写段小代码

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