0

这一定是最愚蠢的问题。我有以下 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 中测试按钮？？？？？？

4

1 回答 1

0 
If FullFileName = False
    Exit Sub
End If

这应该工作...

于 2011-05-23T10:11:29.527 回答