确定 SaveAs FileFormat 是否为 PDF

Question

我想在 Excel 工作表保存为 PDF 之前对其进行更改，并在创建副本后撤消这些更改。我想使用Workbook_BeforeSave 事件来实现更改，并使用Workbook_AfterSave 事件将工作表返回到其原始状态。

当我想确定 SaveAs 指令的输出格式时，我遇到了困难。它似乎在 Workbook_BeforeSave 事件中不可用，而且我知道没有任何事件可以捕获 SaveAs 对话框，除非我强制用户使用此对话框的特定实例。

我希望用户从 Excel 的 UI 中选择 SaveAs 并在他选择另存为 PDF 时采取行动。

Answer 1

您可以通过控制msoFileDialogSaveAs 来确定文件路径和扩展名，如下所示：

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

获得完整路径后，Cancel = True 将停止 SaveAs 操作，因此您可以选择是否保存。

编辑：您确定用户是否按下了Save 按钮或SaveAs 和SaveAsUI。如果按下Save，则按下SaveAsUI = False，如果按下SaveAs，则按下SaveAsUI = True

编辑 2： 这是我将如何实现上述内容的示例：

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