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功能，知道了原理之后，再遇到类似的问题会非常easy解决的

 三、总结

    这种技术在实现之后须要自我们回过头来继续看。和经验会更深刻的印象

版权声明：本文博客原创文章，博客，未经同意，不得转载。