批量生成Excel的简单Word报告/vba/录制宏

Sub piliangshengcheng()
Set dd = CreateObject("excel.application")
dd.workbooks.Open ("D:\ALM数据分析\VBA\第三天\二手车.xlsx")
dd.sheets("sheet5").Select
For i = 1 To dd.worksheetfunction.counta(dd.Range("N:N"))
'range应有范围brand = dd.Range("N" & i)mubiao = "D:\ALM数据分析\VBA\第三天\二手车_报告\" & brand & ".docx"dd.ActiveSheet.PivotTables("数据透视表3").PivotFields("品牌").ClearAllFiltersdd.ActiveSheet.PivotTables("数据透视表3").PivotFields("品牌").CurrentPage = brandFileCopy "D:\ALM数据分析\VBA\第三天\二手车.docx", mubiaoSet ddd = Documents.Open(mubiao)With Selection.Find.Text = "现代".Replacement.Text = brand.Forward = True.Execute Replace:=wdReplaceAllEnd Withdd.Range("A3:B" & dd.worksheetfunction.counta(dd.Range("B:B")) + 1).Selectdd.Selection.CopyWith Selection.Find.Text = "表1".Replacement.Text = "".Forward = True.ExecuteEnd WithSelection.MoveUp wdLine, 1Selection.PasteApplication.ActiveDocument.Tables(1).PreferredWidth = 400Application.ActiveDocument.Tables(1).SelectSelection.ParagraphFormat.Alignment = wdAlignParagraphCenterdd.ActiveSheet.ChartObjects("图表 1").Activatedd.ActiveSheet.Shapes("图表 1").Width = 400dd.ActiveChart.ChartArea.CopyWith Selection.Find.Text = "图1".Replacement.Text = "".Forward = True.Wrap = wdFindContinue'不能少.wrap.ExecuteEnd WithSelection.MoveUp wdLine, 1Selection.PasteSpecial Link:=False, DataType:=14, Placement:=wdInLine, _DisplayAsIcon:=FalseWith Selection.Find.Text = "对比描述".Replacement.Text = dd.Range("F21").Forward = True.Execute Replace:=wdReplaceAllEnd Withddd.Saveddd.CloseSet ddd = Nothing
Next
dd.DisplayAlerts = False
dd.Quit
End Sub

注:

1. 检查每个引用是否声明来源 (父级) //(90%的错误来源)

brand = dd.Range("N" & i)

2. 插入图表位置错误

.Wrap = wdFindContinue

3. 插入文字时产生错误

.Execute Replace:=wdReplaceAll

4. 图片去链接(粘贴为图片格式)

Selection.PasteSpecial Link:=False, DataType:=14, Placement:=wdInLine, _DisplayAsIcon:=False

5. 来源报表长度不等时取最大范围

& xx.worksheetfunction.counta(dd.Range("B:B")) + 1

6. 调试时尽量避免单独运行

Set dd = CreateObject("excel.application")
dd.workbooks.Open ("D:\ALM数据分析\VBA\第三天\二手车.xlsx")

避免产生误报

7. 关键字检查大小写检测准确率未必100%

Set ddd = Documents.Open(mubiao)
Set ddd = Document.Open(mubiao)   //error

7. 文件调用开始与结束...代码封闭

Set dd = CreateObject("excel.application")
dd.workbooks.Open ("路径")Set ddd = Documents.Open(mubiao)ddd.Saveddd.CloseSet ddd = Nothing
dd.DisplayAlerts = False //excel弹出框提示
dd.Quit

Excel的简单Word报告批量生成 vba笔记 (一)相关推荐

nodejs 根据excel表格和word模板，生成对应的多份word模板
一.效果二. 需求根据表格中的开票名称的金额,生成对应的单位对账函,然后发给各单位的负责人进行审核.由于word模板样式一致,故可用模板填充数据,进行企业对账函的一次性生成三.前端vue技术前 ...
matlab自动生成报告,一种基于MATLAB的Word报告自动生成方法
总第 182期一种基于MATLAB的Word报告自动生成方法孙剑 (信阳农林学院,河南信阳 464000) 摘要:自动生成Word文档报告功能是办公自动化系统中的重要组成部分.为高效的完成 ...
Word报告自动生成（例如导出数据库结构）
将很早之前写的一个小组件重新整理优化一下,做成一个通用的功能.适用于导出数据库的结构(表.字段等)到Word或将体检数据自动生成Word版的体检报告等.代码:Github 一.主要需要完成功能: 1. ...
Python实践5：基于word模板批量生成邀请函
替换word模板中的客户姓名及落款时间,批量生成邀请函. 代码如下: ''' 依赖的包:python-docx 安装:pip install python-docx 引用:import docx 参考 ...
python-docx+pandas实现word邀请函批量生成
最近有个朋友请我帮忙,想根据表格中的邀请名单批量生成一批邀请函word文档,邀请函的格式固定,也就是说每个邀请函模板一致,只是被邀请人的姓名不一致.这样重复劳动最适合用Python解决了,下面是我的方 ...
python 批量打印文档_使用python将Excel数据填充Word模板并生成Word
[项目需求] Excel中有一万多条学生学平险数据,需要给每位学生打印购买回执单,回执单包括学生姓名,身份证号,学校等信息,目前只能从Excel拷贝数据到Word模板中,然后打印,效率及其低下,寻求帮 ...
php导出成word试卷,依据word模板批量生成试卷
java-word-MassProduction 目录一.使用方法 1.制造题库所需Word模板需要填充数据的地方使用 ${pid} 代替. 将这个word选择另存为,保存格式选择为xml,然后将 ...
依据word模板批量生成试卷
java-word-MassProduction 目录使用方法开发流程一.使用方法 1.制造题库所需Word模板需要填充数据的地方使用 ${pid} 代替. 将这个word选择另存为,保存格式 ...
如何通过excel批量生成word文件？
如何通过excel批量生成word文件?不知道大家有没有面对过批量生成word文件的工作经历,相信有很多小伙伴都遇到过,一个excel表格里实事先准备好了很多文件名称,然后一次性通过这些文件名称生成对 ...

Excel的简单Word报告批量生成 vba笔记 (一)

注:

Excel的简单Word报告批量生成 vba笔记 (一)相关推荐

最新文章

热门文章