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