VBA 连续打印多个内容成PDF

VBA 连续打印多个内容成PDF

python 复制代码
Dim wb As Workbook
Dim sht1 As Worksheet
Set sht1 = ActiveSheet
PT = ThisWorkbook.Path
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Application.Calculation = xlCalculationManual
For i = [aa2] To [ab2]
    [ad2] = i

    Set wb = Workbooks.Add
    sht1.Copy after:=wb.Sheets(wb.Sheets.Count)
    wb.Sheets(1).Delete
    wb.Sheets(1).Cells.Copy
    wb.Sheets(1).Cells(1, 1).PasteSpecial Paste:=xlPasteValues
    wb.Sheets(1).Columns("k:af").Delete
    wb.SaveAs PT & "\" & sht1.Range("y2").Value & ".xlsx"
    wb.Sheets(1).ExportAsFixedFormat Type:=xlTypePDF, Filename:=PT & "\" & sht1.Range("y2").Value & ".pdf"
    wb.Close False

    Application.Calculation = xlCalculationAutomatic
Next
    
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
相关推荐
逻辑羊驼5 分钟前
VSCode+MobaXterm+X11可视化界面本地显示
运维·服务器·ubuntu·3d
ST.J17 分钟前
swing笔记
java·笔记
菩提树下的凡夫23 分钟前
瑞芯微RV1126目标识别算法Yolov8的部署应用
java·算法·yolo
Zacks_xdc26 分钟前
【前端】使用Vercel部署前端项目,api转发到后端服务器
运维·服务器·前端·安全·react.js
爱隐身的官人32 分钟前
新后端漏洞(上)- Java RMI Registry反序列化漏洞
java·反序列化漏洞
叫我阿柒啊36 分钟前
从Java全栈到前端框架:一次真实的面试对话与技术解析
java·javascript·typescript·vue·springboot·react·前端开发
晚安里1 小时前
Spring 框架(IoC、AOP、Spring Boot) 的必会知识点汇总
java·spring boot·spring
爱隐身的官人1 小时前
新后端漏洞(上)- Aapache Tomcat AJP 文件包含漏洞(CVE-2020-1938)
java·tomcat·ajp
pound1271 小时前
Linux
linux·运维·服务器
@CLoudbays_Martin111 小时前
为什么动态视频业务内容不可以被CDN静态缓存?
java·运维·服务器·javascript·网络·python·php