主题：[求助]保存表样式

在帮助中有一章讲到：

如果希望打开一个保存文件对话框，保存到用户指定的文件中，可以参考下面的代码：

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

这个是可以保存EXCEL，我想在这个例子中在保存EXCEL的时候保存样式，帮忙看一下，谢谢

保存订单表，包括行号列和单元格样式：

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