VBAコードにパス/ファイルアクセスエラーが発生しましたか？どうしてこんなことに？

Question

私は

実行時エラー「75」取得しています：私のVBAコードで
パス/ファイルアクセスエラー

をし、私はそのエラーの背後にある理由についてはよく分からないです。

私はエラーラインとして、この特定の行を見たコードデバッグ：

Name strPath & cell.Value As strPath & cell.Offset(0, 1).Value 

完全なコードは次のとおりです。

Sub RenameFiles() 

    Dim strPath As String 
    strPath = "C:\Users\Satish Muppidi\Downloads\" 

    Dim srcrng As Range 
    Set srcrng = Range("A2", ActiveSheet.Range("A2").End(xlDown)) 

     For Each cell In srcrng 

      Name strPath & cell.Value As strPath & cell.Offset(0, 1).Value 

     Next cell 

    Range("A1").Select 

    End Sub 

コードの更新で私を助けてください。

Answer 1

名前を変更しようとする前に、ファイルの存在を確認しません。お試しください

If Dir(strpath & cell.value) = "" then 

else 
    Name strPath & cell.Value As strPath & cell.Offset(0, 1).Value 
End if