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


- 相关评论
- 我要评论
-
300
299
298
298
298