今天做机房收费系统做到了报表打印部分了。
在将dataGridView中的数据导出到excel时,到网上找了一些相关的内容,个人感觉不是太好,有的在复杂了。
下面是简单的实现dataGridView数据到excel:
当然首先要添加引用:Microsoft.Office.Interop.Excel
Dim MyExcel As New Microsoft.Office.Interop.Excel.Application()
MyExcel.Application.Workbooks.Add()
MyExcel.Visible = True
'获取标题
Dim Cols As Integer
For Cols = 1 To DataGridView1.Columns.Count
MyExcel.Cells(1, Cols) = DataGridView1.Columns(Cols - 1).HeaderText
Next
'往excel表里添加数据()
Dim i As Integer
For i = 0 To DataGridVi