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

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

2、此此将d出“说明”窗口，在此根据实际需要点击“专业版”或“商业版”链接按钮，并在d出的如图所示。明洞

3、此时将打开WPS专业版程序，待下载完成后，就会发现WPS开发工具选项含孝变成可用状态。如图所示。

4、点击“VB编辑器”进入VBA环境，在此就可以使用WPS更加强大的扩展功能啦。在此小编以创建自定义函数为例，讲解一下VB编辑环境的具体使用方法。

5、右击“WPS表格”对象，从d出的右键菜单中选择“插入”-》“模块”项来插入一个用户模块。

6、在此模块编辑界面中，输入以下代码：

Function 求最大值(i As Integer, j As Integer)

If i >j Then

求最大值 = i

Else:

求最大值 = j

End If

End Function

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

一、VB读写EXCEL表：

能获取到表的行数的代码：xlSheet2.UsedRange.Rows.Count VB本身提自动化功能可以读写EXCEL表，其方法如下： 1、在工程中引用Microsoft Excel类型库：

从"工程"菜单中选择"引用"栏；选择Microsoft Excel 9.0 Object Library（EXCEL2000），然后选择"确定"。表示在工程中要引用EXCEL类型库。 2、在通用对象的声明过程中定义EXCEL对象： Dim xlApp As Excel.Application Dim xlBook As Excel.WorkBook Dim xlSheet As Excel.Worksheet

3、在程序中 *** 作EXCEL表常蚂汪用命令：

Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象

Set xlBook = xlApp.Workbooks.Open("文件名") '打开已经存在的EXCEL工件簿文件 xlApp.Visible = True '设置EXCEL对象可见（或不可见） Set xlSheet = xlBook.Worksheets("表名") '设置活动游物猜工作表 xlSheet.Cells(row, col) =值'给单元格（row,col）赋值 xlSheet.PrintOut '打印工作表 xlBook.Close (True) '关闭工作簿神型 xlApp.Quit '结束EXCEL对象

Set xlApp = Nothing '释放xlApp对象

xlBook.RunAutoMacros (xlAutoOpen) '运行EXCEL启动宏 xlBook.RunAutoMacros (xlAutoClose) '运行EXCEL关闭宏

4、在运用以上VB命令 *** 作EXCEL表时，除非设置EXCEL对象不可见，否则VB程序可继续执行其它 *** 作，也能够关闭EXCEL，同时也可对EXCEL进行 *** 作。但在EXCEL *** 作过程中关闭EXCEL对象时，VB程序无法知道，如果此时使用EXCEL对象，则VB程序会产生自动化错误。形成VB程序无法完全控制EXCEL的状况，使得VB与EXCEL脱节。

如数搜果薯核历你不记得函数的话, 可以氏州用如下代码解决

sub test()

ri = 1

do while cells(ri,1).value <>""

ri = ri +1

loop

ri = iif(ri=1,1,ri-1)

end sub

当然用更方便的方法

rn = Sheet1.Range("A" &Rows.Count).End(xlUp).Row

---