WPS宏批量将工作表导出为PDF,将以工作表名称作为PDF名称

懒人办公
懒人办公 Lv.1 新人创作者KVP

Lv.1 新人创作者

第一步:在“开发工具”选项卡中点击“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”文件夹中,大家可以根据自己需要进行修改。

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

Lv.1 新人创作者

共同进步
· 贵州省
举报
0
0
 
张俊
向大佬学习来了!
   上海
举报
0
1
懒人办公
懒人办公Lv.1 新人创作者KVP

Lv.1 新人创作者

😀😀😀
· 贵州省
举报
1
0
 
阿滨
阿滨 Lv.1 新人创作者KVP

Lv.1 新人创作者

我擦 大佬来了
   江苏省
举报
0
1
懒人办公
懒人办公Lv.1 新人创作者KVP

Lv.1 新人创作者

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