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”文件夹中,大家可以根据自己需要进行修改。

贵州省
浏览 4931
2
20
分享
20 +1
14
2 +1
全部评论 14
 
巴山
一样的代码为啥老提示错误。为什么WPS升级一下,有些功能搞复杂了不能用了,边插入个表格都不能用了
· 新疆
回复
 
Jane
请问下 表格里有公式带出来的数据导出后显示不了是啥问题
· 湖北省
回复
 
刚
能同步给生成的PDF加密吗?禁止PDF篡改
· 四川省
回复
 
大脸猫
如果我想转多张工作簿里的指定工作表 应该怎么修改呢?
· 安徽省
回复
 
凤梨猪
Project-Module1:第1行第26列:语法错误: Invalid or unexpected token 这是为啥
· 广东省
回复
Wsy
第一行和第二行文字前面的\\改成//试试
· 上海
回复
 
末世~晶
感谢教学,很专业👍👍
· 陕西省
回复
 
小姐姐
低头猛记笔记
· 广东省
回复
 
Connie
Connie

创作者俱乐部成员

又学到一招
· 海南省
回复
懒人办公
懒人办公

创作者俱乐部成员

共同进步
· 贵州省
回复
 
张俊
张俊

WPS函数专家

向大佬学习来了!
· 上海
回复
懒人办公
懒人办公

创作者俱乐部成员

😀😀😀
· 贵州省
1
回复
 
阿滨
阿滨

社区优秀创作者

我擦 大佬来了
· 江苏省
回复
懒人办公
懒人办公

创作者俱乐部成员

呵呵,刚刚看到有人提这个问题,就随手发一个了,初来乍到,多多关照
· 贵州省
回复