переименование файлов в папке макросом из Excel

[TheRoofIsOnFire]

вот это пытаюсь освоить:

Сообщение от EducatedFool

Вот весь код:

Sub Main()
    Dim SourceFolder As String, DestinationFolder As String, ce As Range
    InitialPath = ThisWorkbook.Path: Dim coll As New Collection
    Application.ScreenUpdating = False

    SourceFolder = GetFolderPath("Выберите исходную папку для поиска файлов", InitialPath)
    If SourceFolder = "" Then MsgBox "Необходимо указать папку!", vbCritical, "Папка не выбрана": Exit Sub

    DestinationFolder = GetFolderPath("Выберите папку, в которую будет производиться копирование", SourceFolder)
    If DestinationFolder = "" Then MsgBox "Необходимо указать папку!", vbCritical, "Папка не выбрана": Exit Sub

    On Error Resume Next
    If Dir(DestinationFolder, vbDirectory) = "" Then MkDir DestinationFolder    ' если конечная папка не существует, создаём её

    Filename = Dir(SourceFolder & "*.xls")
    Dim wb As Workbook, sh As Worksheet
    While Filename <> ""
        coll.Add Filename: Filename = Dir
    Wend

    For Each file In coll
        Set wb = Workbooks.Open(SourceFolder & file, , True)
        Application.StatusBar = "Обрабатывается файл  " & file    ' вывод информации в строку состояния
        Set sh = wb.Worksheets(3) ' замените на Set sh = wb.Worksheets(1)
        NewFilename = НовоеИмяФайла(sh.Cells(2, 1), sh.Cells(8, 1))
        wb.SaveAs DestinationFolder & NewFilename
        wb.Close False
    Next

    Application.StatusBar = ""
End Sub

Function НовоеИмяФайла(ByVal cell2 As String, ByVal cell8 As String) As String
    '    cell2 = "Наименование товара я-эмульгатор"
    '    cell8 = "Расфасовано 30.08.2009 партия 12.04.2008"
    '    НовоеИмяФайла = "НТЯ август 2009.xls"

    arr = Split(cell2, " ")
    For i = LBound(arr) To UBound(arr)
        НовоеИмяФайла = НовоеИмяФайла & Left(arr(i), 1)
    Next
    НовоеИмяФайла = UCase(НовоеИмяФайла)

    дата = Split(cell8, " ")(1)
    If IsDate(дата) Then НовоеИмяФайла = НовоеИмяФайла & " " & LCase(Format(дата, "MMMM YYYY"))
    НовоеИмяФайла = НовоеИмяФайла & ".xls"
End Function

Function GetFolderPath(Optional ByVal Title As String = "Выберите папку", Optional ByVal InitialPath As String = "c:\") As String
    GetFolderPath = "": PS = Application.PathSeparator
    With Application.FileDialog(msoFileDialogFolderPicker)
        .ButtonName = "Выбрать": .Title = Title: .InitialFileName = InitialPath
        If .Show = -1 Then GetFolderPath = .SelectedItems(1): If Not Right$(GetFolderPath, 1) = PS Then GetFolderPath = GetFolderPath & PS
    End With
End Function

[TheRoofIsOnFire]

Сообщение от TheRoofIsOnFire

Добрый день! Подскажите, пожалуйста.
Необходимо переименовать файлы средствами эксель.
Нужно реализовать следующую схему:

В экселе столбец с адресами и столбец с номерами (1,2, ...) принадлежащие каждый своему адресу.
Есть папка с файлами изображений с адресами в названии идентичными и похожими.
Нужно добавить в начало всех совпадающих и похожих адресов соответствующие номера из экселя, но вида: 01_, 02_, ... и т.д.

Только начал знакомиться с макросами и "внутренним" миром экселя, поэтому еще много не понимаю, прошу понять!)

Как пробую решить.
Вставляю надстройкой pastepicture названия всех файлов из папки в эксель.
Макросом выполняется частичное сравнение данных из имеющихся адресов и добавленных из папки и напротив выводится коэффициент совпадения. Совпавшим свежедобавленным необходимо присвоить номера вида 01_, 02_, ... и т.д.
Делаю это следующим макросом:
Собственно беру 4 ячейки с данными: "0", "1", "_", "адреса" объединяю их макросом и протягиваю по всем строкам, получается нужный вид.

Остается только заменить названия в папке сгенерированными новыми названиями.
Пробовал через бэйсик запихнуть код, что выше в функции, выдает ошибку на GetFolderPath. Пример тоже не понял как работает. Кнопка есть, но куда данные вставлять. И как мне реализовать это в своей базе экселя в виде макроса или функции. Должен ли я в код прописывать какие-то пути к файлам или все должно работать через форму открыть файл? Очень прошу помочь разобраться!

так как быть-то, кто подскажет?

[TheRoofIsOnFire]

Все еще не могу решить задачу =/ Прошу помощи, очень прошу! (Можно читать только выделенное).

Необходимо переименовать файлы средствами эксель.
Нужно реализовать следующую схему:

В экселе столбец с адресами и столбец с номерами (1,2, ...) принадлежащие каждый своему адресу.
Есть папка с файлами изображений с адресами в названии идентичными и похожими.
Нужно добавить в начало всех совпадающих и похожих адресов соответствующие номера из экселя, но вида: 01_, 02_, ... и т.д.

Только начал знакомиться с макросами и "внутренним" миром экселя, поэтому еще много не понимаю, прошу понять!)

Как пробую решить.
Вставляю надстройкой pastepicture названия всех файлов из папки в эксель.
Макросом выполняется частичное сравнение данных из имеющихся адресов и добавленных из папки и напротив выводится коэффициент совпадения. Совпавшим свежедобавленным необходимо присвоить номера вида 01_, 02_, ... и т.д.
Делаю это следующим макросом:
Собственно беру 4 ячейки с данными: "0", "1", "_", "адреса" объединяю их макросом и протягиваю по всем строкам, получается нужный вид.

Остается только заменить названия в папке сгенерированными новыми названиями:

Файлы .jpg лежащие по пути "диск:/папка/папка" имеющие идентичные имена столбцу "А" в эксель файле, например "Самолет" - нужно, чтобы переименовались именами из столбца "Б" - "01_Самолет"
Причем папок много разных, нужна форма для выбора путей к этим папкам.

В коде, что цитировал выше поменял везде расширения на .jpg, но все что делается при нажатии на кнопку - это выбирается путь где переименовывать и куда копировать. все. больше ничего не происходит.

очень прошу! помогите решить данную задачку! или прогу может какую бесплатную подскажите, подходящую озвученным критериям?