【机房重构】如何将Excel表格导出到WPS

【前言】

最近在重构机房重构系统， 系统中又一个十分实用的功能——导出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>

【总结】

如果你要想知道一个产品到底如何使用，找它的开发者绝对能解决问题。 可是我们毕竟很难找到产品的实际开发人员。 那么去官网就确实是个不错的选择