老师好:
帮助上关于保存为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
我的问题是即想打开对话框,选择保存位置,有能导出行号,不知怎么把上述代码整合,谢谢老师