vba - Excel 加载项将文件名更改为加载项的名称，尽管它不应该

Question

关于我使用 VBA 创建的加载项，我需要您的帮助，然后我将其保存为加载项，以便能够在所有 Excel 工作簿上使用，并将其发送给我的 friend 。

该插件只是将事件工作表中的打印区域保存为与工作簿同名的 PDF 文件，它将 PDF 保存到桌面并作为宏正常工作。

但是当我保存为 PDF 并使用它时，它会以与加载项相同的名称保存 PDF 文件，而不是作为工作簿的名称。

有什么建议么？

VBA代码是:

Sub Save_as_pdf()
Dim FSO As Object
Dim s(1) As String
Dim sNewFilePath As String

    Set FSO = CreateObject("Scripting.FileSystemObject")

    s(0) = "C:\Users\" & Environ("UserName") & "\Desktop\" & ThisWorkbook.Name

    If FSO.FileExists(ThisWorkbook.FullName) Then
        '//Change Excel Extension to PDF extension in FilePath
        s(1) = FSO.GetExtensionName(s(0))

        If s(1) <> "" Then
            s(1) = "." & s(1)
            sNewFilePath = Replace(s(0), s(1), ".pdf")

            '//Export to PDF with new File Path
            ActiveSheet.ExportAsFixedFormat _
                Type:=xlTypePDF, _
                Filename:=sNewFilePath, _
                Quality:=xlQualityStandard, IncludeDocProperties:=True, _
                IgnorePrintAreas:=False, OpenAfterPublish:=True
        End If
    Else
        '//Error: file path not found
        MsgBox "Error: this workbook may be unsaved.  Please save and try again."
    End If

    Set FSO = Nothing

End Sub

Answer 1

详细说明 Matteo NNZ 的上述评论:
ThisWorkbook指当前正在执行代码的工作簿(在本例中为加载项)
ActiveWorkbook指当前在同一个 Excel 实例中事件的工作簿。