吾爱分享资源网

 找回密码
 立即注册
快捷导航
搜索
查看: 143|回复: 0

易语言制作EXcel 过滤器源码下载

[复制链接]

1668

主题

1790

帖子

1万

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
18390
金币
8276
发表于 2020-12-2 21:19:09 | 显示全部楼层 |阅读模式
请点击此处下载

查看状态:需购买或无权限

您的用户组是:游客

提取密码:5ifx88 
下载次数:0  文件大小:0 Bytes 
下载权限: 不限 以上或 VIP会员   [加入VIP]   [获取金币]  [免费赚金币]



部分代码如下
  
窗口程序集名保 留  保 留备 注
启动窗口程序集   
变量名类 型数组备 注
表格对象对象  
工作簿对象对象  
范围对象对象  

子程序名返回值类型公开备 注
__启动窗口_创建完毕  
窗口位置设置 ()
调用Excel程序 ()
等待设置 ()
数据库文件名 = 取运行目录 ()“\Data.db”
读设置文件到组合框 ()
事件转移 (三列选框, 二列选框)  ' 将在三和四选择框上发生的事件转移到二选择框上
事件转移 (四列选框, 二列选框)
气球提示 ()
子程序名返回值类型公开备 注
窗口位置设置  
高度 = 高度 + 354 - 取用户区高度 ()  ' 让界面适应所有操作系统
移动 (取屏幕宽度 () - 宽度, 取屏幕高度 () - 高度 - 34, , )
_启动窗口.可视 =   ' 加速显示出界面
子程序名返回值类型公开备 注
等待设置  
参数名类 型参考可空数组备 注
显示等待逻辑型   真=显示,假=不显示
连续赋值 (显示等待, 等待签.可视, 版权签.可视)
连续赋值 (取反 (显示等待), 工作外形框.可视, 工作签.可视, 按钮外形框.可视, 按钮签.可视)
子程序名返回值类型公开备 注
调用Excel程序  
如果真 (取反 (Excel程序.创建 ()))  ' 创建EXCEL程序,调用COM对象
消息框 (“调用EXCEL的COM对象失败!可能是没有安装EXCEL的缘故,请检查!”, 16)
__启动窗口_将被销毁 ()
结束 ()
Excel对象 = Excel程序.取程序对象 ()  ' 取出excel.application对象
Excel工作簿.置程序 (Excel程序)  ' 将工作簿关联上EXCEL程序
Excel工作簿.关闭 ()  ' 关闭由置程序产生的BOOK1工作簿
子程序名返回值类型公开备 注
__启动窗口_将被销毁  
如果真 (Excel程序.显示)
如果真 (消息框 (“退出程序时是否同时关闭已打开的Excel程序?”, 36) = 6)
Excel程序.激活窗口 ()
Excel程序.退出 ()

Excel对象.清除 ()  ' 清除对象以释放内存
表格对象.清除 ()
行列对象.清除 ()
选择区域对象.清除 ()
子程序名返回值类型公开备 注
读设置文件到组合框  
变量名类 型静态数组备 注
节名文本型 0
计次整数型  
如果真 (文件是否存在 (数据库文件名))
如果 (打开 (数据库文件名, #数据库, , , , #密文, ))
设置组框.清空 ()
设置组框.加入项目 (“临时设置”, )
计次循环首 (取记录数 (), 计次)
设置组框.加入项目 (读数据库文本值 ( #设置名称, 计次), )
计次循环尾 ()
设置组框.现行选中项 = 0
如果真 (消息框 (“保存设置的文件读取错误,是否重新建立?”, 33) = 1)
写到文件 (数据库文件名, #Data )
打开 (数据库文件名, #数据库, , , , #密文, )



子程序名返回值类型公开备 注
气球提示  
汽球提示框.关联组件 (浏览钮, “打开一个需要过滤的Excel文件!”, -1, , , , )
汽球提示框.关联组件 (设置组框, “可选择不同的设置,如果临时使用请选择‘临时设置’!”, -1, , , , )
汽球提示框.关联组件 (新增设置钮, “新增一个设置项目,保存对此类文件的设置!”, -1, , , , )
汽球提示框.关联组件 (删除设置钮, “删除被选中的设置项目!”, -1, , , , )
汽球提示框.关联组件 (一列号框, “欲对其过滤的列号,例:E 即对‘E’列进行操作!”, -1, , , , )
汽球提示框.关联组件 (一列值框, “过滤对应列时的条件值,满足此条件时再对比其他条件,都满足时,即删除所在的行!”, -1, , , , )
汽球提示框.关联组件 (二列选框, “第二个条件列,与第一条件列成‘并且’的关系,即两个条件同时都满足时,删除所在的行!”, -1, , , , )
汽球提示框.关联组件 (二列号框, “欲对其过滤的列号,例:F 即对‘F’列进行操作!”, -1, , , , )
汽球提示框.关联组件 (二列值框, “过滤对应列时的条件值,满足此条件时再对比其他条件,都满足时,即删除所在的行!”, -1, , , , )
汽球提示框.关联组件 (三列选框, “第三个条件列,与第一、第二条件列成‘并且’的关系,即两个条件同时都满足时,删除所在的行!”, -1, , , , )
汽球提示框.关联组件 (三列号框, “欲对其过滤的列号,例:G 即对‘G’列进行操作!”, -1, , , , )
汽球提示框.关联组件 (三列值框, “过滤对应列时的条件值,满足此条件时再对比其他条件,都满足时,即删除所在的行!”, -1, , , , )
汽球提示框.关联组件 (四列选框, “第四个条件列,与第一、第二、第三条件列成‘并且’的关系,即两个条件同时都满足时,删除所在的行!”, -1, , , , )
汽球提示框.关联组件 (四列号框, “欲对其过滤的列号,例:H 即对‘H’列进行操作!”, -1, , , , )
汽球提示框.关联组件 (四列值框, “过滤对应列时的条件值,满足此条件时再对比其他条件,都满足时,即删除所在的行!”, -1, , , , )
汽球提示框.关联组件 (保存设置钮, “保存新增、删除或修改的设置!”, -1, , , , )
汽球提示框.关联组件 (删除列号框, “过滤后删除不想存在的列!”, -1, , , , )
汽球提示框.关联组件 (添列号钮, “添加要删除的列号到添加框中!即删除此列”, -1, , , , )
汽球提示框.关联组件 (删列号钮, “删除条件框中的条件!即不删除此列”, -1, , , , )
汽球提示框.关联组件 (开始行框, “从表格的第几行开始过滤!”, -1, , , , )
汽球提示框.关联组件 (自保框, “过滤完成后自动保存文件!”, -1, , , , )
汽球提示框.关联组件 (自备框, “过滤前先备份一份文件,文件名以‘过滤备份_’开始!”, -1, , , , )
汽球提示框.关联组件 (后台框, “不显示出Excel程序,如果表格中的记录数量太多,建议启用此功能,这将提高过滤的速度!”, -1, , , , )
汽球提示框.关联组件 (退出框, “过滤完毕后自动退出此程序!”, -1, , , , )
子程序名返回值类型公开备 注
_浏览钮_被单击  
变量名类 型静态数组备 注
使用总行数整数型  
通用对话框.类型 = 0
通用对话框.过滤器 = “*.xls|*.xls”
等待设置 ()
如果真 (取反 (通用对话框.打开 ()))
等待设置 ()
返回 ()
如果真 (重新创建)
调用Excel程序 ()
文件签.标题 = 通用对话框.文件名
如果真 (取反 (Excel工作簿.打开 (文件签.标题)))  ' 打开EXCEL文件
消息框 (“EXCEL文件打开失败,可能是文件损坏,请更换文件再执行!”, 48)
等待设置 ()
返回 ()
Excel程序.显示 =   ' 显示出表格
Excel工作簿.表格序号 = 1  ' 设置表格的工作簿为第一工作簿
读取对象属性 ()
等待设置 ()
子程序名返回值类型公开备 注
读取对象属性  
变量名类 型静态数组备 注
行对象对象  
列对象对象  
使用总列数整数型  
工作簿对象 = Excel工作簿.取工作簿对象 ()
表格对象 = Excel工作簿.取砀穸韵 ()
范围对象 = 表格对象.读对象型属性 (“UsedRange”, )
行对象 = 范围对象.读对象型属性 (“Rows”, )
使用总行数 = 行对象.读数值属性 (“Count”, )
列对象 = 范围对象.读对象型属性 (“Columns”, )
使用总列数 = 列对象.读数值属性 (“Count”, )
进度条.最大位置 = 使用总行数
子程序名返回值类型公开备 注
_开始钮_被单击  
变量名类 型静态数组备 注
列号文本型 0
过滤值文本型 0
如果真 (文件签.标题 = “”)
消息框 (“还没有打开文件,请先打开要过滤的Excel文件!”, 64)
返回 ()
如果真 (检查输入内容 (一列号框, 一列值框, “一”))
返回 ()
加入成员 (列号, 一列号框.内容)
加入成员 (过滤值, 一列值框.内容)
如果真 (二列选框.选中)
如果真 (检查输入内容 (二列号框, 二列值框, “二”))
返回 ()
加入成员 (列号, 二列号框.内容)
加入成员 (过滤值, 二列值框.内容)
如果真 (三列选框.选中)
如果真 (检查输入内容 (三列号框, 三列值框, “三”))
返回 ()
加入成员 (列号, 三列号框.内容)
加入成员 (过滤值, 三列值框.内容)
如果真 (四列选框.选中)
如果真 (检查输入内容 (四列号框, 四列值框, “四”))
返回 ()
加入成员 (列号, 四列号框.内容)
加入成员 (过滤值, 四列值框.内容)
如果真 (进度条.最大位置 > 500 后台框.选中 = )
如果真 (消息框 (“该文件总计有‘”到文本 (进度条.最大位置)“’行记录,建议启用‘后台过滤’功能,这将提高过滤速度!”#换行符#换行符“是否启用‘后台过滤’功能?”, 36) = 6)
后台框.选中 = 真

如果真 (自备框.选中)
复制文件 (文件签.标题, 工作簿对象.读文本属性 (“Path”, )“\过滤备份_” + 工作簿对象.读文本属性 (“Name”, ))
Excel程序.显示 = 取反 (后台框.选中)
消息框 (“程序执行完毕!执行结果如下:”#换行符#换行符“共计过滤行数: ”到文本 (过滤删除行 (列号, 过滤值)) + “ /行!”#换行符“共计过滤列数: ”到文本 (过滤删除列 ()) + “ /列”, 64)
如果真 (自保框.选中)
工作簿对象.方法 (“Save”, )
清除数据 ()
设置组框.现行选中项 = 0
如果 (退出框.选中)
Excel对象.方法 (“Quit”, )
销毁 ()
如果真 (取反 (_启动窗口.Excel程序.显示))
_启动窗口.Excel程序.显示 = 真


子程序名返回值类型公开备 注
_退出钮_被单击  
_启动窗口.销毁 ()
子程序名返回值类型公开备 注
_添列号钮_被单击  
变量名类 型静态数组备 注
计次变量整数型  
如果真 (删除列号框.内容 = “”)
消息框 (“未填入有效列号,请正确填入要删除的列号!”, 48)
删除列号框.获取焦点 ()
返回 ()
如果真 (取代码 (删除列号框.内容, ) < 65 取代码 (删除列号框.内容, ) > 90)
消息框 (“输入的列号无效,请对应Excel文件中相应的列输入!”, 48)
删除列号框.获取焦点 ()
删除列号框.被选择字符数 = -1
返回 ()
计次循环首 (取数组成员数 (删除列号), 计次变量)
如果真 (删除列号框.内容 = 删除列号 [计次变量])
消息框 (“此列号已在列表中,不要重复添加!”, 48)
删除列号框.获取焦点 ()
删除列号框.被选择字符数 = -1
返回 ()

计次循环尾 ()
删除列表框.加入项目 (“欲删除的列号: ” + 删除列号框.内容, )
删除列排序 ()
删除列号框.内容 = “”
删除列号框.获取焦点 ()
子程序名返回值类型公开备 注
删除列排序  
变量名类 型静态数组备 注
计次整数型  
项目文本文本型  
清除数组 (删除列号)
计次循环首 (删除列表框.取项目数 (), 计次)
项目文本 = 删除列表框.取项目文本 (计次 - 1)
加入成员 (删除列号, 取文本右边 (项目文本, 取文本长度 (项目文本) - 15))
计次循环尾 ()
子程序名返回值类型公开备 注
_删列号钮_被单击  
如果真 (删除列表框.现行选中项 < 0)
消息框 (“未选择要放弃删除的列号,请重新选择!”, 64)
返回 ()
删除列表框.删除项目 (删除列表框.现行选中项)
删除列排序 ()
子程序名返回值类型公开备 注
清除数据  
参数名类 型参考可空数组备 注
清除打开的文件逻辑型   真=清除,假=不清除
进度条.位置 = 0
连续赋值 (假, 二列选框.选中, 三列选框.选中, 四列选框.选中, 自保框.选中, 自备框.选中, 后台框.选中, 退出框.选中)
连续赋值 (“”, 一列号框.内容, 一列值框.内容, 二列号框.内容, 二列值框.内容, 三列号框.内容, 三列值框.内容, 四列号框.内容, 四列值框.内容, 删除列号框.内容)
连续赋值 ( #浅灰, 二列号框.背景颜色, 二列值框.背景颜色, 三列号框.背景颜色, 三列值框.背景颜色, 四列号框.背景颜色, 四列值框.背景颜色)
删除列表框.清空 ()
如果真 (清除打开的文件)
文件签.标题 = “”
开始行框.内容 = “1”
清除数组 (删除列号)
子程序名返回值类型公开备 注
_设置组框_列表项被选择  
变量名类 型静态数组备 注
计次整数型  
本项记录号整数型  
清除数据 ()
如果真 (设置组框.现行选中项 = 0)
返回 ()
本项记录号 = 查询记录 (设置组框.内容)
一列号框.内容 = 读数据库文本值 ( #第一过滤列号, 本项记录号)
一列值框.内容 = 读数据库文本值 ( #第一过滤值, 本项记录号)
二列选框.选中 = 读数据库逻辑值 ( #第二过滤, 本项记录号)
如果真 (二列选框.选中)
设置选择框 (二列选框)
二列号框.内容 = 读数据库文本值 ( #第二过滤列号, 本项记录号)
二列值框.内容 = 读数据库文本值 ( #第二过滤值, 本项记录号)
三列选框.选中 = 读数据库逻辑值 ( #第三过滤, 本项记录号)
如果真 (三列选框.选中)
设置选择框 (三列选框)
三列号框.内容 = 读数据库文本值 ( #第三过滤列号, 本项记录号)
三列值框.内容 = 读数据库文本值 ( #第三过滤值, 本项记录号)
四列选框.选中 = 读数据库逻辑值 ( #第四过滤, 本项记录号)
如果真 (四列选框.选中)
设置选择框 (四列选框)
四列号框.内容 = 读数据库文本值 ( #第四过滤列号, 本项记录号)
四列值框.内容 = 读数据库文本值 ( #第四过滤值, 本项记录号)
开始行框.内容 = 读数据库文本值 ( #开始行数, 本项记录号)
如果真 (开始行框.内容 = “”)
开始行框.内容 = “1”
自保框.选中 = 读数据库逻辑值 ( #自动保存, 本项记录号)
自备框.选中 = 读数据库逻辑值 ( #自动备份, 本项记录号)
后台框.选中 = 读数据库逻辑值 ( #后台过滤, 本项记录号)
退出框.选中 = 读数据库逻辑值 ( #完成退出, 本项记录号)
删除列号 = 分割文本 (读数据库文本值 ( #删除列号, 本项记录号), “$”, )
计次循环首 (取数组成员数 (删除列号), 计次)
删除列表框.加入项目 (“欲删除第 ”到大写 (删除列号 [计次])“ 列”, )
计次循环尾 ()
子程序名返回值类型公开备 注
_删除设置钮_被单击  
如果真 (设置组框.现行选中项 = 0)
消息框 ( #左引号“临时设置”#右引号“是为临时使用时设置的,不可删除!”, 64)
返回 ()
如果真 (消息框 (“确定要删除”#左引号 + 设置组框.内容 + #右引号“设置吗?”, 33) = 2)
返回 ()
加入成员 (删除设置, 设置组框.内容)
设置组框.删除项目 (设置组框.现行选中项)
设置组框.现行选中项 = 0
清除数据 ()
子程序名返回值类型公开备 注
_新增设置钮_被单击  
变量名类 型静态数组备 注
新增配置名文本型  
计次整数型  
如果真 (输入框 (“请输入新增设置的项目名:”, “子涵工作室!”, , 新增配置名, ))
计次循环首 (设置组框.取项目数 (), 计次)
如果真 (新增配置名 = 设置组框.取项目文本 (计次 - 1))
消息框 (“新增设置的项目名和已有名称重复,请重新输入!”, 48)
_新增设置钮_被单击 ()
返回 ()

计次循环尾 ()
加入成员 (新增设置, 新增配置名)
设置组框.现行选中项 = 设置组框.加入项目 (新增配置名, )
清除数据 ()

子程序名返回值类型公开备 注
_保存设置钮_被单击  
变量名类 型静态数组备 注
计次整数型  
新记录逻辑型 真为已经加了的新记录,假
如果真 (取反 (文件是否存在 (数据库文件名)))
写到文件 (数据库文件名, #Data )
如果真 (取反 (是否已打开 (数据库文件名)))
打开 (数据库文件名, #数据库, , , , #密文, )
计次循环首 (取数组成员数 (删除设置), 计次)
如果真 (查询记录 (删除设置 [计次]) ≠ -1)
删除 ()

计次循环尾 ()
如果真 (取数组成员数 (删除设置) > 0)
彻底删除 ()
计次循环首 (取数组成员数 (新增设置), 计次)
如果 (新增设置 [计次] = 设置组框.内容)
加记录 (新增设置 [计次], 一列号框.内容, 一列值框.内容, 二列选框.选中, 二列号框.内容, 二列值框.内容, 三列选框.选中, 三列号框.内容, 三列值框.内容, 四列选框.选中, 四列号框.内容, 四列值框.内容, 开始行框.内容, 自保框.选中, 自备框.选中, 后台框.选中, 退出框.选中, 格式化删除文本 ())
新记录 = 真
加记录 (新增设置 [计次])

计次循环尾 ()
清除数组 (新增设置)
如果真 (设置组框.现行选中项 > 0 取反 (新记录))
如果真 (查询记录 (设置组框.内容) ≠ -1)
修改 (设置组框.内容, 一列号框.内容, 一列值框.内容, 二列选框.选中, 二列号框.内容, 二列值框.内容, 三列选框.选中, 三列号框.内容, 三列值框.内容, 四列选框.选中, 四列号框.内容, 四列值框.内容, 开始行框.内容, 自保框.选中, 自备框.选中, 后台框.选中, 退出框.选中, 格式化删除文本 ())


子程序名返回值类型公开备 注
_二列选框_被单击  
变量名类 型静态数组备 注
事件选择框选择框  
事件选择框 = 取事件组件 ()
设置选择框 (事件选择框)
子程序名返回值类型公开备 注
设置选择框  
参数名类 型参考可空数组备 注
选择框选择框   
变量名类 型静态数组备 注
号框编辑框  
值框编辑框  
号框 = 多项选择 (到数值 (选择框.标记), 二列号框, 三列号框, 四列号框)
值框 = 多项选择 (到数值 (选择框.标记), 二列值框, 三列值框, 四列值框)
连续赋值 (取反 (选择框.选中), 号框.禁止, 值框.禁止)
连续赋值 (“”, 号框.内容, 值框.内容)
连续赋值 (选择 (选择框.选中, #白色, #浅灰 ), 号框.背景颜色, 值框.背景颜色)
号框.获取焦点 ()
子程序名返回值类型公开备 注
_Excel程序_工作簿即将关闭  
参数名类 型参考可空数组备 注
工作簿对象对象   
取消关闭逻辑型  
如果 (Excel程序.标题 ≠ “Microsoft Excel - Book1”)
重新创建 = 真
清除数据 ()
设置组框.现行选中项 = 0
Excel程序.退出 ()
重新创建 = 假

子程序名返回值类型公开备 注
_选择夹_子夹被改变  
如果真 (选择夹.现行子夹 = 2)
_启动窗口.汽球提示框.弹出提示框 (取鼠标水平位置 (), 取鼠标垂直位置 (),


i支持库列表   支持库注释   
eExcel2000EXCEL2000支持库
iext5扩展界面支持库五





上一篇:Esql数据库服务易语言源码下载
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

GMT+8, 2021-3-5 15:53 , Processed in 1.898019 second(s), 44 queries .
Powered by Discuz! X3.2 © 2001-2017 Comsenz Inc.
快速回复 返回顶部 返回列表