以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]保存excel问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=147185)
--  作者：hanlingli111999
--  发布时间：2020/3/11 16:22:00
--  [求助]保存excel问题
老师好：
    帮助上关于保存为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



我的问题是即想打开对话框，选择保存位置，有能导出行号，不知怎么把上述代码整合，谢谢老师
--  作者：有点蓝
--  发布时间：2020/3/11 16:31:00
--  

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
--  作者：hanlingli111999
--  发布时间：2020/3/11 16:32:00
--  
谢谢