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

Вход

Регистрация

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

 

= Мир MS Excel/Как сделать переименование файлов после перемещения. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как сделать переименование файлов после перемещения. (Макросы/Sub)
Как сделать переименование файлов после перемещения.
rotten41 Дата: Пятница, 06.01.2017, 07:41 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 163
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Доброе утро всем.
Подскажите - как решить проблему.

Есть макрос перемещающий файлы в назначенные им папки.
Как сделать переименование этих файлов - после перемещения (по значениям оранжевого столбца) ?

( неперемещенные файлы и назначенные для них папки должны находиться в каталоге c:\1\ )
К сообщению приложен файл: 123.rar (46.4 Kb)
 
Ответить
СообщениеДоброе утро всем.
Подскажите - как решить проблему.

Есть макрос перемещающий файлы в назначенные им папки.
Как сделать переименование этих файлов - после перемещения (по значениям оранжевого столбца) ?

( неперемещенные файлы и назначенные для них папки должны находиться в каталоге c:\1\ )
Автор - rotten41
Дата добавления - 06.01.2017 в 07:41
Wasilich Дата: Пятница, 06.01.2017, 10:47 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация: 326 ±
Замечаний: 0% ±

2003
Должно работать. Не проверял.
[vba]
Код
Sub www()
  Dim stFail$, nowFail$, i&
  For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
    stFail = "C:\1\" & Cells(i, 1) & "\.xls*"
    nowFail = "C:\1\" & Cells(i, 2) & "\" & Cells(i, 4) & ".xls*"
    If Dir(stFail) = "" Then
       MsgBox "Файл " & Cells(i, 1) & " не найден"
    Else
       Name stFfil As nowFail
    End If
  Next
End Sub
[/vba]
 
Ответить
СообщениеДолжно работать. Не проверял.
[vba]
Код
Sub www()
  Dim stFail$, nowFail$, i&
  For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
    stFail = "C:\1\" & Cells(i, 1) & "\.xls*"
    nowFail = "C:\1\" & Cells(i, 2) & "\" & Cells(i, 4) & ".xls*"
    If Dir(stFail) = "" Then
       MsgBox "Файл " & Cells(i, 1) & " не найден"
    Else
       Name stFfil As nowFail
    End If
  Next
End Sub
[/vba]
Автор - Wasilich
Дата добавления - 06.01.2017 в 10:47
rotten41 Дата: Пятница, 06.01.2017, 12:08 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 163
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Wasilich, большое спасибо.


Сообщение отредактировал rotten41 - Пятница, 06.01.2017, 13:40
 
Ответить
СообщениеWasilich, большое спасибо.
Автор - rotten41
Дата добавления - 06.01.2017 в 12:08
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как сделать переименование файлов после перемещения. (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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