确定SaveAs FileFormat是否为PDF

Question

I want to make changes to an Excel worksheet before it is saved to PDF and undo those changes after the copy has been created. I thought of using the Workbook_BeforeSave event to implement the changes and the Workbook_AfterSave event to return the worksheet to its original state.

The point at which I got stuck is when I want to determine the output format for the SaveAs instruction. It doesn't seem to be available in the Workbook_BeforeSave event, and I know of no event that I might capture the SaveAs dialog with unless I force the user to use a particular instance of this dialog.

I would like the user to choose SaveAs from Excel's UI and take action if he chose to save as PDF.

Answer 1

You can determine the file path and extension by controlling the msoFileDialogSaveAs like this:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

    Dim intChoice As Integer
    Dim strPath As String

    'make the file dialog visible to the user
    intChoice = Application.FileDialog(msoFileDialogSaveAs).Show

    'determine what choice the user made
    If intChoice <> 0 Then
        'get the file path selected by the user
        strPath = _
        Application.FileDialog(msoFileDialogSaveAs).SelectedItems(1)
        'displays the result in a message box
        Call MsgBox(strPath, vbInformation, "Save Path")
    End If

    SaveAsUI = False
    Cancel = True

End Sub

After you have the full path Cancel = True will stop the SaveAs action so you can choose to save or not.

Edit: You determine if the user pressed Save button or SaveAs with SaveAsUI . If Save pressed then SaveAsUI = False if SaveAs then SaveAsUI = True

Edit 2: This is an example of how I would implement the above:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

    'cancel all default actions by excel application
    Cancel = True

    'if save was selected instead of SaveAs
    If (SaveAsUI = False) Then
        Cancel = False

    'if SaveAs was selected
    ElseIf (SaveAsUI = True) Then

        SaveAsUI = False
        Dim intChoice As Integer
        Dim strPath As String

        'make the file dialog visible to the user
        intChoice = Application.FileDialog(msoFileDialogSaveAs).Show

        'determine what choice the user made
        If intChoice <> 0 Then
            'get the file path selected by the user
            strPath = Application.FileDialog(msoFileDialogSaveAs).SelectedItems(1)

            'get file extention
            fileExt = Right(strPath, Len(strPath) - InStr(strPath, ".") + 1)

            'if pdf is the chosen format
            If (InStr(strPath, "PDF") > 0) Then

                'actions with pdf format
                Call MsgBox(strPath, vbInformation, "Save Path")
            Else

                With ActiveWorkbook
                    'on error resume next in case of extention macro free prompt no is selected
                    'see example by removing on error resume next and saving extention ".xlsx"
                    On Error Resume Next
                    .SaveAs strPath
                    On Error GoTo 0
                End With

            End If
        End If

    End If
End Sub