以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] exprter不起作用  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=138493)

--  作者:hotday1972
--  发布时间:2019/8/1 20:14:00
--  [求助] exprter不起作用
下面这段代码,没有导出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() \'开始导出

--  作者:有点蓝
--  发布时间:2019/8/1 20:28:00
--  
ex.Format = "Excel2007" \'导出格式为Excel