mu_yi_ke
2021-05-28 11:04
采纳率: 100%
浏览 30

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

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

vAttch是之前定义的object对象;

错误提示:

 

  • 写回答
  • 好问题 提建议
  • 追加酬金
  • 关注问题
  • 邀请回答

3条回答 默认 最新

  • CSDN专家-showbo 2021-05-28 11:58
    最佳回答

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

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

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

    评论
    解决 1 无用
    打赏 举报
查看更多回答(2条)

相关推荐 更多相似问题