VB.Net导出Excel原理

前端之家收集整理的这篇文章主要介绍了VB.Net导出Excel原理前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
  1. VB版的机房中我们就已经接触到了导出Excel功能,再次接触这个功能有了不一样的认识
  1. 一、原理
  1. 要实现导出Excel功能,首先要引用命名空间,目的是可以使用该命名空间下的方法和类
  1. Imports Microsoft.Office.Interop

  1. 然后就需要创建在导出Excel中需要用到的类的实例,分别创建一个Excel应用,工作簿和表
  1. Dim xlApp,xlBook,xlSheet As Object
  2.         xlApp = CreateObject("Excel.Application")
  3.         xlBook = xlApp.Workbooks.Add
  4.         xlSheet = xlBook.Worksheets()

  1. 创建完毕后就可以把要到出的数据逐条写入到Excel实例化的表中即可
  1. 二、代码
  1. 在机房中我们都是要把DataGridView中的数据导出
  1.         Dim xlApp,xlSheet As Object
  2.         xlApp = CreateObject("Excel.Application")
  3.         xlBook = xlApp.Workbooks.Add
  4.         xlSheet = xlBook.Worksheets()
  5.         '使工作表可见
  6.         xlApp.Visible = True
  7.         '导出DataGridView中的标题
  8.         Dim Cols As Integer
  9.         For Cols = 1 To DataGrid.Columns.Count
  10.             xlApp.Cells(1,Cols) = DataGrid.Columns(Cols - 1).HeaderText
  11.         Next
  12.         '逐行导出DataGridView中的数据
  13.         Dim i As Integer
  14.         For i = 0 To DataGrid.RowCount - 1
  15.             Dim j As Integer
  16.             For j = 0 To DataGrid.ColumnCount - 1
  17.                 '判断DataGridview中的数据是否导出完毕
  18.                 If Me.DataGrid(j,i).Value Is System.DBNull.Value Then
  19.                     xlApp.Cells(i = 2,j = 1) = ""
  20.                 Else
  21.                     xlApp.Cells(i + 2,j + 1) = DataGrid(j,i).Value.ToString
  22.                 End If
  23.             Next
  24.         Next

  1. 这样就可以实现我们想要的导出Excel功能,知道了原理之后,再遇到类似的问题会很容易解决
  1. 三、总结
  1. 这样的技术在实现之后需要自己回过头来继续研究一下,印象和体会都会更加深刻

猜你在找的VB相关文章