If WorksheetFunction.IfError(Application.WorksheetFunction.SearchB(arrKeyWord(j), vAttch.Filename), 0) > 0 Then
vAttch.SaveAsFile (arrPath(j))
End If
vAttch是之前定义的object对象;
错误提示:
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才行,最好是保存到系统盘的其他盘外