Создание папок VBA Exсel

[Екатерина Попкова]

Hugo121
Код,который Вы присылали,он рабочий...НО
Посмотрите,пожалуйста,на картинку (которую я прислала)
Установила,новую дату,по сути он должен создать новую папку с датой 23 апереля,,но не создает,хотя на графике отмечены люди

Sub tt()
Const ROOT = "C:\Documents and Settings\Admin\Рабочий стол\1\график сотрудников.xls" 'заменить на свой путь
Dim c, strDate$
strDate = Format(Now, "dd.mm.yyyy" & "г.")
Set c = [b2:af2].Find(Day(Now))
For Each c In Range(Cells(3, c.Column), Cells(Rows.Count, c.Column).End(xlUp)).Cells
If c.Row > 2 Then
If Val(c.Value) > 0 Then
On Error Resume Next
MkDir ROOT & strDate & "\"
MkDir ROOT & strDate & "\" & Cells(c.Row, 1).Value & "\"
End If
End If
Next
End Sub

[Hugo121]

Вообще-то это уже частично не мой код, а другого Игоря. Но не того, который уже не участвует, а того, который давно не участвует
Короче тут все Игори, которые не Екатерина.

А если серьёзно - ну сделайте уже один раз график для форума, в котором не работают эти коды, и покажите нам как оно не работает в файле!

[Екатерина Попкова]

График во вложении,посмотрите пожалуйста...

[Екатерина Попкова]

График во вложении

[Hugo121]

И всё работает.
Но признаю, мой косяк - нужно было в строке

Const ROOT = "C:\Documents and Settings\Admin\Рабочий стол\1\график сотрудников.xls" 'заменить на свой путь

дописать " к ПАПКЕ"
Т.е. должно быть

Const ROOT = "C:\Documents and Settings\Admin\Рабочий стол\1\"

P.S. Хотя у меня и так отработало, создало папку График.xls20.04.2015г\
а в ней
Кузнецов А.М\
Скорик Г.М\

И одинаково работают оба варианта кода - и с MkDir, и с MakeSureDirectoryPathExists.
Хотя мой вариант нужно бы поместить в стандартный модуль, а не в модуль листа - но и из листа отработало.

[Екатерина Попкова]

папку создало с 20.04.2015,а теперь попробуйте в системе компьютера сменить дату,создалась ли у Вас еще одна новая папка,к примеру с датой 21.04.2015?

[IgorGO]

Игорь, а какое отношение все это имеет к след. загадочной фразе:

тогда на компьютере начался новый день 00:00

понимаешь весь трагизм ситуации?
24:00, бьют часы, карета превращается в тыкву, лошади - в крыс, а Кузнецов А.М. должен был бы превратиться нет - не в Золушку, а в одноименную папку...

как 30 сообщений назад, так и сейчас не понятно "что спрашивается в задаче?"
попытки разговорить Екатерину были тщетны

[Hugo121]

Сообщение от Екатерина Попкова

папку создало с 20.04.2015,а теперь попробуйте в системе компьютера сменить дату,создалась ли у Вас еще одна новая папка,к примеру с датой 21.04.2015?

Да, конечно создалась.
А про новый день можно сделать так - написать скрипт, открывающий этот файл и выполняющий этот макрос, и забить его в шедулер на полночь. Только конечно компьютер должен быть включен.
Но думаю что это не нужно - пусть тот, кому нужны эти папки, с утра и выполняет макрос.
Ну или нагенерить сразу всё когда составлен график - а если он в процессе изменится, то можно догенерить новые папки в любой момент, прежние результаты не пострадают.

[Екатерина Попкова]

А про новый день можно сделать так - написать скрипт, открывающий этот файл и выполняющий этот макрос, и забить его в шедулер на полночь. Только конечно компьютер должен быть включен.

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

[Hugo121]

Вот например назначьте в шедулере запуск скрипта vbs из этого архива. Он должен лежать в одной папке с графиком, а в графике должен быть макрос "tt" в модуле.
Естественно всё можно править-изменять.
Где у Вас этот шедулер - ищите, я не знаю, сам недавно семёрку поставил, шедулером не пользуюсь, т.ч. сам не знаю