使用Excel VBA重命名文件 - GrantAccessToMultipleFiles

Question

我得到了一个在Excel 2016中运行良好的Win 10脚本。我使用它根据Excel工作表对文件进行重命名/编号。

但在Mac上，我必须确认每个文件的访问权限。由于我有超过3000个文件来编号，这是不可能的。这与Mac沙盒有关。 GrantAccessToMultipleFiles是关键字。 任何人都可以帮我完成这个脚本，我不必确认每个文件重命名吗？

sub Test() 
iPath = "c:temp" 
lr = cells(rows.count, "A").end(xlup).row 
for i = 1 to lr 
    name iPath & cells(i,"A") as iPath & Format(i, "0###") & " " & cells(i,"A") 
next i 
end sub 

Answer 1

根据我使用Linux的经验，我可以确定问题是文件夹权限。 验证您的权限或阅读本文（步骤5）。

https://discussions.apple.com/docs/DOC-3353