VB.net导出花式Excel

概述        第一接触导出Excel表格是在第一次做机房收费系统的时候，能够顺利导出以满足：         现在已经很简单了这个逻辑，其实就是通过代码将Excel表格画出来： <strong><span style="font-size:18px;"> '导出</span></strong> <strong><span style="font-size:18px;">整段代码唯一不好理解的

第一接触导出Excel表格是在第一次做机房收费系统的时候，能够顺利导出以满足：

现在已经很简单了这个逻辑，其实就是通过代码将Excel表格画出来：

  <strong><span > '导出</span></strong>

<strong><span >整段代码唯一不好理解的便是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 = 0 To dgvData.ColumnCount - 1   '<span >定义datagrIDvIEw里有多少列数据要往里填充</span>                If Me.dgvData(j,i).Value Is System.dbnull.Value Then  '进行非null判断                    myExcel.Cells(i + 2,j + 1) = ""        '如果是则用空代替                Else                    myExcel.Cells(i + 2,j + 1) = dgvData(j,i).Value    '然后开始填充                End If            Next j        Next i    End Sub</span></strong>

效果如图：

在实际的需求中这样的Excel显然是不合格的也不会是用户需要的，如果要弄出如下格式的我们又该怎么办呢？

通过学习和查阅资料会发现只要我们了解了足够多的Excel的属性和方法就可以做出来，举例如下：

<strong><span >        Private Sub butExcel_Click(sender As Object,e As EventArgs) Handles btnExcel.Click        MessageBox.Show("导出的数据如不保存将会丢失","系统提示")             Dim myExcel As New Microsoft.Office.Interop.Excel.Application()  '建立Excel连接        myExcel.Application.Workbooks.Add(True)        myExcel.Visible = True        Dim i,j,k As Integer '定义变量        myExcel.Cells.HorizontalAlignment = 3    '定义单元格文本对齐方式        myExcel.Cells.Font.Size = 14      '定义文本字体大小        Select Case cmbtable.Text.Trim()            Case "党政人才类别统计表1"                myExcel.Range("A2").ColumnWIDth = 45       '设定指定单元格集的列宽，此处是指A2所对应的列                myExcel.Range("B2","P2").ColumnWIDth = 16   <span >'设定指定单元格集的列宽，此处是指B2和P2所对应的列</span>                myExcel.Cells(1,16) = cmbtable.Text                   myExcel.Range("A1","P1").Merge()      '合并单元格                myExcel.Range("A1","P1").Font.Bold = True                '字体加粗                  'myExcel.Range("A1","P1").Font.colorIndex = 32            '字体颜色蓝色                  myExcel.Range("A1","P1").Font.Size = 25                '添加表头b                myExcel.Range("B2","E2").Merge()                myExcel.Range("F2","J2").Merge()                myExcel.Range("F2","J2").Font.Bold = True                '字体加粗                  'myExcel.Range("F2","J2").Font.colorIndex = 32            '字体颜色蓝色                  myExcel.Range("F2","J2").Font.Size = 20                myExcel.Cells(2,6) = "学历"        '给第二行第六列的单元格赋值                myExcel.Range("K2","P2").Merge() '合并单元格                myExcel.Range("K2","P2").Font.Bold = True                '字体加粗                  'myExcel.Range("K2","P2").Font.colorIndex = 32            '字体颜色蓝色                  myExcel.Range("K2","P2").Font.Size = 20                myExcel.Cells(2,11) = "年龄"        End Select        For k = 0 To dgvData.ColumnCount - 1            myExcel.Cells(3,k + 1) = dgvData.Columns(k).headerText        Next k        '添加数据        For i = 0 To dgvData.RowCount - 1            For j = 0 To dgvData.ColumnCount - 1                myExcel.Cells(i + 4,i).Value            Next        Next    End Sub</span></strong>

效果图：

我们掌握了下面的这些属性和方法就能做出属于我们需求的Excel表格了：

如有需要请点击我 接着点我 最后一次

总结

以上是内存溢出为你收集整理的VB.net导出花式Excel全部内容，希望文章能够帮你解决VB.net导出花式Excel所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。