| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]导出数据代码错误，求解。 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=28996) |
| -- 作者：guoqi1129 -- 发布时间：2013/2/25 15:16: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() \'开始导出 其中sd = “日期，语文，数学，英语" sx= ”所有主科“ 其中sd和sx是变量，可以更改相关字段和内容，但是执行的时候提示至少一个参数没有被指定值。求解释
|
| -- 作者：lin_hailun -- 发布时间：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() \'开始导出
|
| -- 作者：guoqi1129 -- 发布时间：2013/2/25 15:41:00 -- 得教。受益，谢谢 |
| -- 作者：zerov -- 发布时间：2013/2/25 16:21:00 -- 日期值得用#符号框起来。 |