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)
Next
Next
Book.Save("e:\订单导出数据\2015订单导出数据.xls")
加好友 
发短信
Post By：2015/8/4 11:01:00 [显示全部帖子]
