Visual Basic Application.GetSaveAsFilename對話響應

Question

這必須是最基本的問題。我有下面的VB代碼彈出一個對話框，當一個按鈕被擊中時保存一個PDF文件。

它工作正常，只是我意識到它即使在取消按鈕被擊中時也執行SAVE FILE，這是非常奇怪的，除非我自己必須處理取消事件嗎？

我該怎麼辦？我必須檢查哪些返回碼？

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 

這應該工作...