第一接触导出Excel表格是在第一次做机房收费系统的时候,能够顺利导出以满足:
现在已经很简单了这个逻辑,其实就是通过代码将Excel表格画出来:
<strong><span style="font-size:18px;"> '导出</span></strong>
<strong><span style="font-size:18px;">整段代码唯一不好理解的便是myExcel.Cell(i,j)这是从第i行第j列开始填充数据
Private Sub btnExport_Click(sender As Object, e As EventArgs) Handles btnExport.Click
MessageBox.Show("导出的数据如不保存将会丢失", "系统提示")
Dim myExcel As New Microsoft.Office.Interop.Excel.Application() '建立Excel连接
myExcel.Application.Workbooks.Add(True) '添加一个工作薄
myExcel.Visible = True '可见
'将datagridview中的字段名导出
Dim m As Integer
For m = 0 To dgvData.ColumnCount - 1 '获取datagridview的列的个数
myExcel.Cells(1, m + 1) = Me.dgvData.Columns(m).HeaderText '在Excel的第一行填写m列的datagridview的标题
Next m
'往excel表里添加数据
Dim i As Integer
For i = 0 To dgvData.RowCount - 1 '定义datagridview里有多少行数据要往里填充
Dim j As Integer
For j =