主题：[求助]如何用代码实现写入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#]

这种方法不能实现。

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

有高手在线吗？看一下，有什么方法可以用代码直接引用数据的（并且要限定条件引用）？

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

写入excel报表的代码：

形如：

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

诸如此类的形式的，有没有这样的代码？

请高手指导，非常感谢！

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

我看了帮助文件，写了以下代码：

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老师，我看了标记事件，我的理解是：这个只是一个标记可替换一个值，如果我有一列几百、上千个数据，要顺序填充到excel工作表的一列中（不使用报表模版，而是要灵活地填充到excel工作表的指定列），应该怎么操作？谢谢！

有点小失望，求助了几天了，本人刚接触foxtable，是个实足的菜鸟，只是想要一行代码示例，难道我提的问题难度很高？还是目前狐表目前没有该功能，亦或者高手们不屑解决，请给一个明确一点的答复，好吗。你们可能在失去一个潜在的客户，呵呵，或许你们不在乎。

好吧，我承认有点儿浮躁了。

请lin_hailun老师帮助看一下，这张表定义的是否有错误，为什么在生成excel工作表时，没有任何数据（首先申明：这是在Attachments目录里的源表里定义的。

（其实，我还是喜欢自己写代码，输入到excel工作表中，这样做很灵活，模版的话还是很局限性的，如果有这样的写入代码的话，还是请lin_hailun老师告知一下，再次表示感谢！）

我想做一个登记管理的小工具，在窗口面板中有二个按钮是：按病种年份、按社区年份，生成excel工作表。有二张表是通过信息ID进行关联的，模版定义不会做，请老师指点。谢谢。

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:传染病管理.rar