Sub 转换PDF()下加一行:aa = Mid(ActiveWorkbook.Name, 1, 4) 改Filename:= _ "G:新建文件夹" & ActiveWorkbook.Name & ".pdf",为: Filename:= _ "G:新建文件夹" & aa & ".pdf", 您调试看看,本人也不是很懂。祝顺利。 顶一下 (0) 0% 踩一下 (0) 0% 相关评论 我要评论 马上提交