【请教】通过excel VBA写了个收邮件程序，将附件下载到指定文件夹，运行时错误。
问题描述：
If WorksheetFunction.IfError(Application.WorksheetFunction.SearchB(arrKeyWord(j), vAttch.Filename), 0) > 0 Then
vAttch.SaveAsFile (arrPath(j))
End If
vAttch是之前定义的object对象；
错误提示：
答
看提示错误没有权限，arrPath是不是系统的特殊目录？
如系统盘根目录，或者系统盘Program Files (x86)，Program Files这类的需要管理员权限的目录下了？
这些目录要以管理员权限运行Excel后执行vba才行，最好是保存到系统盘的其他盘外
答
还有一种情况就是下载的源头是否存在无权限的情况，建议将过程进一步细化，加设断点，进一步确定问题根源。
答
您好，我是有问必答小助手，您的问题已经有小伙伴解答了，您看下是否解决，可以追评进行沟通哦~
如果有您比较满意的答案 / 帮您提供解决思路的答案，可以点击【采纳】按钮，给回答的小伙伴一些鼓励哦～～
ps:问答VIP仅需29元，即可享受5次/月 有问必答服务，了解详情>>>https://vip.csdn.net/askvip?utm_source=1146287632