使用Task Scheduler运行Access VBA时无法找到服务器Excel文件的问题

我碰到过不少类似的情况——直接在Access里跑宏一切正常，放到任务计划程序就触发1004错误，核心问题几乎都是运行上下文不匹配导致的网络路径访问失败。结合你的代码和场景，给你几个针对性的解决方案：

核心原因分析 #

你用的V:\是用户登录时映射的网络驱动器，但任务计划程序默认可能用系统账户或者非交互式的用户上下文运行，这时候这个驱动器映射是不存在的，或者账户没有访问该共享文件夹的权限，自然找不到文件。

解决方案一：改用UNC路径代替驱动器映射（最推荐） #

这是最可靠的方案，完全避开驱动器映射的上下文问题。把V:\替换成该驱动器对应的UNC路径（格式是\\服务器名称\共享文件夹名称\...）。

比如假设你的V:映射的是\\FileServer\DHP_Share，那原来的V:\DHP\Boards\Access Data\CV1Data.xlsm就改成\\FileServer\DHP_Share\DHP\Boards\Access Data\CV1Data.xlsm。

修改后的代码可以用常量统一管理路径，方便后续维护：

Option Compare Database
Option Explicit
Public Function UpdateData()
Dim xlApp As Object
Dim mail As CDO.Message
Dim config As CDO.Configuration
' 替换成你实际的UNC根路径
Const UNC_ROOT As String = "\\YourServerName\YourSharedFolder\DHP\Boards\Access Data\"
On Error GoTo 100
Set xlApp = CreateObject("Excel.Application")
With xlApp
 .Application.Visible = False
 ' 可选：临时降低自动化安全级别（如果Excel阻止网络文件，谨慎使用）
 .Application.AutomationSecurity = msoAutomationSecurityLow
 
 ' 用UNC路径打开并保存文件
 .Workbooks.Open UNC_ROOT & "CV1Data.xlsm"
 .Workbooks("CV1Data.xlsm").Save
 .Workbooks.Open UNC_ROOT & "CV2Data.xlsm"
 .Workbooks("CV2Data.xlsm").Save
 .Workbooks.Open UNC_ROOT & "CV3Data.xlsm"
 .Workbooks("CV3Data.xlsm").Save
 .Workbooks.Open UNC_ROOT & "CV4Data.xlsm"
 .Workbooks("CV4Data.xlsm").Save
 .Workbooks.Open UNC_ROOT & "602Data.xlsm"
 .Workbooks("602Data.xlsm").Save
 .Workbooks.Open UNC_ROOT & "PVGData.xlsm"
 .Workbooks("PVGData.xlsm").Save
 .Workbooks.Open UNC_ROOT & "PV24Data.xlsm"
 .Workbooks("PV24Data.xlsm").Save
 .Workbooks.Open UNC_ROOT & "ReasonCodes.xlsm"
 .Workbooks("ReasonCodes.xlsm").Save
End With
xlApp.Quit
Set xlApp = Nothing
Application.SetOption "Auto compact", True
Application.Quit
Exit Function
100:
Set mail = CreateObject("CDO.Message")
Set config = CreateObject("CDO.Configuration")
config.Fields(cdoSendUsingMethod).Value = cdoSendUsingPort
config.Fields(cdoSMTPServer).Value = "mr.domain.com"
config.Fields(cdoSMTPServerPort).Value = 25
config.Fields.Update
Set mail.Configuration = config
With mail
 .To = "First.Last@Domain.com"
 .From = "First.Last@Domain.com"
 .Subject = "Error Occured - Error Number " & Err.Number
 ' 新增错误路径提示，方便排查
 .TextBody = "DHPTables Database -" & Err.Description & vbCrLf & "Failed attempting to access: " & Err.Source
 .Send
End With
Set config = Nothing
Set mail = Nothing
Application.SetOption "Auto compact", True
Application.Quit
End Function

解决方案二：确保任务计划的账户有权限访问网络路径 #

如果坚持用驱动器映射，要保证任务计划用的账户能访问该路径：

• 打开任务计划程序，找到你的任务→右键属性→常规选项卡
• 不要选择"系统账户"，改用有访问该共享文件夹权限的域/本地用户账户
• 勾选"不管用户是否登录都要运行"，确保非交互式环境下也能访问网络资源
• 同时确认这个账户对V:对应的共享文件夹有读取和写入权限（因为你要执行Save操作）

解决方案三：在VBA里手动映射驱动器（备选） #

如果必须用V:路径，可以在代码开头先手动映射驱动器，避免上下文缺失的问题：

' 在Set xlApp = CreateObject(...)之前添加这段代码
Dim wshNet As Object
Set wshNet = CreateObject("WScript.Network")
' 先移除已存在的V:映射（避免冲突）
On Error Resume Next
wshNet.RemoveNetworkDrive "V:", True, True
On Error GoTo 100
' 映射驱动器，替换成你的服务器共享、用户名和密码（域账户格式：域\用户名）
wshNet.MapNetworkDrive "V:", "\\YourServerName\YourSharedFolder", False, "Domain\UserName", "YourPassword"

⚠️ 注意：硬编码密码存在安全风险，尽量优先使用前两个方案。

额外排查点 #

• 检查Excel的信任中心：确保该网络路径被添加到Excel的受信任位置，避免被阻止运行VBA
• 测试任务计划时，先手动运行任务，查看实时错误（任务计划程序→任务→右键运行，然后结合告警邮件或事件日志排查）

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