多个含有多层表头的表导出到同一个工作簿中 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

1、下面的导出方法，对于多层表头来讲不管用:

Dim ex1 As New Exporter

ex1.SourceTableName = "订单统计表" '指定导出表

ex1.FilePath = "e:\订单导出数据\2015订单导出数据.xls" '指定目标文件

ex1.Format = "Excel" '导出格式为Excel

ex1.Export()

2、下面的导出方法，对于多层表头管用，但是我有多个导出表，想导出到一个工作簿中来，如果我前面已经定义了sheet作为sheets（0），我现在想将含有多层表头的数据导入到sheets（1），这时问题出来了：提示显示"索引超出范围。必须为非负值并小于集合大小。参数名: index"，我该怎么办呢

Dim tbl As Table = Tables("订单统计表")

Dim hdr As Integer = tbl.HeaderRows '获得表头的层数

Dim Sheet1 As XLS.Sheet = Book.Sheets(1)

tbl.CreateSheetHeader(Sheet1,0,0,False) '生成表头

For c As Integer = 0 To tbl.Cols.Count - 1

For r As Integer = 0 To tbl.Rows.Count - 1

sheet(r + hdr,c).value = tbl(r,c)

Book.Save("e:\订单导出数据\2015订单导出数据.xls")

主题：多个含有多层表头的表导出到同一个工作簿中