批量生成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")) &