【机房重构】如何将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>

【总结】

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