wps个人免费版支持宏操作（wps宏功能的简单使用）

这一节，我将初步实现查询功能。

打开 “报表.et”，选择菜单『开发工具』-『查看代码』，打开WPS宏编辑器，在左上侧的工程栏里的『代码』下面，插入两个模块，分别重命名为lib和main。如图11.0：

工程总览 图11.0

lib模块里面存放一些通用函数库，main里面存放commandbutton的click事件。如果11.1

按钮事件 图11.1

在function CommandButton1_Click()添加代码如下：

//查询按钮的单击事件
function CommandButton1_Click()
{
	//使用变量ReportSh 引用报表工作表对象
	let ReportSh = Application.Worksheets.Item("报表")
	//使用变量ReportQuery 引用报表工作表内的查询对象
	let ReportQuery = ReportSh.QueryTables.Item(1)
}

把第4行代码 Application.Worksheets.Item("报表") 复制到立即窗口，后面加上“.Name”并回车。可以看到报表名字被成功显示，说明这条语句能成功获取报表工作表对象。

其他调试操作，请看动图11.2：

立即窗口调试 图11.2

初学者可以这样一步一步的完善WPS宏的编写。

编写代码期间，如果要查询对象的属性或者方法，可以参考 第2节 内容。

最终查询代码如下：

//查询按钮的单击事件
function CommandButton1_Click()
{
  	//使用变量ReportSh 引用工作表对象：报表
	let ReportSh = Application.Worksheets.Item("报表")
	
	 //使用变量ReportQuery 引用报表工作表内的查询对象
    let ReportQuery = ReportSh.QueryTables.Item(1)
    
    //DictSh 引用工作表对象：字典
	let DictSh = Application.Worksheets.Item("字典")	
   
     //先定义一个 where 语句来测试 sql 语句
    const whereStr = 'where (left([单位],6)="101006") and ([计划月份] between "01" and "05")'
    
     /* 
     *	将字典工作表D1单元格存储的sql语句取出
     *	并使用 whereStr 替换语句中的 ？
     *  如果使用replace，具体可网上搜索相应教程
     *  可以看到，与vba相比，js宏代码在写字符串处理方面有很大优势
     */
    let sqlstr = DictSh.Range("D1").Value2.replace(/\?/g, whereStr)
   //  Console.log(sqlstr)  
  	//将sqlstr 赋值给查询对象，并刷新查询
    ReportQuery.CommandText = sqlstr
    ReportQuery.Refresh()
}

第21行注释掉的语句Console.log(sqlstr)，就是在函数体中调试输出结果到立即窗口的方法之一。也可以使用Debug.Print(sqlstr)

最终执行结果如图11.3：

sql 语句初步调试 图11.3

本节使用的两个工作簿在下面的链接，下载后放到一个文件夹中。

打开报表文件，在第4节的图4.4中，点击连接文件后面的浏览，找到database.et文件，就可以使用了。

//本次查询使用的数据库文件
database.et 文件的下载链接：https://kdocs.cn/l/cjquBVytt7DX
//本次查询使用的报表文件
报表.et文件的下载链接：https://kdocs.cn/l/cs4kB6lxkomD

本节内容到此结束，下一节将继续完善报表查询的相关功能。

haoge

打赏 海报 链接