Sub test()
Dim WS As Worksheet
For Each WS In Worksheets
With WS
.ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & "\" & .Name & ".pdf"
End With
Next WS
End Sub
EXCEL自动转换成PDF(1个SHEET对应1个PDF)
最新推荐文章于 2023-12-29 15:26:01 发布