主题：[求助]导出excel

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Excel文件(*.xlsx;*.xls)|*.xlsx;*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then
    For Each t As Table In Tables
            Tables(t.name).SaveExcel(dlg.FileName, t.name)
    Next
    MessageBox.Show("导出完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

想导出所有的表 保存为excel个多个sheet 需要如何再改动下，谢谢！