【原创】职场争霸攻略：一段能实现每月自动写报告的程序

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

　　作为一位办公室的小白领，最苦B的是什么，就是每月都要做的月度报表和报告，这些报告就是八股文，内容相仿，但是却有大量的数据需要更新，经常会做报表做的生无可恋，仰天长啸道：难道老子一辈子就这样平凡的度过吗？不要灰心，本文就是你踏破铁鞋无觅处的一篇职场秘籍。　　言归正传，本教程就是要教会大家怎么实现每月报告数据的快速自动更新，使用了这个程序后，我以前需要半天更新的报表，现在仅需一分钟。运用的工具是Visual FoxPro（VFP），一个很久远的程序，但不管白猫黑猫，能抓老鼠就是好猫。VFP语言很简单，我设计的程序更简单（自我表扬不是罪，：）），具体的设计思路如下图。

　　准备工作一：一张数据表，表名为“数据表.xls”,存放位置为C盘。如下，我的例子举得简单，但是实际报表可能会复杂一点，但道理是一样的，第一列是模板需要替换的标记，第二列就是要更新的数据了。

　　准备工作二：报告模板，表名为“模板.doc”,存放位置为C盘。每个月八股文报告的模板，需要替换的部分用特殊的标记标出来，我用的是"(t*)"来代替的。



下面就是具体程序代码，每段代码的功能见后面标注

1. ***************导入数据*********************************
   
2. Close Tables
   
3. Create Table rpt(指标 c(20), 数值 n(20,2))
   
4. Close Tables
   
5. Use rpt
   
6. Zap
   
7. Append From c:\数据表.xls Type Xl8
   
8. Close Tables
   
9. ***************更新word报告***************************************
   
10. oleApp=Createobject("word.application")
    
11. oleApp.Visible=.T.
    
12. oleApp.Documents.Open("C:\模板.doc")
    
13. Use rpt
    
14. Go Top
    
15. For i=1 To 9
    
16.         kk=ALLTRIM(指标)
    
17.         ss=数值
    
18.         oleApp.ActiveDocument.Content.Find.Execute(kk,.F.,.F.,.F.,.F.,.F.,.F.,.F.,.F.,ss,2)
    
19.         Skip
    
20. Endfor
    
21. oleApp.ActiveDocument.SaveAs("C:\报告.doc")
    
22. oleApp.Quit
    
23. RELEASE oleApp
    
24. ***************报告展现***************************************
    
25. oleApp1=Createobject("word.application")
    
26. oleApp1.Visible=.T.
    
27. oleApp1.Documents.Open("C:\报告.doc")

复制代码

选择运行后就大功告成，最终效果如下图，是不是可以极大的提供工作效率。如有问题，加我微信：wx77948691。

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏3 回帖

感谢分享

wangjuju123 发表于 2018-8-18 11:54
感谢分享

谢谢支持！