Visual Basic Application.GetSaveAsFilename 对话响应

Question

这一定是最愚蠢的问题。我有以下 VB 代码，当按下按钮时，会弹出一个对话框来保存 PDF 文件。

它工作正常，只是我刚刚意识到即使按下取消按钮它也会执行保存文件，这很奇怪，除非我必须自己处理取消事件？

我该怎么办呢？我必须检查哪些返回码？

Sub SavePDF()

Dim PDFName As String

PDFName = ThisWorkbook.Name

PDFName = Left(PDFName, Len(PDFName) - 5)

PDFName = PDFName & ".pdf"

FullFileName = Application.GetSaveAsFilename(PDFName, _
"PDF(*.pdf),*.pdf*", 1, "Save As PDF File")

'check return code only executing the following when the Save Button is proessed
'HOW DO I DO THIS?
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
PDFName, Quality:=xlQualityStandard, _
IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:= _
False

End Sub

发帖后第二天编辑： 仍然没有答案 - 你当然可以在 VB 中测试按钮？？？！！

Answer 1

If FullFileName = False
    Exit Sub
End If

这应该有效...