将DatagridView中的数据完美导出到Excel

对于导出Excel这一功能的基本制作相信大写都已经很熟悉了。那我就简单的介绍一下。

首先：添加引用

• 
  

其次：导入命名空间

• Imports System.Data
  Imports Microsoft.Office.Interop

再次：是基本的代码，这里拿机房收费系统中关于对充值信息的导出为例。由于在代码中做了详细的注释，具体的介绍就不再赘述。

•  Private Sub btnExport_Click(sender As System.Object, e As System.EventArgs) Handles btnExport.Click
  
          '建立Excel
          Dim xlApp, xlBook, xlSheet As Object
          xlApp = CreateObject("Excel.Application")
          xlBook = xlApp.Workbooks.Add
          xlSheet = xlBook.Worksheets(1)
  
          Dim row As DataRow                               '定义row为datatable的行
          Dim col As DataColumn                            '定义col为datatable的列
          Dim rowindex, colindex As Integer
  
          '打开sheet1那页
          xlSheet = xlApp.Worksheets("sheet1")
  
          '赋初值
          rowindex = 2                                             '行(原值1)
          colindex = 0                                             '列
          '写入字段名
          For Each col In dt.Columns
              colindex = colindex + 1
              xlApp.Cells(2, colindex) = col.ColumnName            '原值是1，
          Next
  
          '向表格中写入具体内容
          For Each row In dt.Rows
              rowindex = rowindex + 1
              colindex = 0
              For Each col In dt.Columns
                  colindex = colindex + 1
                  xlApp.Cells(rowindex, colindex) = row(col.ColumnName)
              Next
          Next
  
          '显示Excel应用程序
          xlApp.Visible = True
  
      End Sub

最后：根据自我需要，将导出到 Excel 的内容做的精致一些。可以添加表头等。

•  '*****Excel的表头******
          xlSheet.cells(1, 3).value = "学生充值记录"                '表头内容，在第一行，第三列
          xlSheet.range("A1", "G1").font.bold = True                '字体加粗
          xlSheet.range("A1", "G1").font.colorindex = 32            '字体颜色蓝色
          xlSheet.range("A1", "G1").font.size = 25                  '字号25
          xlSheet.range("A1", "G1").merge()                         '合并单元格
  
          '*****Excel表内容******
          xlSheet.range("A2", "G2").font.bold = True               '字体加粗
          xlSheet.range("A2", "G2").font.size = 14                 '字号
          xlSheet.range("A1", "G1").HorizontalAlignment = 3        '指定单元格，水平居中（此处多余）
          xlSheet.cells.horizontalalignment = 3                    '所有单元格，水平居中
          xlSheet.pagesetup.CenterHorizontally = True              '设置页面水平居中
  
  xlSheet.range("A2", "G2").columnwidth = 20               '设置指定列的宽度(单位:字符个数)

这是最终的效果图：

•