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

最新推荐文章于 2024-08-17 08:32:30 发布

原创

最新推荐文章于 2024-08-17 08:32:30 发布 · 1.4w 阅读

41 ·

CC 4.0 BY-SA版权

文章标签：

#vba入门

本文介绍如何使用VBA批量生成Excel的简单Word报告，包括检查引用、处理图表位置、文字错误、图片格式转换、不同源数据的处理以及调试技巧，旨在帮助初学者掌握VBA自动化报告生成。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

批量生成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("品牌").ClearAllFilters
    dd.ActiveSheet.PivotTables("数据透视表3").PivotFields("品牌").CurrentPage = brand
    FileCopy "D:\ALM数据分析\VBA\第三天\二手车.docx", mubiao
    Set ddd = Documents.Open(mubiao)
    
    With Selection.Find
    .Text = "现代"
    .Replacement.Text = brand
    .Forward = True
    .Execute Replace:=wdReplaceAll
    End With
    
    dd.Range("A3:B" & dd.worksheetfunction.counta(dd.Range("B:B")) + 1).Select
    dd.Selection.Copy
    With Selection.Find
    .Text = "表1"
    .Replacement.Text = ""
    .Forward = True
    .Execute
    End With
    Selection.Mov