SaveExcel
将Table保存为Excel文件中的一个工作表。
语法
SaveExcel(FileName, SheetName, Flags)
FileName： 目标Excel文件名，含路径。
SheetName: 工作表名。
Flags： 可选参数，SaveExcelFlags类型，用于设置保存选项。
SaveExcelFlags类型的属性包括：
CellStyle： 是否保存单元格样式，默认为False
RowNumber： 是否包括行号列，默认为False
MergedRanges：是否保存合并模式，默认为True
VisibleOnly： 是否只保存可见列，默认为True
示例一
用默认设置保存订单表：
CurrentTable
.SaveExcel("C:\data\test.xls","订单")示例二
保存订单表，包括行号列和单元格样式：
Dim
flg As New SaveExcelFlags示例三：
如果希望打开一个保存文件对话框，保存到用户指定的文件中，可以参考下面的代码：
Dim
dlg As
New SaveFileDialog
'定义一个新的SaveFileDialog
dlg.Filter=
"Excel文件|*.xls"
'设置筛选器
If
dlg.ShowDialog
= DialogResult.Ok
Then '如果用户单击了确定按钮
Tables("订单").SaveExcel(dlg.FileName,
"订单")
'保存文件
End
If