Перемещение файлов, из столбца, по разным папкам по списку

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Перемещение файлов, из столбца, по разным папкам по списку (Макросы/Sub)

spaidi487

Дата: Пятница, 24.11.2023, 16:39 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

2019

Добрый день!
Прошу помощи, необходимо разнести файлы названия которых прописаны в столбце А, по папкам которые указаны в столбце В.
Файлы находятся по адресу C:\3-TMS-001
Папки созданы и находятся по адресу C:\TMP
К сожалению не обладаю знаниями по работе в VBA, буду очень благодарен за помощь в написание макроса.
Заранее сильно благодарен!)

К сообщению приложен файл: iskhodnoe.xlsx (330.1 Kb)

Ответить

Pelena

Дата: Пятница, 24.11.2023, 19:42 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19403

Репутация: 4555 ±

Замечаний: ±

Excel 365 & Mac Excel

Здравствуйте.
[vba]

Код

Sub Move_File()
    Dim FolderPath As String, FolderPathNew As String
    Dim lrow As Long, ir As Long

    FolderPath = "C:\3-TMS-001\"
    FolderPathNew = "C:\TMP\"

    With ActiveSheet
        lrow = .Cells(.Rows.Count, 1).End(xlUp).Row
        For ir = 1 To lrow
            'FileCopy FolderPath & .Cells(ir, 1), FolderPathNew & .Cells(ir, 2) & "\" & .Cells(ir, 1)        'копирование
            Name FolderPath & .Cells(ir, 1) As FolderPathNew & .Cells(ir, 2) & "\" & .Cells(ir, 1)         'перемещение
        Next ir
    End With
    MsgBox "Готово!"
End Sub

[/vba]

К сообщению приложен файл: iskhodnoe.xlsm (337.8 Kb)

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

spaidi487

Дата: Понедельник, 27.11.2023, 08:45 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

2019

Pelena, Спасибо большое!

Ответить

spaidi487

Дата: Понедельник, 27.11.2023, 11:27 | Сообщение № 4

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

2019

Pelena,
А вот я вложил новые файлы в папку, в другой папке все теже подпапки созданы.
Как мне заставить макрос перемещать эти файлы? В самом экселе столбцы обновил под актуальные файлы/папки

К сообщению приложен файл: iskhodnoe2.xlsm (321.2 Kb)

Ответить

Pelena

Дата: Понедельник, 27.11.2023, 11:30 | Сообщение № 5

Группа: Админы

Ранг: Местный житель

Сообщений: 19403

Репутация: 4555 ±

Замечаний: ±

Excel 365 & Mac Excel

Цитата spaidi487, 27.11.2023 в 11:27, в сообщении № 4 (

)

Как мне заставить макрос перемещать эти файлы?

Кнопку нажать. Не?

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

spaidi487

Дата: Понедельник, 27.11.2023, 11:37 | Сообщение № 6

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

2019

Pelena, Почему то выдает ошибку 53, файл не найден

По списку все сверял, названия все совпадают...
P.S. Сейчас еще раз проверю названия.ю думаю да возможно проблема в них
P.S.S Мой косяк, гдето в названиях файлов был косяк, поэтому т.к. была ошибка все вместо отказывалось работать, сформировал список с нуля и все получилось.
Спасибо большое!)

Сообщение отредактировал spaidi487 - Понедельник, 27.11.2023, 12:03

Ответить

Перемещение файлов, из столбца, по разным папкам по списку (Макросы/Sub)

Страница 1 из 1
1