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

【请教】通过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才行,最好是保存到系统盘的其他盘外

    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论
查看更多回答(2条)

报告相同问题?

悬赏问题

  • ¥50 swiftui @query 报错
  • ¥50 怎么解决刷卡或扫码后,点击软件输入框,win10屏幕键盘不会自动弹出的问题
  • ¥15 如何使用arcgispro的训练深度模型,发现water和nowater精度为0?(相关搜索:深度学习)
  • ¥20 matlab作业不太懂呀有问题能给个代码吗
  • ¥15 自制电路图为何无法驱动ESP01S?
  • ¥15 前端加access数据库
  • ¥15 ARCGIS 多值提取到点 ERROR 999999
  • ¥15 mysql异常断电, [MY-011971] [InnoDB]
  • ¥15 uni.onBluetoothDeviceFound熄屏不运行
  • ¥15 求PHDA糖尿病并发症数据集,有偿