【请教】通过excel VBA写了个收邮件程序，将附件下载到指定文件夹，运行时错误。

Question

If WorksheetFunction.IfError(Application.WorksheetFunction.SearchB(arrKeyWord(j), vAttch.Filename), 0) > 0 Then
      vAttch.SaveAsFile (arrPath(j))
End If

vAttch是之前定义的object对象；

错误提示：

 

Answer 1

看提示错误没有权限，arrPath是不是系统的特殊目录？

如系统盘根目录，或者系统盘Program Files (x86)，Program Files这类的需要管理员权限的目录下了？

这些目录要以管理员权限运行Excel后执行vba才行，最好是保存到系统盘的其他盘外