Excel-vba 将不同的工作表保存到不同文件夹中的 PDF [关闭]答案

【问题标题】：Excel-vba to save different sheets to PDF in different folders [closed]Excel-vba 将不同的工作表保存到不同文件夹中的 PDF [关闭]
【发布时间】：2018-07-21 14:41:02
【问题描述】：

我一直在执行我的“租赁计划”，它非常好。但我想让事情变得更好。

很遗憾我自己没有编写VBA代码的技能，所以希望你能帮助我。

在我的工作簿中，我有 4 个不同的工作表“信息”“报价”“租赁”和“发票”

当我在“信息”中输入信息时，我想单击一个按钮，然后它将“报价”“租赁”和“发票”保存到 3 个特定的不同文件夹中，格式为 .pdf，具有从“信息”表中的 2 个不同单元格生成的名称。

我一直在寻找解决方案，但没有找到。

提前致谢

【问题讨论】：

这不是一个代码编写服务，所以要么你需要复习你的 VBA 或者复习你的研究技能。
您可以在这里搜索并开始根据需要编辑代码，这里只是一个示例：stackoverflow.com/q/40690592/4961700

标签： excel vba pdf

【解决方案1】：

我想通了，也许它对其他人有用。

将 3 张工作表保存到不同的位置，名称来自一个特定工作表中的单元格。

Sub SaveAsPDF()


Dim fName As String
With Worksheets("Pricelist")
    fName = ThisWorkbook.Worksheets("Pricelist").Range("D1").Value & 
ThisWorkbook.Worksheets("Pricelist").Range("E10").Value & 
ThisWorkbook.Worksheets("Pricelist").Range("D4").Value
End With
Worksheets("Offer").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\ra\2019\Offer\" & fName, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

Worksheets("Invoice").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\ra\2019\Invoice\" & fName, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

Worksheets("Rental").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\ra\2019\Rental\" & fName, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

【讨论】：