在代码前先添加microsoft Excel 10.0 Object Library组件的引用。
private sub button1_click(---)handles button1.click
   dim xlApp as new excel.application
   dim xlBook as excel.workbook
   dim slSheet as excel.worksheet
   dim rowIndex,colIndex as integer
   rowIndex=1
   colIndex=0
   xlbook=xlapp.workbooks().add
   xlsheet=xlbook.worksheets("sheet1")
   dim Table as new datatable
   table=creatable()
   
   dim col as datacolumn
   dim row as datarow
   for each col in table.columns
       colindex=colindex+1
       xlapp.cells(1,colindex)=col.columnname
   next

   for each row in table.rows
       rowindex=rowindex+1
       colindex=0
       for each col in table.columns
           colindex=colindex+1
           xlapp.cells(rowindex,colindex)=row(col.columnname)
       next
   next
end sub