Access使用VBA导出2个Excel文件时第二个文件为只读如何解决

• 优先检查Excel对象释放逻辑
  你在操作File1的代码段中，如果创建了Excel.Application、Workbook等COM对象，操作完成后必须按顺序释放资源，否则后台会残留Excel进程占用文件句柄，导致后续导出的文件被标记为只读，释放参考代码：

' 假设你操作File1时定义的Excel应用对象为xlApp，工作簿对象为xlBook
xlBook.Close SaveChanges:=True ' 先关闭工作簿，按需设置是否保存修改
Set xlBook = Nothing ' 释放工作簿对象
xlApp.Quit ' 退出Excel应用
Set xlApp = Nothing ' 释放应用对象
' 可选：增加1秒等待确保资源完全释放，需要先声明Sleep函数
Sleep 1000

Sleep函数声明：64位Office在模块顶部添加Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)；32位Office添加Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

• 导出前清理旧文件
  如果导出路径下已经存在同名文件，旧文件的权限锁或者属性可能会导致新导出的文件继承只读属性，建议每次导出前先删除旧文件：

Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
' 导出File2前先删除旧文件，File1同理可添加该逻辑
If fso.FileExists("R:\File2.xlsx") Then
    fso.DeleteFile "R:\File2.xlsx", Force:=True
End If
Set fso = Nothing

• 优化导出逻辑
  将导出逻辑封装为独立子过程，每次导出后刷新Access缓存，避免对象缓存冲突：

Sub ExportTableToExcel(tableName As String, savePath As String)
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, tableName, savePath, True
    DBEngine.Idle dbRefreshCache ' 刷新缓存清理残留锁
End Sub

' 替换原有导出代码
Call ExportTableToExcel("File1", "R:\File1.xlsx")
' 此处执行File1的相关操作，完成后释放所有Excel对象
Call ExportTableToExcel("File2", "R:\File2.xlsx")
' 此处执行File2的相关操作

• 检查磁盘权限
  如果你是导出到网络共享盘（比如这里的R盘），确认当前Windows账号对目标目录有写入、修改权限，部分共享盘的权限限制会导致新生成的文件默认标记为只读。

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