主题：提示问题

 这样。

Dim i As  String = e.Form.Controls("comboBox3").value '定义i变量存储表名
If i = "" Then
    MessageBox.Show("请输入要导出的表名!", "提示")
    Return
End If

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Tables( i ).Cols("A").Visible = False  '隐藏表名等于combobox3组合框表的A列(逻辑列)
    Tables( i ).SaveExcel(dlg.FileName, i)  '保存文件
    MessageBox.Show("导出结束!", "提示")
    '下面代码是打开刚导出的文件
    msgbox(dlg.FileName)
End If