Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Перемещение файлов, из столбца, по разным папкам по списку - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Перемещение файлов, из столбца, по разным папкам по списку
spaidi487 Дата: Пятница, 24.11.2023, 16:39 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - spaidi487
Дата добавления - 24.11.2023 в 16:39
Pelena Дата: Пятница, 24.11.2023, 19:42 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19392
Репутация: 4537 ±
Замечаний: ±

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
 
Ответить
СообщениеЗдравствуйте.
[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]

Автор - Pelena
Дата добавления - 24.11.2023 в 19:42
spaidi487 Дата: Понедельник, 27.11.2023, 08:45 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

2019
Pelena, Спасибо большое!
 
Ответить
СообщениеPelena, Спасибо большое!

Автор - spaidi487
Дата добавления - 27.11.2023 в 08:45
spaidi487 Дата: Понедельник, 27.11.2023, 11:27 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

2019
Pelena,
А вот я вложил новые файлы в папку, в другой папке все теже подпапки созданы.
Как мне заставить макрос перемещать эти файлы? В самом экселе столбцы обновил под актуальные файлы/папки
К сообщению приложен файл: iskhodnoe2.xlsm (321.2 Kb)
 
Ответить
СообщениеPelena,
А вот я вложил новые файлы в папку, в другой папке все теже подпапки созданы.
Как мне заставить макрос перемещать эти файлы? В самом экселе столбцы обновил под актуальные файлы/папки

Автор - spaidi487
Дата добавления - 27.11.2023 в 11:27
Pelena Дата: Понедельник, 27.11.2023, 11:30 | Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 19392
Репутация: 4537 ±
Замечаний: ±

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

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


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
Сообщение
Как мне заставить макрос перемещать эти файлы?

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

Автор - Pelena
Дата добавления - 27.11.2023 в 11:30
spaidi487 Дата: Понедельник, 27.11.2023, 11:37 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

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

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


Сообщение отредактировал spaidi487 - Понедельник, 27.11.2023, 12:03
 
Ответить
СообщениеPelena, Почему то выдает ошибку 53, файл не найден

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

Автор - spaidi487
Дата добавления - 27.11.2023 в 11:37
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!