在文件名中使用sheet中的字符串变量

时间:2017-12-19 17:53:05

标签: excel vba excel-vba

我想将一个excel文件保存到一个文件夹中,基于它的'Name'(一个名为变量的字符串),文件名基于'Name'和'AccountNumber'(一个命名变量,是数字)。

当我在文件名中使用'AccountNumber'变量时,我可以保存它,但是当我添加'Name'时我不断收到错误。我试过把它放在:Range(“Name”)或Range(“Name”)。Text(或.Value),Name,它的单元格位置(D3)等......但是没有运气!这是一个错误或它的工作原理,但文件名/文件夹名称中只有一个空格。它应该是。

Sub SavePDF()

    Dim NewPath As String
    NewPath = Application.ThisWorkbook.Path & "\PDF Outputs\Leads - PDF Outputs\" & "\" & Name
    If Dir(NewPath) = "" Then MkDir NewPath

        Sheets("Sheet1").Activate
        ActiveSheet.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=NewPath & "\Report - " & Range("Name").Text & " " & Range("AccountNumber").Value & ".pdf", _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=False

End Sub

基于这些错误,似乎问题是由变量是一个字符串引起的 - 如果它还没有认为是一个字符串,如何将其转换为字符串?或者如何告诉它将字符串变量添加到文件名中?

提前致谢!

0 个答案:

没有答案