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

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

dlg.Filter= "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮

Dim flg As New SaveExcelFlags
flg.RowNumber = True
flg.CellStyle = True
     Tables("订单").SaveExcel(dlg.FileName, "订单"，flg)  '保存文件

End If