Foxtable(狐表)用户栏目专家坐堂 → [求助]导出自动命名文件名,不要人工输入文件名。


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

主题:[求助]导出自动命名文件名,不要人工输入文件名。

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


加好友 发短信
等级:五尾狐 帖子:1182 积分:8225 威望:0 精华:0 注册:2015/3/30 10:44:00
[求助]导出自动命名文件名,不要人工输入文件名。  发帖心情 Post By:2015/10/22 11:55:00 [只看该作者]

导出自动命名文件名,格式是user.name加上原execl的文件名。不要人工输入文件名。
Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim ex As New Exporter

    ex.SourceTableName = "订单" '指定导出表
    ex.FilePath = dlg.FileName '指定目标文件
    ex.Format = "Excel" '导出格式为Excel
    ex.Export() '开始导出
    
End If

 回到顶部