关闭

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

330人阅读 评论(0) 收藏 举报
 

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
 


0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:150573次
    • 积分:4029
    • 等级:
    • 排名:第7698名
    • 原创:242篇
    • 转载:0篇
    • 译文:0篇
    • 评论:16条
    文章存档
    最新评论