Работа с файлами из Excel

[axell_pnz]

Ребята помогите пожалуйста у меня есть список имен файлов и папка с фотами.... но в папке есть другие ненужные файлы.... как мне выбрать фоты по списку и в отдельную папку N их....

[EducatedFool]

Вот весь код:

Sub test()
    НоваяПапка = "N\"
    Dim cell As Range, ra As Range: Application.ScreenUpdating = False
    Set ra = Range([A1], Range("A" & Rows.Count).End(xlUp))
    Путь = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, "")
    On Error Resume Next: MkDir Путь & НоваяПапка
    For Each cell In ra.Cells
        ИмяФайла = Путь & Trim(cell)
        If Len(Trim(cell)) And Len(Dir(ИмяФайла, vbNormal)) Then
            Name ИмяФайла As Путь & НоваяПапка & Trim(cell)
        End If
    Next cell
End Sub

[axell_pnz]

Это в модуле использовать?

[EducatedFool]

Это в модуле использовать?

Где угодно.

Просто скачайте мой файл, и замените им свой файл.

[axell_pnz]

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

Где угодно.

Просто скачайте мой файл, и замените им свой файл.

Да спасибо разобрался просто пример сразу не увидел!!! Еще раз огромное спасибо!!!