Excel VBA:根据单元格中的特定条件(1个数字=1个工作表)，将excel工作表动态保存到一个PDF中

Sub SaveWorksheetsAsPDF()
    Dim rng As Range
    Dim ws As Worksheet
    Dim savePath As String
    ' 设置保存路径
    savePath = "C:\保存路径\"
    ' 遍历每个工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 检查特定条件（例如，单元格A1中的数字等于1）
        If ws.Range("A1").Value = 1 Then
            ' 创建一个命名为工作表名称的PDF文件
            ws.ExportAsFixedFormat _
                Type:=xlTypePDF, _
                Filename:=savePath & ws.Name & ".pdf", _
                Quality:=xlQualityStandard, _
                IncludeDocProperties:=True, _