熟練運(yùn)用VB.NET EXCEL表操作
隨著VB.NET的發(fā)展,現(xiàn)在越來越多的人使用它來編程,在這里我們就分析一下關(guān)于VB.NET EXCEL表的操作。由于VB的報(bào)表功能有限,而且一但報(bào)表格式發(fā)生變化,就得相應(yīng)修改程序,給應(yīng)用軟件的維護(hù)工作帶來極大的不便。因此有很多程序員現(xiàn)在已經(jīng)充分利用EXECL的強(qiáng)大報(bào)表功來實(shí)現(xiàn)報(bào)表功能。但由于VB與EXCEL由于分別屬于不同的應(yīng)用系統(tǒng),如何把它們有機(jī)地結(jié)合在一起,是一個(gè)值得我們研究的課題。
#T#讀寫VB.NET EXCEL表:
VB本身提自動化功能可以讀寫EXCEL表,其方法如下:
1、在工程中引用Microsoft Excel類型庫:
從"工程"菜單中選擇"引用"欄;選擇Microsoft Excel 9.0 Object Library(EXCEL2000),然后選擇"確定"。表示在工程中要引用EXCEL類型庫。
2、在通用對象的聲明過程中定義EXCEL對象:
- Dim xlApp As Excel.Application
- Dim xlBook As Excel.WorkBook
- Dim xlSheet As Excel.Worksheet
3、在程序中操作VB.NET EXCEL常用命令:
- Set xlApp = CreateObject("Excel.Application") '創(chuàng)建EXCEL對象
- Set xlBook = xlApp.Workbooks.Open("文件名") '打開已經(jīng)存在的EXCEL工件簿文件
- xlApp.Visible = True '設(shè)置EXCEL對象可見(或不可見)
- Set xlSheet = xlBook.Worksheets("表名") '設(shè)置活動工作表
- xlSheet.Cells(row, col) =值 '給單元格(row,col)賦值
- xlSheet.PrintOut '打印工作表
- xlBook.Close (True) '關(guān)閉工作簿
- xlApp.Quit '結(jié)束EXCEL對象
- Set xlApp = Nothing '釋放xlApp對象
- xlBook.RunAutoMacros (xlAutoOpen) '運(yùn)行EXCEL啟動宏
- xlBook.RunAutoMacros (xlAutoClose) '運(yùn)行EXCEL關(guān)閉宏
4、在運(yùn)用以上VB命令操作EXCEL表時(shí),除非設(shè)置EXCEL對象不可見,否則VB程序可繼續(xù)執(zhí)行其它操作,也能夠關(guān)閉EXCEL,同時(shí)也可對EXCEL進(jìn)行操作。但在EXCEL操作過程中關(guān)閉EXCEL對象時(shí),VB程序無法知道,如果此時(shí)使用EXCEL對象,則VB程序會產(chǎn)生自動化錯(cuò)誤。形成VB程序無法完全控制EXCEL的狀況,使得VB與EXCEL脫節(jié)。