VB.net WPS二次开发

最新推荐文章于 2024-08-15 08:55:49 发布

VB6 TO NET

最新推荐文章于 2024-08-15 08:55:49 发布

阅读量2.3k

点赞数 1

本文链接：https://blog.csdn.net/Pwwwqq/article/details/117356317

版权

博客介绍了如何在Vb.NET桌面应用中使用Wps替代微软Office，通过创建对象并引用Wps组件来操作Excel文件。作者展示了如何打开、检查只读状态以及在Wps表格中写入数据的代码示例，并提到Word等其他组件的迁移可能需要类似小幅度修改。

摘要由CSDN通过智能技术生成

最近公司开始主流使用Wps，支持国产
那么原来针对微软Office制作的软件需要做些修改
今天拿Wps表格做演示
新建Vb.NET桌面应用项目
添加引用
在这里插入图片描述
添加上图两个
这时候引用里面会出现Excel

双击打开

可以看到这个并不是MicroSoft的
简单做个测试界面


```vbnet
Imports Excel
Public Class Form1
    Public WpsEt As Application = CreateObject("ket.application")
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        WpsEt.Visible = True
        WpsEt.Workbooks.Open("D:\测试.xlsx")
        WpsEt.Worksheets(2).activate()
        If WpsEt.ActiveWorkbook.ReadOnly = True Then
            MsgBox("测试表格为只读状态，请关闭后从软件重新打开", MsgBoxStyle.DefaultButton1, "错误提醒")
        End If
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim row_h As Integer, column_l As Integer
        row_h = TextBox1.Text
        column_l = TextBox2.Text
        WpsEt.Cells(row_h, column_l) = "软件写入wps表格数据测试"
    End Sub
End Class

在D盘下建立一个表格做下测试
在这里插入图片描述
其它的Word什么的还没有测试，不过应该代码修改很小