MS Access VBA中'孤立'变量导致Excel进程残留问题问询

问题核心成因 #

代码中导致Excel后台残留、重复运行报错的关键原因是未限定的对象引用：

allarray = wb.Worksheets("Data Call 2").Range(Cells(1, 1), Cells(bottom, lastcolumn))

这里的Cells(1,1)和Cells(bottom, lastcolumn)没有明确指定所属的工作表/工作簿，在Access VBA环境中会隐式创建一个全新的Excel.Application实例——这个实例没有被任何变量绑定，后续无法通过代码关闭，导致后台残留Excel进程。

后续运行报错的逻辑：第一次运行后残留的Excel进程会锁定生成的xlsx文件，第二次运行时尝试打开该文件会因锁定失败；第三次运行时系统可能自动释放了残留进程的资源，因此恢复正常。

修复方案 #

给Cells明确指定父对象，避免隐式创建新Excel实例：

方案1：直接限定父对象 #

' 替换原数组赋值行
allarray = wb.Worksheets("Data Call 2").Range( _
    wb.Worksheets("Data Call 2").Cells(1, 1), _
    wb.Worksheets("Data Call 2").Cells(bottom, lastcolumn) _
)

方案2：先将工作表赋值给变量（更简洁） #

' 在获取行列数前添加工作表变量声明
Dim ws As Excel.Worksheet
Set ws = wb.Worksheets("Data Call 2")

' 后续相关代码统一用ws调用
bottom = ws.UsedRange.Rows.Count
lastcolumn = ws.UsedRange.Columns.Count

' 数组赋值行修改为
allarray = ws.Range(ws.Cells(1, 1), ws.Cells(bottom, lastcolumn))

额外优化点 #

• 字符串变量User、desktop、today不需要用Set ... = Nothing，Set仅用于对象变量，直接忽略即可。
• ReDim allarray(10)和Set allarray = Nothing属于无效操作：allarray是Variant数组而非对象，Set Nothing对它不起作用，直接让变量超出作用域即可自动释放。

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