VBA应用导出PDF遇占用问题：能否在文件打开时更新？

核心思路 #

当共享PDF被其他电脑打开时，系统会锁定文件导致无法直接覆盖。可以通过先检测文件占用状态+错误重试/临时文件替换的方式解决，不用手动排查哪台电脑打开了文件。

方案1：检测文件是否被占用，避免直接报错 #

先写一个函数检测目标PDF是否被其他进程锁定，只有在文件可写入时再执行导出：

Function IsFileLocked(filePath As String) As Boolean
    Dim fileNum As Integer
    On Error Resume Next
    fileNum = FreeFile()
    Open filePath For Input Lock Read Write As #fileNum
    Close #fileNum
    IsFileLocked = Err.Number <> 0
    On Error GoTo 0
End Function

然后修改原代码，加入检测和重试逻辑（比如重试3次，每次间隔5秒）：

sht.Visible = xlSheetVisible
Dim retryCount As Integer
Dim targetPath As String
targetPath = "G:\Info\DontSell.pdf"

' 最多重试3次
retryCount = 0
Do While retryCount < 3
    If Not IsFileLocked(targetPath) Then
        ' 文件未被占用，执行导出
        sht.ExportAsFixedFormat xlTypePDF, _
        targetPath, _
        xlQualityStandard, True, False
        Exit Do
    Else
        ' 文件被占用，等待5秒后重试
        retryCount = retryCount + 1
        Application.Wait Now + TimeValue("00:00:05")
    End If
Loop

' 如果3次重试都失败，给出提示
If retryCount = 3 Then
    MsgBox "PDF文件被其他电脑占用，暂时无法更新，请稍后再试。"
End If
sht.Visible = xlSheetHidden

方案2：导出到临时文件，待原文件释放后替换 #

如果不想等待，也可以先把PDF导出到同目录的临时文件，然后循环检测原文件是否解锁，解锁后立即替换：

sht.Visible = xlSheetVisible
Dim targetPath As String, tempPath As String
targetPath = "G:\Info\DontSell.pdf"
tempPath = "G:\Info\DontSell_Temp.pdf"

' 先导出到临时文件
sht.ExportAsFixedFormat xlTypePDF, _
tempPath, _
xlQualityStandard, True, False

' 循环检测原文件是否解锁，解锁后替换
Do While IsFileLocked(targetPath)
    Application.Wait Now + TimeValue("00:00:03")
Loop

' 删除原文件，替换为临时文件
Kill targetPath
Name tempPath As targetPath

sht.Visible = xlSheetHidden

注意事项 #

• 两种方案都依赖共享目录的读写权限，确保你的账号有修改该网络硬盘文件的权限。
• 方案2的临时文件命名要避免和其他文件冲突，也可以用随机字符串生成临时文件名。

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