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