Cоздание папок VBA Excel

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

Добрый день!Пожалуйста помогите с VBA Exсel
1.При начале нового дня создать новую папку с именем даты .Например:27.05.2015г.
2.При начале нового дня создать в этой же папке (напр.27.05.2015г.),новые папки с фамилиями сотрудников кто работает в данный день.График работы на рисунке

[IgorGO]

MkDir Вам в помощь!

[Hugo121]

Option Explicit

Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lpPath As String) As Long

Sub tt()
    Const ROOT = "d:\"    'заменить на свой путь
    Dim c, strDate$
    strDate = Format(Now, "dd.mm.yyyy" & "г.")
    Set c = [b2:af2].Find(Day(Now))
    Debug.Print c.Address
    For Each c In Range(Cells(3, c.Column), Cells(Rows.Count, c.Column).End(xlUp)).Cells
        If c.Row > 2 Then
            If c.Value Then
                MakeSureDirectoryPathExists ROOT & strDate & "\" & Cells(c.Row, 1).Value & "\"
            End If
        End If
    Next
End Sub

Вы проверяйте что на других форумах уже отвечено...
Или ищите возможность выбора? Используйте MkDir

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

Hugo121,На других форумах ответа не было,решила на этом написать))
Поскажите,пожалуйста, Set c = [b2:af2].Find(Day(Now)) -это что,?ссылается на ошибку((

[Hugo121]

Это ищем ячейку сегодняшнего дня. В примере ошибки быть не должно - там есть все числа от 1 до 31. Если у Вас файл не как показали - вините себя.
Да, строка

Debug.Print c.Address

лишняя, забыл убрать.

[Казанский]

Игорь, может там во 2 строке дата с форматом ДД?
Можно так:

Set c = cells(2, Day(Now)+1)

[Hugo121]

Я код проверил на файле, он был на другом форуме.
Там в ячейках были просто числа от 1 до 31.
Форум вспомнил - кибер. Кто знает, может поискать - название темы такое же. Ссылку не дам - они ссылки режут

Да, чтоб было почти "при начале нового дня" нужно этот код поставить на событие открытия файла. Будет конечно не на каждое начало нового дня - но если в течение дня файл откроют, то папки создадутся.

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

А что если брать ячейки из этого листа...(на рисунке)на 29 число
Необходимо только взять из этих ячеек на 29 число адреса эл.почт и создать новые папки.Как правильно прописать?(

[Hugo121]

Т.е. я тратил своё время зря?...
Следующий...
Хотя в моём коде уже всё нужное есть - его нужно всего лишь понять и совсем чуть подправить.