如何将DataGrid中的数据导出到Excel文件中

 

HTML Tags and JavaScript tutorial

如何将DataGrid中的数据导出到Excel文件中

引用Excel XX Object library
    Function SendToExcel(ByVal Table As DataTable, ByVal SheetName As String)
        Dim oExcel As New Excel.Application()
        Dim obook As Excel.Workbook
        Dim oSheet As Excel.Worksheet
        Try
            obook = oExcel.Workbooks.Add '.Open(file)
            oSheet = obook.Worksheets(1)
            oSheet.Name = SheetName
            Dim r As Integer, c As Integer
            Dim rCount As Integer
            Dim cCount As Integer
            rCount = Table.Rows.Count
            cCount = Table.Columns.Count()
            For c = 1 To cCount
                oSheet.Cells(1, c) = Table.Columns(c - 1).Caption '设置列标题
            Next
            c = 0 : r = 0
            For r = 1 To rCount
                For c = 1 To cCount
                    oSheet.Cells(r + 1, c) = CStr(Table.Rows(r - 1)(c - 1).ToString)
                Next
            Next
            oExcel.Visible = True
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        oExcel = Nothing
        obook = Nothing
        oSheet = Nothing
    End Function
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim DTygzl As New System.Data.DataTable
        Dim a As String = "员工表" '生成的Excel的表名
        Me.SqlDataAdapter1.Fill(DataSetName, "DataTableName")
        DTygzl = DatasetName.Tables("DataTableName")
        SendToExcel(DTygzl, a)
    End Sub