vb.net操作excel文件

[轉自]http://news.dayoo.com/tech/201005/21/10000617_102079598.htm

要求將數據顯示在Excel表中，並且要設好數據格式。雖說如此，真正實現了自己的功能，還是費了不少時間。相信還是有很多與我相似的人需要實現這種功能。那就做個小結吧。不妥之處，請指正哦。

　　1.添加引用--com---microsoft excel 11.0 object library

　　2在需要訪問excel的過程中定義

        dim exapp as excel.application　 '定義excel應用程序
        dim exbook as excel.workbook ‘定義工作簿
        dim exsheet as excel.worksheet ‘定義工作表
       dim exrange as excel.range　　 '定義工作區域

　　3.有了上面的定義，基本上excel的操作就手到擒來了

　   exapp.visible=true　 '顯示excel 程序
　   exbook=exapp.workbooks.add　　'添加新工作簿　　或exbook=exapp.workbooks.open("薄名")　 / 打開已在工作薄
　   exsheet=exbook.sheets(n)　　 '獲得第n個工作表的控制句柄,後面就由它處理了
　   exsheet.cells(row,col)=值　　　 '對指定單元格賦值,這個操作大量出現哦
　   exsheet.range(cells,cells).font　　　　　　　'這個屬性也常用到，設置格式就是它了:
 　 exsheet.range(cells,cells).font.colorindex=3　 '設置顏色
       exsheet.range(cells,cells).Borders.LineStyle=1'設邊框線
       exsheet.range(cells,cells).EntireColumn.AutoFit　 '自動列寬　 /可以改爲自動行高哦
       exsheet.range(cells,cells).merge　　　　　　　　　'合併單元格,複雜的表格這個也用的多哦
       exsheet.range(cells,cells).HorizontalAlignment=3　 '水平居中　 ,當然也可以改爲垂直的
       exSheet.PageSetup.Orientation = 2　　 '頁面橫向

　　熟練以上這些，基本上就可以實現一些要求了。

　　4。最後是保存文件

　　exsheet.saveas("文件名")

　　或

　　exbook.save

　　5.清理變量

      exsheet=nothing
      exbook.close
      exbook=nothing
      exapp.quit
      exapp=nothing

      gc.collect()