- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 生成了的交叉表,如何插入excel报表模板 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=67229)
-- 发布时间：2015/4/20 15:36:00
-- 生成了的交叉表,如何插入excel报表模板
我生成了一个交叉表如图:
此主题相关图片如下：搜狗截图20150420153340.png
突然不知道如何插入EXCEL模板某个位置中,有知道的吗?
-- 发布时间：2015/4/20 15:39:00
--
整个表插进去? 直接设计一个模版引用吧.
-- 发布时间：2015/4/20 15:46:00
--
是的 整个表,连表头一起,找了半天帮助文档,还是不知道怎么整个引用
-- 发布时间：2015/4/20 15:52:00
--
直接SaveExcel 存下来吧 http://www.foxtable.com/help/topics/0559.htm
-- 发布时间：2015/4/20 17:32:00
--
我的问题在于:这个交叉表只是excel模板中的一个表,另外还有2个统计表也要放进来,能完整引用最好
-- 发布时间：2015/4/21 8:44:00
--
那就利用VBA吧 http://www.foxtable.com/help/topics/2121.htm
-- 发布时间：2015/4/21 10:25:00
--
不知道楼主解决没有，有的话分享下方法
-- 发布时间：2015/4/21 14:25:00
--
正在看VBA找办法
-- 发布时间：2015/4/21 14:32:00
--
直接用foxtable的类也可以：
http://www.foxtable.com/help/topics/1144.htm
http://www.foxtable.com/help/topics/1148.htm
-- 发布时间：2015/4/21 16:15:00
--
狐爸 采用数据导入的办法,基本实现了在固定位置导入交叉表的办法,但是发现了一个问题:
Dim dt As Table = Tables("统计表1")
Dim Book As New XLS.Book \'定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) \'引用工作簿的第一个工作表
For c As Integer = 0 To dt.Cols.Count -1 \'添加列标题
Sheet(8, c).Value = dt.Cols(c).name
Next
For r As Integer = 0 To dt.Rows.Count - 1 \'填入数据
For c As Integer = 0 To dt.Cols.Count -1
Sheet(r +9, c).Value = dt.rows(r)(c)
Next
Next
\'打开工作簿
Book.Save("d:\\test.xls")
请看红色的代码,取到的是交叉表的列名,但实际我们应该取交叉表的标题名,否则显示的表头会看不懂的,怎么才能获取标题名?