主题：两个表同时导出的问题

老师，最后一个问题：想把两个表A和B同时用Excel文件的格式导出，要求先后出现“另存为”对话框并手动修改保存的文件名、选择保存的路径，该如何修改下面这段代码？（我想少按几下鼠标）

Dim ex as New Exporter
ex.SourceTableName = "A"
ex.SourceTableName = "B"
ex.Format = "Excel"
ex.Fields = "日期,客户,数量,单价"
ex.Export()

谢谢老师！老师，在导出表A和表B后，想把表A、B、C都删除的话，后面要加什么代码呀？表A和B同时导出后，只能保存在同一个文件里并用sheet1和sheet2分开吗？不能分开保存为两个文件吗？

老师，上面这个问题解决后，我的项目就做好了。辛苦老师了。

在导出表A和表B后，想把表A、B、C都删除的话，后面要加什么代码呀？表A和B同时导出后，只能保存在同一个文件里并用sheet1和sheet2分开吗？不能分开保存为两个文件吗？

谢谢老师！周末加班辛苦！

 老师，下面这段代码 : 在单独执行的时候OK，但在加到其他代码后面执行的时候提示错误，要怎么修改？

 

Dim tnames() As String = {"表A", "表B"}
Dim dlg As new SaveFileDialog
dlg.Filter = "Excel|*.xls"
For Each tname As String In tnames
    If dlg.ShowDialog = DialogResult.OK Then
        Dim ex As New Exporter
        ex.FilePath = dlg.FileName
        ex.SourceTableName = tname
        ex.Format = "Excel"
        ex.Export()
    End If
Next
Dim Builder As New ADOXBuilder
Builder.Open()
With Builder
    .DeleteTable("表C")
End With
Builder.Close()
DataTables.delete("表A")
DataTables.delete("表B")

 

 

此主题相关图片如下：qq截图20150328175236.png

另外，下面这一段要这么写，才能把表C的表名也一起删除？

 

Dim Builder As New ADOXBuilder
Builder.Open()
With Builder
    .DeleteTable("表C")
End With
Builder.Close()

谢谢甜老师！

老师，你是说前后的dlg后面的变量冲突，下面的代码要怎么改呢？

哦，是前后的dlg后面加个序号就行了，不是改成另一个名字。谢谢老师！
老师，下面这段代码的意思就是: 想要删除数据表C（包括其表名）和临时表A、B，只要把数据表C删除再重新打开项目就行了，最后两句删除临时表的代码不用执行，但这时出现一个“提示”窗口：保存修改吗？，用什么代码把这个窗口关闭掉？

Dim Builder As New ADOXBuilder
Builder.Open()
With Builder
    .DeleteTable("表C")
End With
Builder.Close()
Syscmd.Project.Open(ProjectFile)

DataTables.delete("表A")
DataTables.delete("表B")