VBA复制Excel文件后打开临时副本仍提示只读问题排查

当前方案失效和临时文件的只读属性无关，核心触发原因有两点：

• 当源Excel被其他用户以独占模式打开时，fso.CopyFile读取被锁文件生成的副本，会被Excel自动标记为来自锁定源的不可编辑文件，即使文件本身没有设置只读属性，也会触发只读报错
• 如果临时目录下残留了之前操作生成的、与临时文件同名的~$开头隐藏锁文件，Excel打开文件时检测到锁文件存在，会直接判定文件被占用，强制以只读模式加载

直接替换原有逻辑即可，不需要调整现有业务流程：

• 复制文件前先清理临时目录下的同名残留锁文件，避免锁文件误导Excel的占用检测
• 放弃fso.CopyFile方法，改用二进制逐块读写的方式复制源文件，这种方式绕开了Windows系统对被独占打开文件的复制标记，生成的副本不会继承源文件的锁定状态
• 调用Excel的Workbooks.Open方法时，显式传入可写相关参数，关闭Excel的自动弹窗提示，跳过默认的锁校验逻辑

修正后的可直接运行代码如下：

' 通用二进制复制函数，支持复制被独占锁定的文件，生成的副本无锁定标记
Sub BinaryCopyFile(sourcePath As String, targetPath As String)
    Dim fileNum1 As Integer, fileNum2 As Integer
    Dim fileBytes() As Byte
    Const chunkSize As Long = 4096 ' 按4KB块逐段读取，适配大文件场景
    fileNum1 = FreeFile
    Open sourcePath For Binary Access Read As #fileNum1
    fileNum2 = FreeFile
    Open targetPath For Binary Access Write As #fileNum2
    
    If LOF(fileNum1) <= chunkSize Then
        fileBytes = InputB(LOF(fileNum1), #fileNum1)
        Put #fileNum2, , fileBytes
    Else
        Dim readOffset As Long
        ReDim fileBytes(1 To chunkSize)
        For readOffset = 1 To LOF(fileNum1) Step chunkSize
            If readOffset + chunkSize > LOF(fileNum1) Then
                ReDim fileBytes(1 To LOF(fileNum1) - readOffset + 1)
            End If
            Get #fileNum1, readOffset, fileBytes
            Put #fileNum2, , fileBytes
        Next
    End If
    
    Close #fileNum1
    Close #fileNum2
End Sub

' 主逻辑代码
Dim fso As Object
Set fso = VBA.CreateObject("Scripting.FileSystemObject")

' 清理临时目录下残留的Excel锁文件
On Error Resume Next
Kill fso.BuildPath(fso.GetParentFolderName(myTempFolderFile), "~$" & fso.GetFileName(myTempFolderFile))
On Error GoTo 0

' 替换原fso.CopyFile调用，用二进制方式复制文件
Call BinaryCopyFile(myOriginalFolderFile, myTempFolderFile)

Dim my_xl_app As Object
Dim my_xl_workbook As Object
Set my_xl_app = CreateObject("Excel.Application")
' 关闭Excel弹窗，避免阻塞自动化流程
my_xl_app.DisplayAlerts = False
' 显式指定以可写模式打开，跳过锁检测
Set my_xl_workbook = my_xl_app.Workbooks.Open( _
    FileName:=myTempFolderFile, _
    ReadOnly:=False, _
    Notify:=False, _
    IgnoreReadOnlyRecommended:=True)

' 后续插入行的业务逻辑可在此处编写

• 所有Excel操作完成后，必须显式调用Close方法关闭工作簿、调用Quit方法退出Excel实例，同时清空对象引用，避免后台残留僵尸Excel进程占用内存
• 临时文件路径优先使用系统临时目录（可通过Environ("TEMP")获取），不要存放在源文件同目录或权限受控的系统目录，避免权限不足导致的写入失败
• 如果源Excel开启了工作簿保护或打开密码，需要在Workbooks.Open方法中额外传入Password、WriteResPassword参数，否则仍会以只读模式打开

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