让灵犀帮我创作
才思如泉涌
一键批量转换工作表为PDF的WPS宏教程 点击使用AI助手 了解更多
发布于 2024-12-01 liusiyang 175 编辑
AI 智能搜索
第一步:在“开发工具”选项卡中点击“WPS 宏编辑器”;
第二步:在宏编辑器中点击“插入”按钮,点击“模块”,在“Module1”中粘贴以下代码:
function SH_TO_PDF(){ \\批量将工作表导出为PDF,并以工作表名作为文件名
let p='c:\\aa\\' \\将PDF存放在C盘aa文件夹下
let wb = ThisWorkbook
for(i=1;i<=wb.Sheets.Count;i++){
let nm=wb.Sheets.Item(i).Name
wb.Sheets.Item(i).Copy()
let nb=ActiveWorkbook
nb.ExportAsFixedFormat(xlTypePDF,p+nm+'.pdf')
nb.Close(false)
DoEvents()
}
}
第三步:运行代码;
以下就是导出的效果,PDF文件导出到C盘的“aa”文件夹中,大家可以根据自己需要进行修改。
原文链接:https://bbs.wps.cn/topic/8422