百度360必应搜狗淘宝本站头条
当前位置:网站首页 > 技术教程 > 正文

14. WPS表格使用JS宏查询报表明细之查询实现

csdh11 2024-12-10 13:12 4 浏览

本节继续 上一节 内容实现明细查询的代码。

先分析一下报表结构:

报表主要由三部分组成,如图14.0.。

左侧是“固定区域”,图14.0中的灰色区域,共5列:排序、类、款、项、科目名称。

中间是“指标区域”,图14.0中的蓝色区域,共4列:指标总金额、指标已用金额、指标可用金额、计划金额合计。

右侧是“支出区域”,图14.0中的橙色区域,共6列:工资福利支出、对个人和家庭补助支出、公用经费、部门预算项目、专项资金项目、其他项目。

【显示明细】按钮的使用方法,鼠标选中相应单元格,使之成为活动单元格,再点击显示明细按钮。

显示明细按钮的代码应做如下工作:

第一步、判断活动单元格是否在指定的区域内;

第二步、如果这个单元格在相应区域内:

a. 根据当前活动单元格的排序行,分析出是合计、类、款、项以及单位这些汇总行的哪一个(如图13.0);

b. 根据当前活动单元格的标题决定是否执行项目分类明细的查询;

第三步、使用当前工作薄的现有连接,创建新两个新的查询:

a. 查询源数据抽出有用的列形成明细表;

b. 按项目名称汇总出相关数据。


第一步细化说明及相关代码:

? 如果不在报表数据区域内,什么也不做


? 如果在“固定区域”,什么也不做

? 如果在“指标区域”,则查询出无项目分类的汇总数据(计划合计)

? 如果在“支出区域”,则查询出具体的项目分类汇总数据(项目分类为橙色列对应的明细 图14.0)

涉及到了查询表所覆盖的工作表区域,用到了Range区域对象QueryTable.ResultRange这个属性。

整个查询表使用的列是固定的,从B列到P列;使用的行不是固定的,从第4行开始,到ResultRange.End(xlDown).Row返回的行号。

要对QueryTable.ResultRange这个区域分类,在lib模块添加三个函数,分别获取到这三个区域。相关代码如下:

/* getFixedRange 获取左侧固定区域
 * 传入报表返回的数据区域
 * 返回C:F,4列,不包括排序列和标题行
 */
function getFixedRange(ResultRange){
	return ResultRange.Offset(1,1).Resize(ResultRange.Rows.Count-1, 4)
}

/* getQuotaRange 获取指标区域
 * 传入报表返回的数据区域
 * 返回J:G,4列,包括了计划合计列,不包括标题行
 */
function getQuotaRange(ResultRange){
	return ResultRange.Offset(1,5).Resize(ResultRange.Rows.Count-1, 4)
}

/* getDisbursedRange 获取支出区域
 * 传入报表返回的数据区域
 * 返回K:P,6列,不包括计划合计列与标题行
 */
function getDisbursedRange(ResultRange){
	return ResultRange.Offset(1,9).Resize(ResultRange.Rows.Count-1, 6)
}

判断当前活动单元格是否在指标与支出区域的代码:

//显示明细按钮的单击事件
function CommandButton2_Click()
{
	let ShReport = Application.ThisWorkbook.ActiveSheet
	let DataRange = ShReport.QueryTables.Item(1).ResultRange
  
	//分别获取指标区域与支出区域
	let r1 = getQuotaRange(DataRange)
	let r2 = getDisbursedRange(DataRange)
	
	//得到当前活动单元格,如果是区域,则选择第一个单元格
	let c1 = Selection.Cells(1)
  
/* 第一步 判断活动单元格是否在指定的区域内;*/
	//交叉区域判断 判断所选单元格是否在金额数据汇总区域
	if (!Intersect(c1, Union(r1, r2))) 
	{
		alert("所选单元格不在金额汇总数据显示区域,无法显示明细数据,请重新选择。")
		return 0
	}

第二步细化说明及相关代码:

   /*  第二步 a. 根据当前活动单元格的排序行分析出
  	*  是合计、类、款、项以及单位这些汇总行的哪一级
    *  并将这些条件增加到where语句后面
    */
	
	//定义一个在sql where条件里增加的条件
	let AddWhere = ""
	
	//定义一个单位单元格是否为空或者全部的布尔变量
	let UnitValue = ShReport.Range("f1").Text
	let BoolUnit =  UnitValue == "0-全部" || UnitValue == ""
	
	//取得当前活动单元格同一行排序单元格的值
	let OrderValue = ShReport.Cells.Item(c1.Row, 2).Value2	
		
	/*  解析OrderValue,判断当前活动单元格位于什么汇总级别 */
	if (OrderValue == '0')
	{ 
		//汇总合计行,什么也不用做,全部提取就好了
    } 
	else 
	{ //根据排序值的长度来判断是哪一级的汇总
		switch(OrderValue.length)
		{
			case  7: //类款项的汇总行
				/* 查询的是 2010000 这种类汇总行 */
				if (OrderValue.substr(3,4) == "0000")							
				{ 	// l示例:and (left([支出功能分类],3) = '201')
					AddWhere = " and (left([支出功能分类],3) = '" + OrderValue.substr(0,3) +"')" 
				}  	
				/* 查询的是 2010100 这种款汇总行 */
				else if (OrderValue.substr(5,2) == "00") 
				{ 	// 示例:and (left([支出功能分类],5) = '20101')
					AddWhere = " and (left([支出功能分类],5) = '" + OrderValue.substr(0,5) +"')" 
				} 
				/* 查询的是 2010201 这种项汇总行 */
				else 
				{ 	// 示例:and (left([支出功能分类],7) = '2010101')
					AddWhere = " and (left([支出功能分类],7) = '" + OrderValue.substr(0,7) +"')" 
				}  
				break		
			case  9://单位汇总行-缺款、项,只有类+单位的汇总行 201+101003				
				// 示例:and (left([支出功能分类],4) = '201-') and (left([单位],6) = '101003')			 
				AddWhere = " and (left([支出功能分类],4) = '" + OrderValue.substr(0,3) +"-')" 				
				AddWhere += BoolUnit ? " and (left([单位],6) = '" + OrderValue.substr(4) + "')" : ""
				break
			case 11://单位汇总行-缺项,只有类款+单位的汇总行 20102+101003			
				// 示例:and (left([支出功能分类],6) = '20102-') and (left([单位],6) = '101003')			
				AddWhere = " and (left([支出功能分类],6) = '" + OrderValue.substr(0,5) +"-')" 
				AddWhere += BoolUnit ? " and (left([单位],6) = '" + OrderValue.substr(6) + "')" : ""
				break
			case 13://单位汇总行 类款项+单位的汇总行 2010201+102001			
				// 示例:and (left([支出功能分类],8) = '2010201-') and (left([单位],6) = '101003')
				AddWhere = " and (left([支出功能分类],8) = '" + OrderValue.substr(0,7) +"-')" 
				AddWhere += BoolUnit ? " and (left([单位],6) = '" + OrderValue.substr(8) + "')" : ""
				break
			default:
				Console.log("未知错误1")		
		}
	}
 /*  第二步 b. 根据标题列决定是否显示项目分类明细的其中一个:
	*	 工资福利支出	对个人和家庭补助支出	公用经费
  *   部门预算项目	专项资金项目	其他项目 
  */
	
	//取得当前活动单元格列标题的值
	let TitleValue = ShReport.Cells.Item(4, c1.Column).Value2
	
	//列举项目分类明细内容 如果标题是这里面的内容,要查询项目分类明细
	const ProjectDetails = "工资福利支出	对个人和家庭补助支出	公用经费	部门预算项目	专项资金项目	其他项目"	

	//定义在where里追加的第二个条件
	let AddWhere2 = ""
	//查询的是项目分类明细
	if (ProjectDetails.indexOf(TitleValue) > -1){
		AddWhere2 = TitleValue == "其他项目" ? 
		   " and ([项目类别] not in ('工资福利支出','对个人和家庭补助支出','公用经费','部门预算项目','专项资金项目')"
		 : " and ([项目类别] ='" + TitleValue + "')"
	}		

第三步、使用当前工作薄的现有连接,创建新两个新的查询:

/* 第三步、使用当前工作薄的现有连接,创建新两个新的查询 */
	//数据查询参数设置	
	let ShDict = Application.Worksheets.Item("字典")	 
	
	//获取报表上面的查询条件参数
	let whereStr = getWhereStr(ShReport)
	
	//使用where条件替换存储的支出查询SQL中的?
	let sqlstr = ShDict.Range("d3").Value2.replace(/\?/g, whereStr + AddWhere + AddWhere2)
	
	//使用当前工作薄的现有连接 cnstr
	let cnstr = Application.ThisWorkbook.Connections.Item(1).OLEDBConnection.Connection
	//支出查询数据存放工作表
  let ShDetail = Application.Worksheets.Item("支出明细")
	//先清除查询
	for (let qt of ShDetail.QueryTables){
		qt.ResultRange.Clear()
		qt.Delete()	
	}
	//查询明细 创建支出查询
	let qDetail = ShDetail.QueryTables.Add(cnstr, ShDetail.Range("A3"), sqlstr)
	qDetail.Refresh()
	
	/*
	*下面查询项目分类明细
	*/
	let ShProjectDetails = Application.Worksheets.Item("项目分类明细汇总")
 //		项目分类明细汇总查询的存放工作表
	sqlstr = ShDict.Range("d2").Value2.replace(/\?/g, whereStr + AddWhere + AddWhere2)
		
	//先清除查询
	for (let qt of ShProjectDetails.QueryTables){
		qt.ResultRange.Clear()
		qt.Delete()	   
	}
	//查询明细 创建项目明细查询
	let qProjectDetails = ShProjectDetails.QueryTables.Add(cnstr, ShProjectDetails.Range("A3"), sqlstr)
	qProjectDetails.Refresh()
	
	alert("明细查询完成,请切换到【支出明细】和【项目分类明细汇总】工作表(Sheet)查看。")
}//END function CommandButton2_Click()
// CommandButton2_Click() 函数结束

至此,完成了明细查询的所有代码。下一节,将对main模块内CommandButton_Click()函数的代码进行适当的精简,使用函数替换其中的大部分内容,以优化阅读体验。

本节示例,附下载链接:

/*
本节使用的两个工作簿在下面的链接,下载后放到一个文件夹中。
将文件名分别重命名为database.et 和 报表.et
打开【报表.et】,操作参考第4节的图4.4:
在数据菜单中,【导入数据】-【编辑连接属性】
点击连接文件路径后面的【浏览】,找到下载的database.et文件,就可以使用了。
*/
//本次查询使用的数据库文件
database.et 文件的下载链接:https://kdocs.cn/l/cjquBVytt7DX
//本次查询使用的报表文件
报表.et文件的下载链接:https://kdocs.cn/l/cs6tGas5E2he

相关推荐

如何开发视频会议App? 视频会议 开发

过去两年多时间里,视频会议成为职场工作乃至社会常态,在各类场景中得到广泛应用。例如企业会议、培训赋能、远程咨询、产品发布、远程面试等。本案例中的视频会议app来自开发者实战,采用YonBuilder移...

GB28181学习笔记6 解析invite命令

一、信令流程1.实时信令流程点播流程:上级平台向下级发送INVITE请求,请求实时视频下级平台回复200OK上级平台回复ACK确认关闭视频,上级向下级平台发送BYE请求,请求关闭视频下级平台回复20...

音视频基础(网络传输): RTMP封包 mp4封装是什么意思

RTMP概念与HTTP(超文本传输协议)同样是一个基于TCP的RealTimeMessagingProtocol(实时消息传输协议)。由AdobeSystems公司为Flash...

python爬取B站视频弹幕分析并制作词云

1.分析网页视频地址:www.bilibili.com/video/BV19E…本身博主同时也是一名up主,虽然已经断更好久了,但是不妨碍我爬取弹幕信息来分析呀。这次我选取的是自己唯一的爆款视...

IMX8基于FlexSPI、PCIe与FPGA的高速通信开发详解

前言...

实时音视频入门学习:开源工程WebRTC的技术原理和使用浅析

本文由ELab技术团队分享,原题“浅谈WebRTC技术原理与应用”,有修订和改动。1、基本介绍...

当YOLOv5遇见OpenVINO yolov5 opencv

...

写了一个下载图片和视频的python小工具

?谁先掌握了AI,谁就掌握了未来的“权杖”。...

用Python爬取B站、腾讯视频、爱奇艺和芒果TV视频弹幕

众所周知,弹幕,即在网络上观看视频时弹出的评论性字幕。不知道大家看视频的时候会不会点开弹幕,于我而言,弹幕是视频内容的良好补充,是一个组织良好的评论序列。通过分析弹幕,我们可以快速洞察广大观众对于视频...

「视频参数信息检测」如何用代码实现Mediainfo的视频检测功能

说明:mediainfo是一款专业的视频参数信息检测工具,软件能够检测视频文件的格式、画面比例、码率、音频流、声道等一系列视频参数信息。若使用代码检测更灵活,扩展性更强,本文介绍使用python+py...

Python爬虫大佬的万字长文总结,requests与selenium操作合集

requests模块前言:通常我们利用Python写一些WEB程序、webAPI部署在服务端,让客户端request,我们作为服务器端response数据;但也可以反主为客利用Python的reque...

RTC业务中的视频编解码引擎构建 视频编解码简介

文/何鸣...

深入剖析ffplay.c(14) 深入剖析案例,促进以案为鉴

#ifCONFIG_AVFILTERstaticintconfigure_filtergraph(AVFilterGraph*graph,constchar*filtergraph,...

一篇文章教会你利用Python网络爬虫抓取百度贴吧评论区图片和视频

【一、项目背景】百度贴吧是全球最大的中文交流平台,你是否跟我一样,有时候看到评论区的图片想下载呢?或者看到一段视频想进行下载呢?今天,小编带大家通过搜索关键字来获取评论区的图片和视频。【二、项目目...

程序员用 Python 爬取抖音高颜值美女

图书+视频+源代码+答疑群,一本书带你入Python作者|星安果本文经授权转载自AirPython(ID:AirPython)目标场景相信大家平时刷抖音短视频的时候,看到颜值高的小姐姐,都有...