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

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

Здравствуйте. Прошу помощи у знатоков. Не получается написать макрос, чтобы тот копировал файл из папки которая указана в 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


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

Спасибо boa все работает!!!