|
|
因为帮项目助理做一个日报查漏的小工具用到excel。
整个工具的用途就是：助理有一个日报excel表格，里面有交日报的人的名字，用项目组现有成员的名字取excel表格里面遍历，excel表格里面有没的人则为未交日报。未交日报的人在【未完成者】那里显示。
.版本 2
.支持库 eExcel2000
.子程序 _所在工作表_列表项被选择
.局部变量 工作簿对象, 对象
.局部变量 数据范围, 对象
.局部变量 行对象, 对象
.局部变量 行数, 双精度小数型
.局部变量 列对象, 对象
.局部变量 列数, 双精度小数型
.局部变量 始行, 双精度小数型
.局部变量 始列, 双精度小数型
.局部变量 n, 整数型
.局部变量 列名串, 文本型
.局部变量 列名串s, 文本型, , "0"
所在列.禁止 ＝ 假
.如果真 (日报程序.创建 () ＝ 假)
信息框 (“你的计算机上没有安装EXCEL程序”, 0, , )
返回 ()
.如果真结束
日报工作簿.置程序 (日报程序)
日报工作簿.打开 (显示excel文件路径.标题) ' excel文件所在路径
日报工作簿.表格序号 ＝ 所在工作表.现行选中项
工作簿对象 ＝ 日报工作簿.取表格对象 ()
数据范围 ＝ 工作簿对象.读对象型属性 (“UsedRange”, )
行对象 ＝ 数据范围.读对象型属性 (“Rows”, )
行数 ＝ 行对象.读数值属性 (“Count”, )
列对象 ＝ 数据范围.读对象型属性 (“Columns”, )
列数 ＝ 列对象.读数值属性 (“Count”, )
始行 ＝ 行对象.读数值属性 (“Row”, )
列名串 ＝ “a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z”
列名串s ＝ 分割文本 (列名串, “,”, )
.计次循环首 (列数, n)
日报工作簿.首单元格 ＝ 列名串s [n] ＋ 到文本 (始行)
日报工作簿.尾单元格 ＝ 列名串s [n] ＋ 到文本 (始行)
所在列.加入项目 (日报工作簿.内容, )
.计次循环尾 ()
.版本 2
.支持库 eExcel2000
.支持库 spec
.子程序 _所在列_列表项被选择
.局部变量 工作簿对象, 对象
.局部变量 数据范围, 对象
.局部变量 行对象, 对象
.局部变量 行数, 整数型
.局部变量 始行, 整数型
.局部变量 列名串, 文本型
.局部变量 列名串s, 文本型, , "0"
.局部变量 n, 整数型
.局部变量 i, 整数型
.局部变量 flag, 逻辑型
未完成者.标题 ＝ “”
日报工作簿.表格序号 ＝ 所在工作表.现行选中项
工作簿对象 ＝ 日报工作簿.取表格对象 ()
数据范围 ＝ 工作簿对象.读对象型属性 (“UsedRange”, )
行对象 ＝ 数据范围.读对象型属性 (“Rows”, )
行数 ＝ 行对象.读数值属性 (“Count”, )
始行 ＝ 行对象.读数值属性 (“Row”, )
列名串 ＝ “a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z”
列名串s ＝ 分割文本 (列名串, “,”, )
调试输出 (“项目组成员.取项目数 ():” ＋ 到文本 (项目组成员.取项目数 ()))
.计次循环首 (项目组成员.取项目数 (), i)
调试输出 (“i:” ＋ 到文本 (i))
flag ＝ 真
.计次循环首 (行数, n)
调试输出 (“n:” ＋ 到文本 (n))
日报工作簿.首单元格 ＝ 列名串s [所在列.现行选中项 ＋ 1] ＋ 到文本 (n)
日报工作簿.尾单元格 ＝ 列名串s [所在列.现行选中项 ＋ 1] ＋ 到文本 (n)
.如果真 (项目组成员.取项目文本 (i － 1) ＝ 日报工作簿.内容)
flag ＝ 假
输出调试文本 (日报工作簿.内容)
跳出循环 ()
.如果真结束
.计次循环尾 ()
输出调试文本 (flag)
.如果真 (flag)
未完成者.标题 ＝ 未完成者.标题 ＋ “ ” ＋ 项目组成员.取项目文本 (i － 1)
.如果真结束
.计次循环尾 ()
日报工作簿.释放 ()
日报程序.退出 ()
日报程序.释放 ()
.子程序 __启动窗口_将被销毁
日报工作簿.释放 ()
日报程序.退出 ()
日报程序.释放 () |
|
发表于 2022-9-21 21:24:44