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
相关推荐
yujkss15 分钟前
23种设计模式之【抽象工厂模式】-核心原理与 Java实践
java·设计模式·抽象工厂模式
我命由我1234520 分钟前
Android 实例 - Android 圆形蒙版(Android 圆形蒙版实现、圆形蒙版解读)
android·java·java-ee·android studio·安卓·android-studio·android runtime
Mr.456742 分钟前
Linux&Windows环境下Nacos3.1.0详细安装配置指南:从零到生产就绪
linux·运维·服务器
咖啡Beans43 分钟前
SpringBoot集成Clickhouse
java·spring boot
王道长服务器 | 亚马逊云1 小时前
AWS Route 53 详解:不只是 DNS,还能做智能流量调度
服务器·网络·微服务·云原生·架构·云计算·aws
kobe_t1 小时前
数据安全系列6:从SM4国密算法谈到Bouncy Castle
java
從南走到北1 小时前
JAVA露营基地预约户外露营预约下单系统小程序
java·开发语言·小程序
曹牧1 小时前
Java:实现List的定长截取
java·开发语言·list
Lxinccode1 小时前
python(42) : 监听本地文件夹上传到服务器指定目录
服务器·开发语言·python·文件上传服务器·监听文件上传服务器
峰顶听歌的鲸鱼1 小时前
30.Linux DHCP 服务器
linux·运维·服务器·笔记·学习方法