Question

我一直在努力制定我的“租赁计划”，而且计划还不错。但是我想让事情变得更好。

不幸的是，我没有自己编写VBA代码的技能，所以希望您能为我提供帮助。

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

当我在“ info”中输入信息时，我想单击一个按钮，然后将“ offer”，“ lease”和“ invoice”保存为3个特定于.pdf的文件夹，的名称由“信息”表中的2个不同的单元格生成。

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

预先感谢

Answer 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

Excel-vba将不同的工作表保存为不同文件夹中的PDF

1 个答案: