使用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