EXCLE根据模板批量抓取数据并以固定单元格内容命名生成PDF文件

java9527

哪位大侠指教下，要实现日常工作中的一个EXCLE批处理操作，目前的手工操作如下
第一步:        选中D3列
第二步:        选中序列中“商品1”（（D3列是商品序列，选中后本表其他内容会发生变化））
第三步:        按照C1列内容以PDF格式保存并命名

以下都是循环操作,一直操作到整个D3列序列内容处理完毕：

第一步:        选中D3列
第二步:        选中序列中“商品2”
第三步:        按照C1列内容以PDF格式保存并命名

.........

liulang0808

欢迎新朋友，建议上传附件并模拟说明

java9527

新人入坛，刚开始没有找到上传附件的按钮，不好意思。
附件是示例：其中表格里面有两个sheet，“报告模板”是要保存为PDF格式的模板，第二个是数据源（仅为第一个表格提供数据用）；各个PDF是要实现的结果文件，是通过求助贴中的三步走操作得出的结果
因为实际上有几百个商品，通过这种手工方式太低效，特向诸位大大求助。谢谢。

liulang0808

1. Sub Macro1()
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.     Set sh = Sheets("报告模板")
   
5.     sh.Select
   
6.     r = Sheets("数据源").Cells(Rows.Count, 3).End(3).Row
   
7.     arr = Sheets("数据源").Range("c4:c" & r - 3)
   
8.     pth = ThisWorkbook.Path & ""
   
9.     For j = 1 To UBound(arr)
   
10.         sh.Select
    
11.         If Len(arr(j, 1)) > 0 Then
    
12.             sh.[d3] = arr(j, 1)
    
13.             
    
14.             nm = sh.[b3] & sh.[d3] & sh.[e3] & ".pdf"
    
15.     ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    
16.         pth & nm, Quality:= _
    
17.         xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    
18.         OpenAfterPublish:=False
    
19.         End If
    
20.     Next j
    
21.     Application.DisplayAlerts = True
    
22.     Application.ScreenUpdating = True
    
23.    
    
24. End Sub
    

复制代码

liulang0808

附件供参考。。。。。。

java9527

感谢诸位大神的解答，我学习下代码，试验下。
再次感谢诸位。

java9527

liulang0808 发表于 2019-8-2 08:10

已经试验成功，跑出来7个PDF文件，改了一下 arr = Sheets("数据源").Range("c4:c" & r - 3) 里面的range范围（C4：C14）,全部跑出来了。但有个不清晰的地方，后面的& r-3是什么意思，请教版主

java9527

补充问题：如果将报告模板的显示范围放大，需要对应修改哪一行代码（如附件黄色区域）
自己尝试了一下：没有成功，输出的还是原来的A1-G6范围

xjdmelody

java9527 发表于 2019-8-2 11:39
补充问题：如果将报告模板的显示范围放大，需要对应修改哪一行代码（如附件黄色区域）
自己尝试了一下：没 ...

那个报告模版，他只是用了vlook函数查找扩大不了范围的