Foxtable(狐表)用户栏目专家坐堂 → [求助]保存excel问题


  共有2454人关注过本帖平板打印复制链接

主题:[求助]保存excel问题

帅哥哟,离线,有人找我吗?
hanlingli111999
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:260 积分:1957 威望:0 精华:0 注册:2020/3/7 22:50:00
[求助]保存excel问题  发帖心情 Post By:2020/3/11 16:22:00 [只看该作者]

老师好:
    帮助上关于保存为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



我的问题是即想打开对话框,选择保存位置,有能导出行号,不知怎么把上述代码整合,谢谢老师


 回到顶部