WPS宏批量将工作表导出为PDF,将以工作表名称作为PDF名称
懒人办公
创作者俱乐部成员
第一步:在“开发工具”选项卡中点击“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”文件夹中,大家可以根据自己需要进行修改。
创作者俱乐部成员
创作者俱乐部成员
WPS函数专家
创作者俱乐部成员
社区优秀创作者
创作者俱乐部成员