单工作表重复导出为pdf

cuiguangrong

有一个工作表，通过公式引用了其他工作表内容，
现在以某个单元格查询结果后，把当前工作表保存为pdf，名为查询单元格内容。
求方法或者思路，

请大神支支招。
谢谢！

kucoor

搜下 ExportAsFixedFormat

cuiguangrong

kucoor 发表于 2022-12-5 21:42
搜下 ExportAsFixedFormat

好的谢谢！

cuiguangrong

kucoor 发表于 2022-12-5 21:42
搜下 ExportAsFixedFormat

已解决，谢谢！
代码供大家参考

1. Sub 查询后导出为pdf()
   
2. With Sheets("小组")
   
3. aaa = .Range("a2:a" & .[a1].End(xlDown).Row)
   
4. End With
   
5. For i = 1 To UBound(aaa)
   
6.         Sheets("拼音打印单面A4").Select
   
7.         Range("D2").Select
   
8.         [d2] = aaa(i, 1)
   
9.         ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
   
10.         ThisWorkbook.Path & "" & Range("d2") & ".pdf", Quality:=xlQualityMinimum, _
    
11.         IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
    
12.         False
    
13. Next
    
14. End Sub

复制代码