主题：[求助]保存excel问题

Dim flg As New SaveExcelFlags
flg.RowNumber = True
flg.CellStyle = True
Tables("订单").SaveExcel("C:\data\test.xls","订单",flg)

二是：打开对话框，保存文件，代码为：

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

dlg.Filter= "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
     Tables("订单").SaveExcel(dlg.FileName, "订单")  '保存文件
End If

我的问题是即想打开对话框，选择保存位置，有能导出行号，不知怎么把上述代码整合，谢谢老师