主题：导出excel列属性

代码如下：

Dim tbl As Table = Tables("表A") 

Dim hdr As Integer = tbl.HeaderRows 

Dim Book As New XLS.Book Dim Sheet As XLS.Sheet = Book.Sheets(0) 

Dim Proc As New Process 

tbl.CreateSheetHeader(Sheet,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("c:\reports\test.xls") 

  Proc.File = "c:\reports\test.xls" Proc.Start()