Foxtable(狐表)用户栏目专家坐堂 → [求助] exprter不起作用


  共有2113人关注过本帖树形打印复制链接

主题:[求助] exprter不起作用

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


加好友 发短信
等级:一尾狐 帖子:430 积分:2889 威望:0 精华:0 注册:2015/4/28 21:12:00
[求助] exprter不起作用  发帖心情 Post By:2019/8/1 20:14:00 [只看该作者]

下面这段代码,没有导出excel,为啥?

'
Dim path As String = _PathAttachment & "\Documents\分层审核\"
Dim r As Row = _ftb.Current
Dim ex As New Exporter
ex.SourceTableName = e.Form.TableName '指定导出表
ex.FilePath = path & "eLPA_" & Format(Date.Today, "yyyymmdd") & "_" & _UserName & ".xlsx" '指定目标文件
ex.Format = "Excel" '导出格式为Excel
ex.Fields = "跟踪号,审核单号,问题编号,审核员,审核日期,审核区域,审核对象,审核发现,是否重复,发生次数,任务次数,处置" '指定导出字段
ex.Filter = "审核员 ='" & _UserName & "'"
ex.Export() '开始导出

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107729 积分:547978 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/8/1 20:28:00 [只看该作者]

ex.Format = "Excel2007" '导出格式为Excel

 回到顶部