web-dev-qa-db-ja.com

Excel VBAを使用してファイルの名前を変更する

ここに私がする必要があるものがあります。 Excelシートにこれらの2つの列があります。ファイル名付き。最初の列には現在のファイル名があり、2番目の列にはファイルの名前を変更する名前があります。名前を変更するパターンがないため、これを使用する必要があります。たとえば、以下はファイルのセットかもしれません...

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

Xyz.jpg       >  Driving.jpg

123.jpg       >  Sunset.jpg

VBAでこれを行うのは簡単なはずですが、その方法は正確にはわかりません。どんな助けでも大歓迎です。

18
redGREENblue

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
39
PaulStock