用VB向WPS工作表中添加数据

用VB向WPS工作表中添加数据

1、打开WPS表格程序，切换到“开发工具”选项卡，点击“说明”按钮，此时将打开说明窗口。

　　2、此此将弹出“说明”窗口，在此根据实际需要点击“专业版”或“商业版”链接按钮，并在弹出的如图所示。
　　3、此时将打开WPS专业版程序，待下载完成后，就会发现WPS开发工具选项变成可用状态。如图所示。
　　4、点击“VB编辑器”进入VBA环境，在此就可以使用WPS更加强大的扩展功能啦。在此小编以创建自定义函数为例，讲解一下VB编辑环境的具体使用方法。
　　5、右击“WPS表格”对象，从弹出的右键菜单中选择“插入”-》“模块”项来插入一个用户模块。

　　6、在此模块编辑界面中，输入以下代码：
　　Function 求最大值(i As Integer, j As Integer)
　　If i > j Then
　　求最大值 = i
　　Else:
　　求最大值 = j
　　End If
　　End Function

　　7、最后返回WPS表格界面，输入公式“=求最大值(3,5)”，即可得输出结果“5”。

呵呵，以前还从来没有遇见过WPS的VBA呢，新鲜！研究了一下，给你成功的做出来了，代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Dim i As Integer
Dim ET As Object, sht As Object
Private Sub Command1_Click()
i = i + 1
sht.Cells(i, 1).Value = Text1.Text
sht.Cells(i, 2).Value = Text2.Text
End Sub

Private Sub Form_Load()
Set ET = CreateObject("et.application")
Set sht = ET.Workbooks.Add.Sheets("sheet1")
ET.Visible = True

End Sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息