【前言】
最近在重构机房重构系统, 系统中又一个十分实用的功能——导出Excel 表格。 不过世殊时异,WPS 的发展很不错, 基本上Office有的功能它都有, 所以我这次就想试试看能不能不用office, 把表格内容导出到WPS里, 毕竟是正版国产免费软件。 以后用到的机会应该挺多。于是就进行了这次探索。
【正文】
其实代码很简单, 和之前导出到excel的代码基本是一样的。只不过找这个引用比较麻烦。我是从WPS官网上的二次开发论坛里找到的。
材料: WPS 2016
引用:
Upgrade WPS Spreadsheets3.0 object library
相应代码:
<span style="font-size:24px;">Imports Excel
Public Class frmInquryChargeInfo
Private Sub btnExport_Click(sender As Object, e As EventArgs) Handles btnExport.Click
'建立excel连接
Dim myexcel As New Excel.Application
myExcel.Application.Workbooks.Add(True)
myExcel.Visible = True
'定义循环变量,行列变量
Dim intRow As Integer
Dim intColumn As Integer
Dim intTitle As Integer
'添加表头
For intTitle = 0 To DataGridView1.ColumnCount - 1
myExcel.Cells(1, intTitle + 1) = DataGridView1.Columns(intTitle).HeaderText
Next intTitle
'通过循环来添加控件中的数据到表格中
For intRow = 0 To DataGridView1.Rows.Count - 1
For intColumn = 0 To DataGridView1.ColumnCount - 1
'由于第一行是表头,所以添加数据时从第二行开始
If Me.DataGridView1(intColumn, intRow).Value Is System.DBNull.Value Then
myExcel.Cells(intRow + 2, intColumn + 1) = ""
Else
myExcel.Cells(intRow + 2, intColumn + 1) = DataGridView1(intColumn, intRow).Value
End If
Next intColumn
Next intRow
End Sub</span>
【总结】
如果你要想知道一个产品到底如何使用,找它的开发者绝对能解决问题。 可是我们毕竟很难找到产品的实际开发人员。 那么去官网就确实是个不错的选择