在VB機房的版本中，我們已經(jīng)暴露導(dǎo)出Excel特征，此功能已重新接觸到不同的理解
一、原理
要實現(xiàn)導(dǎo)出Excel的功能，首先要引用命名空間，目的是能夠使用該命名空間下的方法和類
Imports Microsoft.Office.Interop
然后就須要創(chuàng)建在導(dǎo)出Excel中須要用到的類的實例。分別創(chuàng)建一個Excel應(yīng)用，工作簿和表
Dim xlApp, xlBook, xlSheet As Object xlApp = CreateObject("Excel.Application") xlBook = xlApp.Workbooks.Add xlSheet = xlBook.Worksheets()
創(chuàng)建完成后就能夠把要到出的數(shù)據(jù)逐條寫入到Excel實例化的表中就可以
二、代碼
在機房中我們都是要把DataGridView中的數(shù)據(jù)導(dǎo)出
Dim xlApp, xlBook, xlSheet As Object xlApp = CreateObject("Excel.Application") xlBook = xlApp.Workbooks.Add xlSheet = xlBook.Worksheets() '使工作表可見 xlApp.Visible = True '導(dǎo)出DataGridView中的標(biāo)題 Dim Cols As Integer For Cols = 1 To DataGrid.Columns.Count xlApp.Cells(1, Cols) = DataGrid.Columns(Cols - 1).HeaderText Next '逐行導(dǎo)出DataGridView中的數(shù)據(jù) Dim i As Integer For i = 0 To DataGrid.RowCount - 1 Dim j As Integer For j = 0 To DataGrid.ColumnCount - 1 '推斷DataGridview中的數(shù)據(jù)是否導(dǎo)出完成 If Me.DataGrid(j, i).Value Is System.DBNull.Value Then xlApp.Cells(i = 2, j = 1) = "" Else xlApp.Cells(i + 2, j + 1) = DataGrid(j, i).Value.ToString End If Next Next
這樣就能夠?qū)崿F(xiàn)我們想要的導(dǎo)出Excel功能，知道了原理之后，再遇到類似的問題會非常easy解決的
三、總結(jié)
這種技術(shù)在實現(xiàn)之后須要自我們回過頭來繼續(xù)看。和經(jīng)驗會更深刻的印象
