ＳＯ ＩＷＡＲＥ ＤＥＶＥＬ０ＰＭＥＮＴ ＡＮＤ Ｄ￣ＥＳＩＧｑ ３Ｎ 软件开发与设计 利用ＶＢＡ编程实现生产日报表的自动生成 杨廷福，王会梅 （中原油田钻井工程技术研究院技术信息研究所，河南濮阳４５７００１） 摘要：利用ＶＢＡ语句编程，实现固定报表合并、动态报表合并、删除重复行空白行、打印报表上传情况及ＶＢＡ 与报表分离，结合Ｗｉｎｄｏｗｓ任务计划程序，分步、分模块直到实现生产日报表的定时自动生成。 关键词：ＶＢＡ编程；报表合并；任务计划程序；自动生成 Ａｕｔｏｍａｔｉｃ Ｇｅｎｅｒａｔｉｏｎ ｏｆ Ａｃｈｉｅｖｅ Ｄａｉｌｙ Ｐｒｏｄｕｃｔｉｏｎ Ｒｅｐｏｒｔｓ ｗｉｔｈ ＶＢＡ Ｐｒｏｇｒａｍｍｉｎｇ ＹＡＮＧ Ｔｉｎｇ－ｆｕ，ＷＡＮＧ Ｈｕｉ－ｍｅｉ （ＩｎｓｔｉｔｕｔｅｆｏｒＴｅｃｈｎｏｌｏｇｙｉｎｆｏｒｍａｉｔｏｎｏｆｔｈｅＤｒｉｌｌｉｎｇＴｅｃｈｎｏｌｏｇｙＲｅｓｅａｒｃｈＩｎｓｔｉｔｕｔｅｏｆＺｈｏｎｇＹｕａｎＯｉｌｆｉｅｌｄ，Ｈｅ＇ｎａｎＰｕｙａｎｇ４５７００１，Ｃｈｉｎａ） Ａｂｓｔｒａｃｔ：Ｆｉｘｅｄ ｒｅｐｏｒｔ ａｍａｌｇａｍａｔｉｏｎ ，ｄｙｎａｍｉｃ ｒｅｐｏｒｔ ａｍａｌｇａｍａｔｉｏｎ，ｄｅｌｅｔｉｎｇ ｒｅｐｅａｔｅｄ ａｎｄ ｂｌａｎｋ ｌｉｎｅ ｐｒｉｎｔｉｎｇ ｒｅｐｏｒｔ ｕｐｌｏａｄｉｎｇ ，ｓｔａｔｕｓ ａｎｄ ｓｅｐａｒａｔｉｏｎ ｏｆ ＶＢＡ ａｎｄ ｒｅｐｏｒｔ ａｒｅ ａｃｈｉｅｖｅｄ ｗｉｔｈ ＶＢＡ ｌａｎｇｕａｇｅ ｐｒｏｇｒａｍｍｉｎｇ．Ｃｏｍｂｉｎｅｄ ｗｉｔｈ Ｗｉｎｄｏｗｓ ｔａｓｋ ｐｌａｎ ｐｒｏｇｒａｍ，ｔａｋｉｎｇ ｓｔｅｐｓ ａｎｄ ｍａｋｉｎｇ ｍｏｄｕｌｅ ｂｌｏｃｋｓ ａｒｅ ｃａｒｒｉｅｄ ｏｕｔ ｕｎｔｉｌ ｔｈｅ ｄａｉｌｙ ｐｒｏｄｕｃｔｉｏｎ ｒｅｐｏｒｔｓ ａｒｅ ｔｉｍｉｎｇ ａｕｔｏｍａｔｉｃｌｙ ｇｅｎｅｒａｔｅｄ． Ｋｅｙ ｗｏｒｄｓ：ＶＢＡ ｐｒｏｇｒａｍｍｉｎｇ；ｒｅｐｏｒｔ ａｍａｌｇａｍａｔｉｏｎ；ｔａｓｋ ｌａｎ ｐｒｐｏｇｒａｍ；ａｕｔｏｍａｔｉｃ ｇｅｎｅｒａｔｉｏｎ ｌ 引言 一２１．ｘｌｓ，一公司的命名为ｌｇｓ２０１２—３—２１．ｘｌｓ，同理命名其它三个 公司的。在钻井院当天１３报完成复制粘贴后即将当前文件最 小化但不退出，然后打开下一个分公司当天报表，直到完成５ 个分公司的当天报表的合并，当前的Ｅｘｃｅｌ工作簿中包含了５ 个分公司当天的报表。 ＤｉｍｗｂＡｓＷｏｒｋｂｏｏｋ 家水平井技术公司分别由钻井院水平井公司、一公司 水平井公司、二公司水平井公司、三公司水平井公司和四公 司水平井公司等５家分公司组成，而每个分公司又有若干个 水平井服务队组成。水平井技术公司指定专人每天固定时间 把各个分公司通过ＦＴＰ方式上传到服务器中当天的Ｅｘｃｅｌ生产 报表（格式均一样），复制粘贴合并到一个汇总表中，然后再 把汇总表存放到汇总表文件夹下所属当月的子文件夹中，以 定义ｗｂ为工作簿变量 Ａｐｐｌｉｃａｔｉｏｎ．ＷｉｎｄｏｗＳｔａｔｅ＝ｘｌＭｉｎｉｍｉｚｅｄ 当天的日期命名，然后再以ＦｒｒＰ的方式提供给水平井技术公 司的领导、技术人员共享使用。管理员每天要逐一进入到每 个分公司当月子文件中打开Ｅｘｃｅｌ文档进行复制粘贴，这是一 将当前的汇总表（空白的）窗口最小化 Ｓｅｔ ｗｂ＝Ｗｏｒｋｂｏｏｋｓ，．Ｏｐｅｎ Ｃ ｉ：＼定向井报表＼钻井院水平井 日报表￣２０１２－一３＼ｚ＿ｉｙ２０１２－．－３－．－２１．ｘｌｓ”） 打开钻井院２０１２年３月２１日的报表并赋给变量ｗｂ Ｒａｎｇｅ（”ｂ６：ａａｌ４”）．Ｓｅｌｅｃｔ 种重复、琐碎（将来可能增加到７家分公司）、容易出错（比 如粘贴位置）的工作，而且当各个分公司的定向井服务队没 有工作量时，当天的汇总表中会出现很多空白行，影响报表 的美观及浏览效率。 通过Ｅｘｃｅｌ ＶＢＡ编程，则能有效地解决上述问题，而且 选择单元格区间 Ｓｅｌｅｃｔｉｏｎ．Ｃｏｐｙ 对选择的内容进行复制 Ａｐｐｌｉｃａｔｉｏｎ．ＷｉｎｄｏｗＳｔａｔｅ＝ｘｌＭｉｎｉｍｉｚｅｄ 结合Ｗｉｎｄｏｗｓ的任务计划程序，实现了水平井生产日报表的 自动、高效、准确的生成。 当前工作表：ｚｊｙ２０１２—３－２１．ｘｌｓ最小化 Ｗｉｎｄｏｗｓ Ｃ中原油田定向井水平井技术公司生产情况日报 表１．ｘｌｓ”）．Ａｃｔｉｖａｔｅ ２设计开发过程 ２．１思路 将汇总表激活为当前工作表 Ｒａｎｇｅ Ｃ Ｂ６”）．Ｓｅｌｅｃｔ 选择粘贴的位置 设计思路如图１所示。 ＡｃｔｉｖｅＳｈｅｅｔ．Ｐａｓｔｅ 完成工作表粘贴 Ａｐｐｌｉｃａｔｉｏｎ．ＷｉｎｄｏｗＳｔａｔｅ＝ｘｌＭｉｎｉｍｉｚｅｄ Ｉ固定日期报表合并卜÷｝动态日期报表合并卜—刮删除重复内容 Ｌ———————————————————————． — ． ．．～ｒ—————————————］‘－－－－－－－－－－－－－－－—－—－—－．－－－．－．—－—－——－－．－－—－－－．－—－—－—－－一ｒ—————————————］ｒ——————————］ ｌ删除空白行及排序卜÷ｌ打印报表上传情况卜 ｌ ＶＢＡ源程序分Ｉ 图１设计思路 将包含了钻井院当天报表内容的汇总表最小化 Ｓｅｔ ｗｂ＝Ｎｏｔｈｉｎｇ 将变量清零 Ｓｅｔ ｗｂ＝Ｗｏｒｋｂｏｏｋｓ．Ｏｐｅｎ（”ｉＡ定向井报表、一公司定向 ２．２固定日期报表的合并 作者简介：杨廷福（１９６６一），男，工程师，研究方向：编程、 网络维护及应用；王会梅（１９６７一），女，助理工程师，研究 分别进入到钻井院、一公司等５个分公司２０１２年３月份 文件夹下，打开当天（２０１２年３月２１日）的报表，为保证同 时打开的文件不能同名，钻井院当天的日报命名为ｚｊｙ２０１２—３— 方向：图书管理。 收稿日期：２０１２—０８—１０ ｜＿ 电脑编程技巧与维护 井水平井生产日报表￣２０１２—３＼１ｇｓ２０１２—３—２１．ｘｌｓ”） 打开一公司当天的报表：ｌｇｓ２０１２—３—２１．ｘｌｓ并赋给变量ｗｂ 一一 完成一公司当天的报表复制粘贴、最小化，同理 完成其他３个分公司的当天的报表复制粘贴，需要注意的： 一是复制的单元格区间因各分公司包含的定向队多少不同而 不同，二是在汇总表上粘贴的位置是不同的：既不能重复粘 贴也不能漏粘贴，粘贴内容要一一衔接好。 ＡｃｔｉｖｅＳｈｅｅｔ．Ｒａｎｇｅ（”ｂ２”）．Ｓｅｌｅｃｔ ＡｃｔｉｖｅＷｏｒｋｂｏｏｋ．ＳａｖｅＡｓ”ｉ：＼定向井报表＼汇总表￣２０１２— ３＼２０１２－３－２１．ｘｌｓ” 将包含了５个分公司当天报表的汇总表以文件名：２０１２一 ３－２１．ｘｌｓ另存在汇总表的２０１２—３子文件夹下。 Ｗｏｒｋｂｏｏｋｓ．Ｃｌｏｓｅ 所有工作簿关闭 ２．３当前日期的提取 通过工作簿打开事件，来提取当前日期，并获得当前日 期为星期几，代码如下： Ｐｒｉｖａｔｅ Ｓｕｂ ＷｏｒｋｂｏｏｋＯｐｅｎ ０ 通过工作簿打开事件实现日期的提取 Ｄｉｍ ｔｏｄａｙ Ａｓ Ｄａｔｅ，ＷｅｅｋｄａｙＣ Ａｓ Ｉｎｔｅｇｅｒ，ＷｅｅｋｄａｙＳ Ａｓ Ｓｔｒｉｎｇ 定义变量 ｔｏｄａｙ＝Ｄａｔｅ ＷｅｅｋｄａｙＣ＝Ｗｅｅｋｄａｙ（ｔｏｄａｙ，ｖｂＭｏｎｄａｙ） ＷｅｅｋｄａｙＳ＝ＷｅｅｋｄａｙＮａｍｅ（ＷｅｅｋｄａｙＣ，Ｆａｌｓｅ，ｖｂＭｏｎｄａｙ） 上述语句为变量赋值 ＭｓｇＢｏｘ”当前日期Ｉｆ１＆Ｄａｔｅ＆”，当前时间：”＆Ｔｉｍｅ 在当前屏幕显示当前日期及当前时间对话框 Ｒａｎｇｅ（”ｃ２”）＝Ｙｅａｒ（Ｄａｔｅ）＆”年” Ｒａｎｇｅ（”ｄ２”）＝Ｍｏｎｔｈ（Ｄａｔｅ）＆”月”＆Ｄａｙ（Ｄａｔｅ） ＆”日” Ｒａｎｇｅ Ｃ ｅ２”、＝ＷｅｅｋｄａｙＳ 在汇总表相关位置填入日期及星期几 Ｅｎｄ Ｓｕｂ 如图２所示生成水平井生产情况日报表。 ¨ ４粕ｇ静 ＊ 虢 ＊ 张｜ ∞∞ ｇ强％懒 ｝Ｉ【 ｈ ． ｝Ｉ ｔ ㈣ 图２水平井生产情况日报表（空白表） ２．４动态日期报表的合并 为实现生产日报表的合并，在用户端５个分公司必须将 当天的生产报表上传到ＦＴＰ服务器的指定目录下、相关单位、 对应月份的子文件夹下，并且以分公司名称前三字汉字拼音 的声母加上当日日期组成。比如钻井院分公司２０１２年３月２３ 日的报表上传的路径为：钻井院水平井生产日报表ｋ２０１２— ３ ｙ２０１２—３—２３．ｘｌｓ；一公司２０１２年３月２３日的报表上传的路 径为：一公司定向井水平井生产日报表Ｌ２０１２—３＼１ｇｓ２０１２—３— ２３．ｘｌｓ；其他３个公司依此类推。在服务器端，则必须分别到所 属５个分公司当月子文件夹中打开当天的Ｅｘｃｅｌ文件，进行复 制粘贴。要实现动态日期报表的合并，服务器端就必须能够 打开含有动态路径及动态文件名（均是日期的函数）的Ｅｘｃｅｌ 文档，自然地想到利用Ｆｏｒｍａｔ函数，代码如下： ＤｉｍｗｂＡｓＷｏｒｋｂｏｏｋ Ｏｎ Ｅｒｒｏｒ Ｒｅｓｕｍｅ Ｎｅｘｔ 错误忽略语句 Ｄｉｍ ｄｔ Ａｓ Ｓｔｒｉｎｇ，ｄｔｌ Ａｓ Ｓｔｒｉｎｇ Ｄｉｍ ｍｙｐａｔｈ Ａｓ Ｓｔｒｉｎｇ，ｍｙｗｂ Ａｓ Ｓｔｒｉｎｇ 定义４个字符串变量 ｄｔ＝Ｆｏｒｍａｔ（Ｄａｔｅ，”ｙｙｙｙ－ｍ”） ｄｔｌ＝Ｆｏｒｍａｔ（Ｄａｔｅ，”ＹＹＹＹ—ｍ—ｄ”） ｍｙｐａｔｈ：”＼Ｉｔ＆ｄｔ＆”、’’ ｍｙｗｂ＝ｄｔｌ＆”．ｘｌｓ” 分别为４个变量赋值 Ａｐｐｌｉｃａｔｉｏｎ．ＷｉｎｄｏｗＳｔａｔｅ＝ｘｌＭｉｎｉｍｉｚｅｄ Ｓｅｔ ｗｂ＝Ｗｏｒｋｂｏｏｋｓ．Ｏｐｅｎ Ｃ ｉ：＼定向井报表＼钻井院水平 井日报表”＆ｍｙｐａｔｈ＆”ｚｊｙ”＆ｍｙｗｂ） Ｒａｎｇｅ Ｃ ｂ６：ａａｌ４”）．Ｓｅｌｅｃｔ Ｓｅｌｅｃｔｉｏｎ．Ｃｏｐｙ Ａｐｐｌｉｃａｔｉｏｎ．ＷｉｎｄｏｗＳｔａｔｅ＝ｘｌＭｉｎｉｍｉｚｅｄ Ｗｉｎｄｏｗｓ Ｃ中原油田定向井水平井技术公司生产情况日报 表４．ｘｌｓ”）．Ａｃｔｉｖａｔｅ Ｒａｎｇｅ Ｃ Ｂ６”）．Ｓｅｌｅｃｔ ＡｃｔｉｖｅＳｈｅｅｔ．Ｐａｓｔｅ Ａｐｐｌｉｃａｔｉｏｎ．ＷｉｎｄｏｗＳｔａｔｅ＝ｘｌＭｉｎｉｍｉｚｅｄ Ｓｅｔ ｗｂ＝Ｎｏｔｈｉｎｇ Ｓｅｔ ｗｂ＝Ｗｏｒｋｂｏｏｋｓ．Ｏｐｅｎ Ｃ ｉ：＼定向井报表、一公司定向 井水平井生产日报表”＆ｍｙｐａｔｈ＆”ｌｇｓ”＆ｍｙｗｂ） 以同样的方式完成其他３家分公司的报表 复制粘贴 ＡｃｔｉｖｅＳｈｅｅｔ．Ｒａｎｇｅ Ｃ ｂ２”）．Ｓｅｌｅｃｔ ＡｃｔｉｖｅＷｏｒｋｂｏｏｋ．ＳａｖｅＡｓ”ｉ：＼定向井报表＼汇总表”＆ ｍｙｐａｔｈ＆ｍｙｗｂ 将５个分公司合并后的报表以当前动态的文件名存放在： 汇总表＼动态月份的路径中。 Ｗｏｒｋｂｏｏｋｓ．Ｃｌｏｓｅ ２．５解决重复行问题 复制粘贴时Ｅｘｃｅｌ重复行（重复内容）的出现的根源在于 当一个Ｅｘｃｅｌ文档不存在时，系统会把上一个Ｅｘｃｅｌ文档粘贴 在不存在文档应该粘贴的位置，当有ｎ家分公司没有上传报 表时，系统会将前一家的数据重复粘贴ｎ次。以下语句解决 此问题： Ｄｉｍ ｄ Ａｓ Ｏｂｊｅｃｔ Ｄｉｍ ａｎ＂，ａｌＴｎ Ｄｉｍ ｋ＆．ｔｅｍｐ 在程序开头位置加上新定义的５个变量 Ａｐｐｌｉｃａｔｉｏｎ．ＳｃｒｅｅｎＵｐｄａｔｉｎｇ＝Ｆａｌｓｅ 在５家分公司报表完成复制粘贴后加入这些语句 ａｒｒ＝ＡｃｔｉｖｅＳｈｅｅｔ．ＵｓｅｄＲａｎｇｅ．Ｖａｌｕｅ Ｓｅｔ ｄ＝ＣｒｅａｔｅＯｂｊｅｃｔ Ｃ ｓｃｒｉｐｔｉｎｇ．ｄｉｃｔｉｏｎａｒｙ”１ Ｆｏｒ ｋ＝２ＴｏＵＢｏｕｎｄ（ａｒｔ） ｌ ｔｅｍｐ＝Ｊｏｉｎ（Ａｐｐｌｉｃａｔｉｏｎ．Ｉｎｄｅｘ（ａｌｌ７，ｋ），” Ｔｆ ｄ．Ｅｘｉｓｔｓ（ｔｅｍｐ）Ｔｈｅｎ ｄ（ｔｅｍｐ＆ｋ）＝”１．．＆ｋ Ｅｌｓｅ Ｓ０ ｒＷＡＲＥ ＤＥＶＥＬ０ＰＭＥＮＴ ＡＮＤ ＤＥＳＩＧＮ ｄ（ｔｅｍｐ）＝… ＥｎｄＩｆ Ｎｅｘｔ ｋ ａｒｍ＝Ｆｉｌｔｅｒ（ｄ．Ｉｔｅｍｓ，” Ｆｏｒ ｋ＝ＵＢｏｕｎｄ（ａｒｍ）Ｔｏ ０ Ｓｔｅｐ一１ Ｒｏｗｓ（Ｒｅｐｌａｃｅ（ａｒｍ（ｋ），” ，…’））．Ｄｅｌｅｔｅ Ｎｅｘｔ ｋ Ａｐｐｌｉｃａｔｉｏｎ．ＳｃｒｅｅｎＵｐｄａｔｉｎｇ＝Ｔｒｕｅ ２．６删除空白行及排序 由于各分公司的定向队不可能总是有工作量，或者整个 分公司某日就没有工作量，甚至几个分公司均没有工作量， 反映在汇总表上则是有很多空白行，既影响美观也影响浏览 效率，为此，用以下语句： Ｄｉｍ ｘｈ Ａｓ Ｉｎｔｅｇｅｒ 在程序开头加入此语句 Ｒａｎｇｅ（”ｄ６：ｄ３５”）．ＳｐｅｃｉａｌＣｅｌｌｓ（ｘｌＣｅｌｌＴｙｐｅＢｌａｎｋｓ）．Ｅｎ— ｔｉｒｅＲＯＷ．Ｄｅｌｅｔｅ 在上述２．５完成重复内容删除后，删除ｄ６：ｄ３５实质数据区 内空白单元格所在行 Ｒａｎｇｅ Ｃ ａ６：ａ３５”）＝”” 序号所在列清除为空白 Ｆｏｒ ｘｈ＝６ Ｔｏ Ｒａｎｇｅ Ｃ ｄ６５５３６”） Ｅｎｄ（ｘｌＵｐ）．Ｒｏｗ Ｃｅｌｌｓ（ｘｈ，１）＝ｘｈ一５ Ｎｅｘｔ ｘｈ 实现报表合并且清除重复内容、清除空白行后的排序 ２．７在汇总表中显示报表递送情况 为了在汇总表中合适位置显示当日哪些分公司传递了报 表，哪些分公司没有上传报表，用以下语句： Ｄｉｍ ｗｂｓ Ａｓ Ｉｎｔｅｇｅｒ，ＸＸＸ Ａｓ Ｉｎｔｅｇｅｒ 在程序开始位置定义两个整型变量 在上述２．６实现排序后，加入以下语句 ＸＸＸ＝Ｒａｎｇｅ（”ｄ６５５３６”）．Ｅｎｄ（ｘｌＵｐ）．Ｒｏｗ＋２ ＸＸＸ为ｄ列数据区下第２个空白单元格所在行数 Ｆｏｒ ｗｂｓ＝ｌ Ｔｏ Ｗｏｒｋｂｏｏｋｓ．Ｃｏｕｎｔ Ｉｆ Ｗｏｒｋｂｏｏｋｓ（ｗｂｓ）．Ｎａｍｅ＝”ｚｊｙ”＆ｍｙｗｂ Ｔｈｅｎ Ｃｅｌｌｓ（ＸＸＸ，”ｂ”）＝”钻井院”＆Ｄａｔｅ＆”已上报” Ｅｌｓｅｌｆ Ｗｏｒｋｂｏｏｋｓ（ｗｂｓ）．Ｎａｍｅ＝”ｌｇｓ”＆ｍｙｗｂ Ｔｈｅｎ Ｃｅｌｌｓ（ｘｘｘ，”ｅ”）＝”一公司”＆Ｄａｔｅ＆”已上报” Ｅｌｓｅｌｆ Ｗｏｒｋｂｏｏｋｓ（ｗｂｓ）．Ｎａｍｅ＝”２ｇｓ”＆ｍｙｗｂ Ｔｈｅｎ Ｃｅｌｌｓ（ｘｘｘ，”ｈ”）＝”二公司”＆Ｄａｔｅ＆”已上报” Ｅｌｓｅｌｆ Ｗｏｒｋｂｏｏｋｓ（ｗｂｓ）．Ｎａｍｅ＝”３ｇｓ”＆ｍｙｗｂ Ｔｈｅｎ Ｃｅｌｌｓ（ＸＸＸ，”ｌ”）＝”三公司”＆Ｄａｔｅ＆”已上报” Ｅｌｓｅｌｆ Ｗｏｒｋｂｏｏｋｓ（ｗｂｓ）．Ｎａｍｅ：”４ｇｓ”＆ｍｙｗｂ Ｔｈｅｎ Ｃｅｌｌｓ（ｘｘｘ，”Ｐ”）＝”四公司”＆Ｄａｔｅ＆”已上报” Ｅｌｓｅ 增加此语句让程序更严谨 Ｃｅｌｌｓ（ＸＸＸ，”ｂ”）＝”钻井院”＆Ｄａｔｅ＆”未上报” Ｃｅｌｌｓ（ｘｘｘ，”ｅ”）＝”一公司”＆Ｄａｔｅ＆”未上报” Ｃｅｌｌｓ（ＸＸＸ，”ｈ”）＝”二公司”＆Ｄａｔｅ＆”未上报” Ｃｅｌｌｓ（ｘｘｘ，”ｌ”）＝”三公司”＆Ｄａｔｅ＆”未上报” Ｃｅｉｌｓ（ｘｘｘ，”Ｐ”）＝”四公司”＆Ｄａｔｅ＆”未上报” ＥｎｄＩｆ Ｎｅｘｔｗｂｓ ２．８实现ＶＢＡ源程序与汇总表（纯数据）的分离 为了完全及规范，提供给用户使用的应该是不包含ＶＢＡ 源程序的纯数据报表。只要将经过报表合并等系列处理过的 软件开发与设计 文档另存为纯数据格式的Ｅｘｃｅｌ文档，而原文档仍然是包含有 ＶＢＡ程序的只有空白表格的Ｅｘｃｅｌ文档，供下次继续使用。 Ａｐｐｌｉｃａｔｉｏｎ．ＤｉｓｐｌａｙＡｌｅｒｔｓ＝Ｆａｌｓｅ ＡｃｔｉｖｅＷｏｒｋｂｏｏｋ．ＳａｖｅＡｓ”ｉ：＼定向井报表＼汇总表”＆ ｍｙｐａｔｈ＆ｍｙｗｂ．ＦｉｌｅＦｏｒｍａｔ：＝ｘｌＯｐｅｎＸＭＬＷｏｒｋｂｏｏｋ 另存为纯数据格式的Ｅｘｃｅｌ文档 Ａｐｐｌｉｃａｔｉｏｎ．ＤｉｓｐｌａｙＡｌｅｒｔｓ＝Ｔｒｕｅ ３ 实现水平井生产日报表的定时自动生成 利用Ｅｘｃｅｌ工作簿打开事件及Ｗｉｎｄｏｗｓ的任务计划程序可 实现生产日报表的定时自动生成功能。 ３．１水平井生产日报表的合并 要完成生产日报表合并的顺利执行，程序运行中间不能 产生对话框，比如要去掉这样的语句：ＭｓｇＢｏｘ”当前日期：” ＆Ｄａｔｅ＆”，当前时间：”＆Ｔｉｍｅ对于此问题只要在程序中该 语句前加上西文单引号（’）即可；然后把上面讨论的报表合 并程序名，比如ａａ ０（此前放在一模块中）输入到在上文２． ３中讨论的工作簿打开事件中动态日期提取语句的后面，也就 是程序结束语句ｅｎｄ之前，在程序完全调试好后，这样在工作 簿打开时，就会自动进行报表的合并。 ３．２实现生产日报表的定时自动生成 ＶＢＡ本身是没有自动打开、执行功能的，利用Ｗｉｎｄｏｗｓ 的任务计划程序则可以。在Ｗｉｎ７中，启动任务计划程序，在 新建任务的常规对话框的“名称”位置输入“水平井生产日 报表自动生成”，在新建触发器对话框中选择“每天”，开始 时间为２０１２年３月２１日１０：００：００，在新建操作对话框中， “操作”位置选“启动程序”，在“程序或脚本”位置选择 “定向井水平井生产日报表合并．ｘｌｓ”Ｅｘｃｅｌ文档，确定后输入 有管理员权限的的用户的密码即可。这样，系统每天１Ｏ点就 会自动打开“定向井水平井生产日报表合并．ｘ 文档，从而 自动进行报表生成。 ４ 结语 以上利用ＶＢＡ语句编程，结合Ｗｉｎｄｏｗｓ任务计划程序实 现了生产日报表的自动生成，迅速、高效、准确、人性化， 节省了专人的劳动。从固定日期报表合成一动态日期报表合 成一删除重复内容一删除空白行及排序一报表传送情况打 印一最后是实现ＶＢＡ源程序与汇总表的分离，分步，分模块 进行直到最终完成，其编程思路可作借鉴。 参考文献 【１】赵志东．Ｅｘｃｅｌ ＶＢＡ基础入门，第２版．北京：人民邮电 出版社，２０１１． 【２】Ｅｘｃｅｌ精英培训．ＷＷＷ．ｅｘｃｅｌｐｘ．ｃｏｍ． 【３］ＥｘｃｅｌＨＯＭＥ论坛．Ｗ－￣ｒＷ．ｅｘｃｅｌｈｏｍｅ．ｎｅｔ． ，
