将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               '设置指定列的宽度(单位:字符个数)

这是最终的效果图：