将excel文件导出为pdf,文件名为单元格、日期和单词的组合信息

oogrdqng  于 2022-12-14  发布在  其他
关注(0)|答案(1)|浏览(213)

我正在Excel中编写VBA代码。我正在尝试将Excel文件导出为PDF。我希望PDF文件的名称是多个内容的组合:单元格D3中的单词(是一个名称)& todays date &单词“invoice”。现在,文件已导出,但其名称为“combined”,而不是显示Name 09 -12- 202 Invoice。
我如何得到'combined'变量,以反映名称&日期&字发票,然后让pdf有这个名称?
代码运行,只是不像我所期望的那样。因为导出的pdf文件具有组合的名称,而不是“组合变量”中的信息。
我不知道我是否需要将所有的维度"组合“为字符串。但如果是这样的话,我不知道如何将日期转换为字符串维度。我是否将clientname、客户日期和客户发票变量组合为一个变量”组合“正确?最主要的是,为什么”组合“不在saveLocation的末尾,而不是'combined'变量中的信息?
谢谢任何帮助我的人!我是VBA的新手,所以我很感激!

Sub SaveActiveSheetsAsPDF()

    'Create and assign variables
    Dim saveLocation As String
    Dim clientname As String
    Dim clientdate As Date
    Dim clientinvoice As String
    Dim combined As String
    
    clientname = Range("D3")
    clientdate = Date
    clientinvoice = "Invoice"
    combined = clientname & clientdate & clientinvoice
    
    saveLocation = "C:\Users\jessi\Documents\Info\combined.pdf"
    
    'Save Active Sheet(s) as PDF
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
        filename:=saveLocation

End Sub
nbysray5

nbysray51#

就像这样:

clientname = Range("D3").Value
clientdate = Format(Date, "yyyy-mm-dd") 'Make sure you don't end up with (eg) mm/dd/yyyy format...

saveLocation = "C:\Users\jessi\Documents\Info\" & _
                clientname & "_" & clientdate & "_Invoice.pdf"
    
'Save Active Sheet(s) as PDF
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
                                 filename:=saveLocation

相关问题