将工作簿中多个工作表按照工作表名批量生成PDF

如何将一个工作簿中多个工作表按工作表名批量生成多个PDF

贵州省
浏览 2182
1
2
分享
2 +1
4
1 +1
全部评论 4
 
懒人办公
懒人办公

创作者俱乐部成员

点击“开发工具”,点击“WPS宏编辑器”,点击“插入”——“模块”,在“Module1”中粘贴以下代码,点击运行按钮即可。 function SH_TO_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() } }
· 贵州省
1
回复
WPS_1654075094
请问为什么运行的时候总是弹出nb.Close(false)或者DoEvents()出错,显示 is not a function
· 湖南省
回复
 
小哥
小哥

创作者俱乐部成员

您好,会员专享里面有一个转成pdf,不过是一个工作簿一起转成pdf,或者当前工作表
· 黑龙江省
回复
 
张俊
张俊

WPS函数专家

您好,这个感觉目前需要用二次开发JS宏或VBA来解决了吧?也许超级会员也可以解决。
· 上海
回复