Переименовать несколько файлов с именем Excel VBA

Question

Я очень новичок в vba, и мне нужен макрос Excel, который в зависимости от имени файла присваивает ему другое имя, например:

aaa12345.txt -----> hello.txt
bb678.txt -----> bye.txt

в папке только два типа имен, aaa * .txt и bb * .txt

Sub rena_me()
if ffile = Dir("C:\test\aaa*.txt") Then NewName = "yellow.txt"
Name "C:\test\" & ffile As "c:\test\" & NewName
End sub

этот код - все, что у меня есть ... отлично работает, но я не знаю, как реализовать его для обоих файлов

Answer 1

Попробуйте следующий макрос ...

Option Explicit

Sub rena_me()

    Dim myPath As String
    Dim myFile As String
    Dim newName As String

    myPath = "C:\test\"

    'check for an aaa file
    myFile = Dir(myPath & "aaa*.txt")
    If Len(myFile) > 0 Then
        Name myPath & myFile As myPath & "hello.txt"
    End If

    'check for a bb file
    myFile = Dir(myPath & "bb*.txt")
    If Len(myFile) > 0 Then
        Name myPath & myFile As myPath & "bye.txt"
    End If

End Sub