将DataGridView中的数据导出到Excel

最新推荐文章于 2026-05-05 06:05:03 发布

原创最新推荐文章于 2026-05-05 06:05:03 发布 · 3.6k 阅读

1 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#integer #excel

DataGridView控件专题专栏收录该内容

3 篇文章

订阅专栏

本文介绍如何通过Visual Basic for Applications (VBA) 将Windows Forms中的DataGridView控件数据导出到Excel。步骤包括添加Excel引用，创建导出过程，以及在按钮点击事件中调用此过程。

1、右键单击项目，添加对EXCEL的引用（在COM选项卡中）。

2、在项目中新建一个模块，在其中创建下面的带参数过程：

    Public Sub DcExcel(ByVal DGV As DataGridView)
        '把datagridview中的数据导出到excel
        Dim wapp As New Microsoft.Office.Interop.Excel.Application
        Dim wsheet As Microsoft.Office.Interop.Excel.Worksheet
        Dim wbook As Microsoft.Office.Interop.Excel.Workbook

On Error Resume Next

        wapp.Visible = True
        wbook = wapp.Workbooks.Add()
        wsheet = wbook.ActiveSheet

        Dim iX As Integer
        Dim iY As Integer
        Dim iC As Integer

        For iC = 0 To DGV.Columns.Count - 1
            wsheet.Cells(1, iC + 1).Value = DGV.Columns(iC).HeaderText
            wsheet.Cells(1, iC + 1).Font.Bold = True
        Next

        wsheet.Rows(2).select()
        For iX = 0 To DGV.Rows.Count - 1
            For iY = 0 To DGV.Columns.Count - 1
                wsheet.Cells(iX + 2, iY + 1).value = DGV(iY, iX).Value.ToString
            Next
        Next
    End Sub

3、假定某窗体中包含一个按钮控件(btnDc)和一个DataGridView控件(DGV1)，若需通过单击按钮来导出，则可在按钮btnDc的单击事件中添加以下代码：

    Private Sub btnDc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDc.Click
        Call DcExcel(DGV1)
    End Sub