excel表宏 自动保存为pdf到当前目录

Question

请大神帮我看看这段代码，目前已经能保存为原文件名，就是保存位置不是当前文件夹，如何修改，谢谢了
Sub 调试()
'
'
Sheets(Array("工作量表", "工程费用计算表")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub

Answer 1

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Application.Path & "\" & strfilename & ".PDF", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
'我之前做的是一个sheet保存为一个文件，以变量生成不同的文件名。供你参考一下。

Answer 2

Sub xxx()
Sheets(Array("工作量表", "工程费用计算表")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ThisWorkbook.Path & "\xxx.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub

加了一个filename，你看一下吧，就是区这个工作簿所在的位置，后面给生成的pdf命名为xxx.pdf，根据需要自行修改吧

追问

大神，保存位置没问题了，后面pdf的命名能以sheet1表的A1单元格内容为名吗？

追答Sub xxx()
Sheets(Array("工作量表", "工程费用计算表")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ThisWorkbook.Path & "\" & sheets("sheet1").range("a1").value & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub

以"sheet1"表A1单元格内的值作为名称，看样子你没有一点基础啊，我这里的sheet1是指你的sheet名字叫sheet1，如果是叫别的名字就会报错了，另外你的A1单元格里最好不要出现什么斜杠、冒号  比如这些——\ / : ——，那样保存成文件时会出错的