Foxtable(狐表)用户栏目专家坐堂 → [求助]导出数据代码错误,求解。


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

主题:[求助]导出数据代码错误,求解。

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


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By:2013/2/25 15:35:00 [显示全部帖子]

 
Dim ex As New Exporter
ex.SourceTableName = "分数" '指定导出表
ex.FilePath = SpecialFolder.DesktopDirectory & "\分数" & sd & ".xls" '指定目标文件
ex.Format = "Excel" '导出格式为Excel
ex.Fields = sx '指定导出字段
ex.Filter = "[日期] >= #" & rq1.Value & "# And [日期] <= #" & rq2.Value & "#"  '指定导出条件
ex.Export() '开始导出

 回到顶部