Новости:

Теперь на форум можно залогиниться / зарегистрироваться с помощью ВКонтакте. Уже существующие пользователи могут связать свою учетную запись с аккаунтом ВКонтакте одним кликом в профиле пользователя http://forum.msexcel.ru/index.php?action=profile;area=account

Главное меню

Копирование файла в папку с текущей датой

Автор Дмитрий Герасименко, 05.11.2017, 02:23

« назад - далее »

Дмитрий Герасименко

Здравствуйте. Прошу помощи у знатоков. Не получается написать макрос, чтобы тот копировал файл из папки которая указана в sFileName в папку с текущей датой, по тому же пути sFileName, но в этом же пути макросом создаётся папка с текущей датой. Как пример: файл находиться по пути c://newfolder/now.xls скопировать его нужно в c://newfolder/05.11.2017/now.xls. Повторюсь, что папка создается отдельной функцией.

Дмитрий Герасименко


Pelena

Здравствуйте.
Здесь есть готовые макросы для копирования файлов из одной папки в другую
http://www.excel-vba.ru/chto-umeet-excel/kak-sredstvami-vba-pereimenovatperemestitskopirovat-fajl/
А саму папку можно создать через MkDir (путь)

boa


Sub test()
    Dim oldPath$: oldPath = "c://newfolder/"
    Dim newPath$: newPath = oldPath & Format(Date, "dd\.mm\.yyyy") & Application.PathSeparator
    Dim FileName$: FileName = "now.xls"
    If Dir(newPath, vbDirectory) = "" Then MkDir (newPath)
   
    FileCopy oldPath & FileName, newPath & FileName
End Sub
Ничто не обходится нам так дешево и не ценится так дорого, как вежливость...  Мигель Сервантес де Сааведра

Дмитрий Герасименко