如何自动化生成企业经营情况分析

新蒲十字街诚信服饰冯小桥

应用场景：数字是写经营分析材料的重中之重，没有数字，材料也就没有了灵魂。在日常工作中，经常会遇到领导需要经营分析材料。其实，有些个别经营分析差不多形成模板式的材料了，其中的文字描述每次大致都差不多，时常仅需填充数字即可，手输太多数字容易出错。故此次分享使用VBA自动化生成经营分析（使用VBA主要是因为在内网中使用起来较省事方便点）

• 数据准备
  

在该程序中要使用到两个文件，一个是用Excel制作的主要经营情况表（.xlsm格式），另一个是用Word制作的“主要经营情况”模板文件。如下图所示：




依次在需要补充数字的位置插入书签。如：我们需要在“各项存款日均”和“亿元”之间插入一个数字，那我们需要做如下操作：

• 将光标定位在“各项存款日均”和“亿元”之间，单击Word功能区“插入”选项卡中的“书签”按钮，打开如图所示的对话框。
  

• 在“书签名”文本框输入“num1”，单机“添加”按钮，在光标处添加一个书签，VBA程序可查找书签，并在书签处插入其他内容。
  
• 用同样的方法，依次在需填充数字的地方插入书签。
  

2.调用自动化服务
数据文件准备好之后，就可以在Excel中编写VBA代码，调用Word服务程序来自动化生成经营情况分析。

• 在Excel工作簿“经营指标表”中按"Alt+F11"组合键进入VBE环境。
  
• 选择“插入”“模块”命令，增加一个模块。
  
• 选择“工具”“引用”命令，添加Word对象的引用。
  

• 在模块的“通用”段定义模块级变量。
  
• 在模块中编写“生成经营情况”子过程。
  

Sub 生成经营情况()该段程序较长，其执行流程如下：


程序中创建了一个临时表“Temp”，用来保存正在处理的经营指标记录。在创建该工作表时，如果工作簿中已经存在该临时工作表，程序将会出错。该程序使用了一个技巧，首先使用以下语句定义错误处理：
On Error GoTo err1接下来，使用以下语句引用工作表“Temp”：        
Set shTemp = Worksheets("Temp")如果工作簿中存在该工作表，执行以上语句将不会产生错误，接着执行后面的语句。如果工作簿中不存在工作表“Temp”，执行以上语句将产生错误，这时将跳转到标签err1指定的错误处理程序处。
err1:在以上错误处理程序中，向工作簿中添加一个“Temp”工作表，并跳回到标号label1处继续执行后续代码。

• 在模块中编写子过程“CreateWord()”，用来生成Word文档。
  

Sub CreateWord()    '创建Word文档   3.使用代码生成经营情况分析
使用以上代码就可以自动化生成“经营情况分析”。为了便于执行程序，我们需要插入一个按钮，并指定可执行的宏。


4.效果展示


注意：在上述编写的程序中，通过对每一个经营指标进行循环，如果指标很多，该程序将执行较长一段时间。
整理不易，伙伴们记得点赞+收藏哦❥(^_-)，万一有用呢！