VB.Net导出Excel原理

    在VB版的机房中我们就已经接触到了导出Excel的功能，再次接触这个功能有了不一样的认识

 一、原理

    要实现导出Excel的功能，首先要引用命名空间，目的是可以使用该命名空间下的方法和类

Imports Microsoft.Office.Interop

    然后就需要创建在导出Excel中需要用到的类的实例，分别创建一个Excel应用，工作簿和表

    
Dim xlApp, xlBook, xlSheet As Object        xlApp = CreateObject("Excel.Application")        xlBook = xlApp.Workbooks.Add        xlSheet = xlBook.Worksheets()

    创建完毕后就可以把要到出的数据逐条写入到Excel实例化的表中即可

 二、代码

    在机房中我们都是要把DataGridView中的数据导出

 
        Dim xlApp, xlBook, xlSheet As Object        xlApp = CreateObject("Excel.Application")        xlBook = xlApp.Workbooks.Add        xlSheet = xlBook.Worksheets()        '使工作表可见        xlApp.Visible = True        '导出DataGridView中的标题        Dim Cols As Integer        For Cols = 1 To DataGrid.Columns.Count            xlApp.Cells(1, Cols) = DataGrid.Columns(Cols - 1).HeaderText        Next        '逐行导出DataGridView中的数据        Dim i As Integer        For i = 0 To DataGrid.RowCount - 1            Dim j As Integer            For j = 0 To DataGrid.ColumnCount - 1                '判断DataGridview中的数据是否导出完毕                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

    这样就可以实现我们想要的导出Excel功能，知道了原理之后，再遇到类似的问题会很容易解决的

 三、总结

    这样的技术在实现之后需要自己回过头来继续研究一下，印象和体会都会更加深刻