前面已经说明了编程环境以及基本的对象方法、属性、集合的调用,今天我们重点介绍一下自动化办公中经常用到的对象,这节仅是为了上节,提供更多的应用内容,调用方法与上节完全一样.
一般我们自动化办公主要用的是工作表,WPS的工作表基本与Excel一样,基本对象也相同,使用起来也特别熟悉、方便,具体看看下面的清单:
- 工作薄的常用对象
ThisWorkbook //当前工作表,属性、方法自动提示
ActiveWorkbook //当前工作薄,有属性、方法自动提示
Workbooks(n) //工作表索引号引用对象,无提示
Workbooks("Sheet1") //工作表名称引用对象,无提示
2.工作薄常用属性
Path(工作薄路径)、Name (工作薄名称)、FullName(全路径,是路径与名称的结合)
代码举例:
alert(ActiveWorkbook.Path+ " + "+ThisWorkbook.Name+ "= "+ThisWorkbook.FullName)
alert("代码自动提示:"+Workbooks.Item("555.xlsm").FullName )
alert("代码不会提示:"+Workbooks("555.xlsm").FullName)
代码书写中按照系统规则引用属性、方法,系统自动提示,否则只能自己靠记忆书写了。
工作薄的引用看得差不多了,再看看它的下级对象工作表,对于工作表的使用基本与工作薄的一样,具体可以看看下面代码:
alert("代码不自动提示:"+ Worksheets('888888') .Name)
alert("代码不自动提示:"+ Worksheets(1) .Name)
alert("代码不自动提示:"+ Sheets.Item('888888').Name)
alert("代码不自动提示:"+ Sheets.Item(1).Name)
alert("代码不自动提示:"+ Sheets('888888').Name)
alert("代码不自动提示:"+ Sheets(1) .Name)
//这个有点特殊,"." 后都不会提示,只能自己记住了;与 Worksheets 相比, Sheets 还可以引用Chart对象。
这里注意一点,对于当前活动薄、活动表可以直接使用Worksbooks、Sheets对象,程序默认就是当前活动工作薄、工作表,如果引用非活动工作薄、工作表就需要逐级注明对应引用了,比如:
alert(Workbooks.Item("555.xlsm").Sheets("888888").Name)
alert(Workbooks.Item("123.xlsm").Sheets("abc").Name)
虽然两端代码都在555的模块中,但要显示123文件的代码,就必须逐级引用,而且要求两个文件都要打开才能成功。
我们已经学习了工作薄、工作表的控制,下次我们再看看单元格的控制,总之,知道的越多,编写代码时,想法就越多,工作就越灵活。