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

这应该有用......

Visual Basic Application.GetSaveAsFilename对话响应

1 个答案: