Vba 拒绝许可；错误70…Word 2007

运行Word 2007宏时出现异常问题

背景信息：此特定宏使用ActiveX控件。这允许用户从数据库中获取客户机/地址信息，并填充到Word文档的格式化字段中

所有这些都在办公室的50多个用户的PC上完美地工作了好几年。我昨天早上进了办公室，突然它不工作了。每个人都会收到错误消息70权限被拒绝

参考

sProgressPath=“p:\acts\”

以下是代码的一部分：

Dim InFile As String

InFile = sFolderPath & "Results.txt"

'Delete results file if present

If Dir(InFile) <> "" Then
   Kill InFile
End If

'start an instance of progress by executing the batch file

Set objshell = CreateObject("WScript.Shell")

strBatFilePath = sProgressPath & "how2send.bat"

**objshell.Run strBatFilePath, 0**

Set objshell = Nothing

Dim infle作为字符串
infle=sFolderPath&“Results.txt”
'删除结果文件（如果存在）
如果目录（填充）“，则
压井
如果结束
'通过执行批处理文件启动进度实例
设置objshell=CreateObject（“WScript.Shell”）
strBatFilePath=sProgressPath&“how2send.bat”
**objshell.运行strBatFilePath，0**
Set objshell=Nothing

对包含bat文件的文件夹的权限已更改，或者某些策略设置阻止bat文件运行。您可以通过双击手动启动bat文件吗？错误发生在哪一行？是否可以手动删除“Results.txt”？错误发生在objshell。运行strBatFilePath，0I可以手动运行位于数据库服务器上的批处理文件。批处理文件创建results.txt，其中包含客户端名称和地址字段。我猜是某种类型的策略更新出了问题。@JeffinVA-似乎是您IT支持的问题。