主题：[求助]交叉统计表表头的显示

Dim fl As String = ProjectPath & "attachments/kk.xls"
Dim f As String = ProjectPath & "attachments/test.xls"
FileSys.CopyFile(fl, f, True)
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(f)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
ws.Range("C1:D6").Copy
Dim t As Table = Tables("kk")
Dim idx As Integer = 5
For i As Integer = 1 To t.Cols.count-1 Step 2
    If i < t.Cols.count-3 Then
        ws.Range("C1:D6").Copy
        ws.cells(1,idx).Insert(MSExcel.XlDirection.xlToRight)  '将相应的单元格右移  －－－－－－－这个为什么是1？从表面上看，它是在第一行的idx列插入列。看帮助里，似乎应当是

• Dim App As New MSExcel.Application
  Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\Report.xls")
  Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
  Dim Rg As MSExcel.Range = Ws.Range("A10")  '以这个指定的单元格为基准
  Rg.EntireRow.Insert(MSExcel.XlInsertShiftDirection.xlShiftDown)'在基准单元格上面插入一行
  Rg.EntireColumn.Insert(MSExcel.XlInsertShiftDirection.xlShiftToRight)  '在基准单元格左边插入一列
  App.Visible = True
  

    End If
    ws.cells(3,idx-2).value = t.Cols(i).caption.split("_")(0)
    ws.cells(5,idx-2).value = "[" & t.Cols(i).name & "]"
    ws.cells(5,idx-1).value = "[" & t.Cols(i+1).name & "]"
    idx += 2
Next

app.visible = True

Dim Book As New XLS.Book("c:\reports\test.xls") '定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表
Dim Style As XLS.Style = Book.NewStyle() '定义新样式
Style.ForeColor = Color.Red '设置样式的字体颜色
Sheet.Cols(0).Width = 120 '设置第1列的宽度
Sheet.Cols(0).Style = Style '设置第1列的样式
Sheet.Cols(4).PageBreak = True '在第5列处强制分页
Book.Save("c:\reports\test.xls")
Dim Proc As New Process
Proc.File = "c:\reports\test.xls"
Proc.Start()