Foxtable(狐表)用户栏目专家坐堂 → [求助]如何用代码实现写入excel报表数据?


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

主题:[求助]如何用代码实现写入excel报表数据?

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


加好友 发短信
等级:幼狐 帖子:148 积分:1036 威望:0 精华:0 注册:2012/11/26 13:05:00
[求助]如何用代码实现写入excel报表数据?  发帖心情 Post By:2012/12/7 21:29:00 [只看该作者]

Sheet(6,2).Value = "[$登记表,sum(登记人数),报告日期>=#2012/01/01# and 报告日期<=#2012/12/31#]

上面的数据能够正常统计,但是如果想要:登记人数直接写入excel报表指定列,应该如何实现?

例:

Sheet(6,3).Value = "[$登记表,登记人数,报告日期>=#2012/01/01# and 报告日期<=#2012/12/31#]

这种方法不能实现。

请问胡大,有没有什么方法,可以实现用代码直接引用数据?急急急


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


加好友 发短信
等级:幼狐 帖子:148 积分:1036 威望:0 精华:0 注册:2012/11/26 13:05:00
  发帖心情 Post By:2012/12/7 21:40:00 [只看该作者]

有高手在线吗?看一下,有什么方法可以用代码直接引用数据的(并且要限定条件引用)?

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


加好友 发短信
等级:幼狐 帖子:148 积分:1036 威望:0 精华:0 注册:2012/11/26 13:05:00
  发帖心情 Post By:2012/12/7 21:48:00 [只看该作者]

图片点击可在新窗口打开查看

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


加好友 发短信
等级:九尾狐 帖子:2193 积分:13908 威望:0 精华:2 注册:2012/2/25 10:59:00
  发帖心情 Post By:2012/12/7 23:35:00 [只看该作者]

建议你看看 excel报表  用excel模板轻而易举

[此贴子已经被作者于2012-12-7 23:34:59编辑过]

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


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By:2012/12/8 9:45:00 [只看该作者]

 确实不懂楼主的用意。为什么要这样做?如果想要汇总某些数据的话,就直接在狐表里统计好写入就行了。

 http://www.foxtable.com/help/topics/1396.htm

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


加好友 发短信
等级:幼狐 帖子:148 积分:1036 威望:0 精华:0 注册:2012/11/26 13:05:00
  发帖心情 Post By:2012/12/8 18:18:00 [只看该作者]

以下是引用lin_hailun在2012-12-8 9:45:00的发言:
 确实不懂楼主的用意。为什么要这样做?如果想要汇总某些数据的话,就直接在狐表里统计好写入就行了。

 http://www.foxtable.com/help/topics/1396.htm

意思很简单,能否像用excel vba一样,把foxtable表中的数据写入指定的excel工作表中,用做好的模版感觉不太灵活,而专业报表又太难,所以foxtable能否有这样的方法可以实现?谢谢。


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


加好友 发短信
等级:幼狐 帖子:148 积分:1036 威望:0 精华:0 注册:2012/11/26 13:05:00
  发帖心情 Post By:2012/12/8 20:06:00 [只看该作者]

写入excel报表的代码:

形如:

Sheet(3,2)=Tables("表名").Cols("列名").value

诸如此类的形式的,有没有这样的代码?

请高手指导,非常感谢!


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


加好友 发短信
等级:幼狐 帖子:148 积分:1036 威望:0 精华:0 注册:2012/11/26 13:05:00
  发帖心情 Post By:2012/12/8 21:28:00 [只看该作者]

这个问题估计很难吗?没有专家知道吗?能给个思路吗?

我看了帮助文件,写了以下代码:

Dim Currow As Row
Dim tbl As Table = Tables("信息")
For i As Integer = tbl.TopRow To tbl.BottomRow
CurRow = tbl.rows(i)   
sheet(i,2).value=CurRow("姓名")
Next
说是可以连续打印,但是测试过后,只能显示当前数据,不能显示所有数据。

有方法显示所有数据吗?


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


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By:2012/12/9 0:22:00 [只看该作者]

 楼主认真看看标记与事件一章。

http://www.foxtable.com/help/topics/1953.htm

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


加好友 发短信
等级:幼狐 帖子:148 积分:1036 威望:0 精华:0 注册:2012/11/26 13:05:00
  发帖心情 Post By:2012/12/9 13:01:00 [只看该作者]

lin_hailun老师,我看了标记事件,我的理解是:这个只是一个标记可替换一个值,如果我有一列几百、上千个数据,要顺序填充到excel工作表的一列中(不使用报表模版,而是要灵活地填充到excel工作表的指定列),应该怎么操作?谢谢!

 回到顶部
总数 34 1 2 3 4 下一页