Visual Basic Application.GetSaveAsFilename ответ на диалог - PullRequest
0 голосов
/ 23 мая 2011

Это должно быть самый главный вопрос.У меня есть следующий 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 ???? !!

1 Ответ

0 голосов
/ 23 мая 2011
If FullFileName = False
    Exit Sub
End If

Это должно работать ...

...