Excel VBAでファイルの名前を変更する

Question

ここで私は何をする必要があります。私はこれらの2つの列をExcelシートに持っています。ファイル名。最初の列には現在のファイル名があり、2番目の列には名前を付けてファイルの名前を変更します。名前を変更する際にパターンがないので、これを使用する必要があります。たとえば、以下は一連のファイルである可能性があります。

Current Name > Rename To 
--------------------------- 
Abc.jpg  > Dinner.jpg 

Xyz.jpg  > Driving.jpg 

123.jpg  > Sunset.jpg 

VBAでこれを行うのは簡単なはずですが、どうしたらよいかわかりません。どんな助けでも大歓迎です。

Answer 1

Name関数を使ってファイルの名前を変更することができますが、おそらく2つの列に完全なファイルパス、つまり「C：\ Temp \ ABC.jpg」があることを確認する必要があります

Dim Source As Range 
Dim OldFile As String 
Dim NewFile As String 

Set Source = Cells(1, 1).CurrentRegion 

For Row = 1 To Source.Rows.Count 
    OldFile = ActiveSheet.Cells(Row, 1) 
    NewFile = ActiveSheet.Cells(Row, 2) 

    ' rename files 
    Name OldFile As Newfile 

Next