Excel VBA生成的pdf名称能否与某些单元格中的值相对应？

我目前正在使用VBA为我生成一封自动信函。使用以下命令：

Sub CreatePDF()
    Dim wSheet As Worksheet
    Dim vFile As Variant
    Dim sFile As String

    Set wSheet = ActiveSheet
    sFile = Replace(Replace(wSheet.Name, " ", ""), ".", "_") _
            & "_" _
            & Format(Now(), "yyyymmdd\_hhmm") _
            & ".pdf"
    sFile = ThisWorkbook.Path & "\" & sFile

    vFile = Application.GetSaveAsFilename _
    (InitialFileName:=sFile, _
        FileFilter:="PDF Files (*.pdf), *.pdf", _
        Title:="Select Folder and FileName to save")

    If vFile <> "False" Then
    wSheet.Range("P1:Y336").ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=vFile, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=False

    MsgBox "PDF file has been created."
    End If
End Sub

Sub-CreatePDF（）
将工作表设置为工作表
作为变量的Dim vFile
将文件设置为字符串
设置wSheet=ActiveSheet
sFile=Replace（Replace（wSheet.Name，“，”），“，”和“”）_
& "_" _
&格式（现在为（），“yyyymmdd\ \u hhmm”）_
&“.pdf”
sFile=此工作簿。路径&“\”&sFile
vFile=Application.GetSaveAsFilename_
（InitialFileName:=sFile_
FileFilter:=“PDF文件（*.PDF），*.PDF”_
标题：=“选择要保存的文件夹和文件名”）
如果vFile为“False”，则
wSheet.Range（“P1:Y336”）.ExportAsFixedFormat_
类型：=xlTypePDF_
文件名：=vFile_
质量：=xlQualityStandard_
IncludeDocProperties:=True_
IgnorePrintAreas:=假_
OpenAfterPublish:=False
MsgBox“PDF文件已创建。”
如果结束
端接头

---

想知道是否有办法使生成的PDF文件名对应于特定的单元格输入（在工作表中，它们由vlookup拉入）。理想情况下，将文件设置为：C7_C8.pdf

不确定是指单元格地址还是单元格内的内容

但我只是将“sFile”硬编码到工作表中的特定单元格：

sFile = Workbooks("blabla.xlsb").Sheets("Sheet1").Range("AE14")

请注意下面的

”&

vFile = Application.GetSaveAsFilename _
    (InitialFileName:="" & sFile, _
        FileFilter:="PDF Files (*.pdf), *.pdf", _
        Title:="Select Folder and FileName to save")

因此，无论AE14单元包含什么，它都将作为PDF文件名在“另存为”提示符中传递。希望有帮助