DataGridView导出Excel

把DataGridView中的信息导出到Excel是《机房收费系统》的功能之一，这里主要是VS与Office的交互，方法有n多种（从这里就可以看出这个功能难不到哪里去了），现在就介绍一下我使用的一种吧，首先需要添加并引用命名空间。

1.添加：右击窗体所在的项目名即U层的项目名——添加——引用——出现下面图片，搜索Excel，在结果中选中符合版本的Microsoft.Interop.Excel

2.引用命名空间：Imports Microsoft.Office.Interop

由于多次用到了导出Excel的功能，所以把它单独封装到了一个函数ExportToExcel中并放在模块里

    Public Function ExportToExcel(ByVal dtg As DataGridView) As Boolean
        'DataGridView中没有信息，退出该过程
        If dtg.Rows.Count = 0 Then
            MsgBox("没有信息可导出！")
            Return False
            Exit Function
        End If

        '定义一个Excel程序、工作簿、工作表
        Dim xlApp As New Excel.Application()
        Dim xlBook As Excel.Workbook = xlApp.Workbooks.Add()
        Dim xlSheet As Excel.Worksheet = xlBook.Worksheets(1)

        '定义Excel表格的行列索引
        Dim rowIndex As Integer = 1
        Dim colIndex As Integer = 0

        '给Excel添加表头
        For col As Integer = 0 To dtg.Columns.Count - 1
            colIndex = colIndex + 1
            xlSheet.Cells(1, colIndex) = dtg.Columns(col).HeaderText
        Next

        '将DataGridView中的信息添加到Excel中
        For row As Integer = 0 To dtg.RowCount - 1
            rowIndex = rowIndex + 1
            colIndex = 0
            For col As Integer = 0 To dtg.Columns.Count - 1
                colIndex = colIndex + 1
                xlSheet.Cells(rowIndex, colIndex) = dtg(col, row).Value.ToString()
            Next
        Next

        xlApp.Visible = True                                    '显示Excel表

        Return True
    End Function

窗体调用代码

    Private Sub btnExcel_Click(sender As Object, e As EventArgs) Handles btnExcel.Click
        Call GlobalData.ExportToExcel(dtgChargeCash)
    End Sub

以上就是U层的代码，B、D两层的与其它窗体的类似。这里需要提示一点的是

dtg(col,row)先列后行，行列从0开始，表头不计在行数内。

Excel(row,col)先行后列，行列从1开始，表头记在行数内。