主题：导出自定义当前表的EXCEL并打开

自己参考编写保存代码如下：

Dim flg As New SaveExcelFlags

flg.RowNumber = True

    flg.CellStyle = False

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog

dlg.Filter= "Excel文件|*.xls" '设置筛选器

If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮

    Tables("订单").SaveExcel(dlg.FileName, "订单",flg)  '保存文件

End If

请教专家以下问题：

1. 需要导出并保存当前表的EXCEL文件，因为需要自定义保存格式而不是默认格式，因此不能用currenttable.Save（）。。。,

2. 需要保存后再打开文件

谢谢！