求助：实现工作簿工作表另存为根目录单个XLSX及PDF的VBA代码问题

原代码存在的问题 #

• 子过程嵌套错误：CommandButton5_Click内部直接定义SavePlan，VBA不允许嵌套过程，会触发编译错误。
• 未实现PDF保存逻辑：原代码仅保存XLSX文件，未满足同时生成PDF的需求。
• 保存格式未明确指定：SaveAs未设置FileFormat参数，若文件名无.xlsx后缀，可能导致保存格式异常。
• 未处理工作簿未保存场景：若当前工作簿从未保存过，wb.Path返回空值，会导致保存路径无效。
• 未校验文件名合法性：C6单元格内容若包含文件系统非法字符（如\ / : * ? " < > |），会导致保存失败。

修正后的完整代码 #

Private Sub CommandButton5_Click()
    SavePlan
End Sub

Sub SavePlan()
    Dim wb As Workbook: Set wb = ThisWorkbook
    Dim sws As Worksheet: Set sws = wb.Worksheets("Main")
    
    ' 处理工作簿未保存的情况
    If wb.Path = "" Then
        MsgBox "请先保存当前工作簿，再执行导出操作！", vbExclamation
        Exit Sub
    End If
    
    Dim FolderPath As String: FolderPath = wb.Path
    Dim dFileName As String: dFileName = sws.Range("C6").Value
    
    ' 校验并清理文件名中的非法字符
    Dim invalidChars As Variant, char As Variant
    invalidChars = Array("\", "/", ":", "*", "?", """", "<", ">", "|")
    For Each char In invalidChars
        dFileName = Replace(dFileName, char, "")
    Next char
    
    ' 若清理后文件名为空，提示用户
    If Trim(dFileName) = "" Then
        MsgBox "C6单元格内容无效，请输入合法的文件名！", vbExclamation
        Exit Sub
    End If
    
    Dim xlsxPath As String: xlsxPath = FolderPath & Application.PathSeparator & dFileName & ".xlsx"
    Dim pdfPath As String: pdfPath = FolderPath & Application.PathSeparator & dFileName & ".pdf"
    
    ' 复制工作表到新工作簿
    sws.Copy
    Dim dwb As Workbook: Set dwb = ActiveWorkbook
    
    Application.DisplayAlerts = False
    ' 保存为XLSX格式
    dwb.SaveAs Filename:=xlsxPath, FileFormat:=xlOpenXMLWorkbook
    ' 保存为PDF格式
    dwb.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfPath
    Application.DisplayAlerts = True
    
    dwb.Close SaveChanges:=False
    MsgBox "XLSX和PDF文件已成功保存到根文件夹！", vbInformation
End Sub

关键优化点说明 #

• 拆分嵌套过程：将SavePlan改为独立子过程，在CommandButton5_Click中调用，避免编译错误。
• 新增PDF导出逻辑：使用ExportAsFixedFormat方法生成PDF文件。
• 明确指定保存格式：SaveAs时设置FileFormat:=xlOpenXMLWorkbook确保保存为标准XLSX格式。
• 处理工作簿未保存场景：先判断wb.Path是否为空，为空则提示用户先保存主工作簿。
• 清理文件名非法字符：遍历替换文件系统不允许的字符，避免保存失败。
• 校验文件名有效性：若清理后文件名为空，提示用户修改C6单元格内容。

内容的提问来源于stack exchange，提问作者Flemming Staal