以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何用代码实现写入excel报表数据?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=26555)

--  作者:samica
--  发布时间:2012/12/7 21:29:00
--  [求助]如何用代码实现写入excel报表数据?

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
--  发布时间:2012/12/7 21:40:00
--  
有高手在线吗?看一下,有什么方法可以用代码直接引用数据的(并且要限定条件引用)?
--  作者:samica
--  发布时间:2012/12/7 21:48:00
--  
图片点击可在新窗口打开查看
--  作者:sloyy
--  发布时间:2012/12/7 23:35:00
--  

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

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

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

 http://www.foxtable.com/help/topics/1396.htm
--  作者:samica
--  发布时间: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
--  发布时间:2012/12/8 20:06:00
--  

写入excel报表的代码:

形如:

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

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

请高手指导,非常感谢!


--  作者:samica
--  发布时间: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
--  发布时间:2012/12/9 0:22:00
--  
 楼主认真看看标记与事件一章。

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

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