Excel转PDF重复保存问题求助：如何避免PDF被保存两次？

嘿，我一眼就看出问题所在啦！你这段代码的核心问题是循环遍历了每一个工作表，每循环一次就执行一次PDF导出——这就导致工作簿里有多少个工作表，PDF就会被保存多少次，难怪你会看到两次保存的情况。

咱们调整一下逻辑：先检查是否存在"Readme"工作表，标记状态后，只执行一次导出操作就够了。下面是修正后的代码：

Sub ExportToPDF()
    Dim hasReadme As Boolean
    Dim ws As Worksheet
    
    ' 初始化标记为不存在目标工作表
    hasReadme = False
    
    ' 遍历工作表，检查是否存在"Readme"
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name = "Readme" Then
            hasReadme = True
            ws.Visible = False ' 隐藏Readme工作表
            Exit For ' 找到后立刻退出循环，不用再检查其他工作表
        End If
    Next ws
    
    ' 只执行一次PDF导出操作
    ThisWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        ThisWorkbook.Path & "\" & Left(ThisWorkbook.Name, InStrRev(ThisWorkbook.Name, ".") - 1) & ".pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, OpenAfterPublish:=True
    
    ' 如果之前隐藏了Readme，恢复它的可见性
    If hasReadme Then
        ThisWorkbook.Worksheets("Readme").Visible = True
    End If
End Sub

几点关键改进： #

• 用hasReadme布尔变量标记目标工作表是否存在，找到后立刻退出循环，避免不必要的遍历
• 把导出操作放在循环外面，确保整个流程只执行一次PDF导出
• 额外优化了文件名：原代码会把XLS的后缀带到PDF文件名里（比如文件.xls.pdf），我用Left(ThisWorkbook.Name, InStrRev(ThisWorkbook.Name, ".") - 1)去掉了原文件的后缀，生成更规范的PDF文件名（比如文件.pdf）

这样修改后，不管工作簿里有没有"Readme"工作表，都只会导出一次PDF，完美解决重复保存的问题！

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