Sub 转换PDF()下加一行：aa = Mid(ActiveWorkbook.Name, 1, 4) 改Filename:= _ "G:新建文件夹" & ActiveWorkbook.Name & ".pdf",为： Filename:= _ "G:新建文件夹" & aa & ".pdf", 您调试看看，本人也不是很懂。祝顺利。
300
300
299
299
299
298
298
298
298
298
2023-12-25 04:35
admin