excel - Windows 10 上的 VBA Shell 调用权限被拒绝

Question

我们最近升级到 Windows 10。此 VBA 代码在 Windows 7 中运行以运行批处理脚本，但现在它抛出“运行时错误'70'：权限被拒绝。

我已经尝试了脚本的几种变体，但仍然遇到问题。我的电脑也有管理员权限。这是在网络驱动器上，但以前不是问题。使用 cmd 提示符，我可以成功调用这个批处理文件。您提供的任何想法或帮助将不胜感激。

Sub DailyBatchProcess()
Dim wsh As Object
Set wsh = VBA.CreateObject("WScript.Shell")
Dim waitOnReturn As Boolean: waitOnReturn = True
Dim windowStyle As Integer: windowStyle = 1
wsh.Run Chr(34) & "S:\Data\Daily Items\1 Daily Batch\BAT\Transaction Adjustments.bat" & Chr(34), windowStyle, waitOnReturn
Set wsh = Nothing
End Sub

标签： excelvba