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

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

Добрый день!
Подскажите,пожалуйста,не как не получается с выполнением этого задания:
Во вложении листинг программы на VBA и график сотрудников

Необходимо чтобы с каждым новым днем создавались папки с именами сотрудников,работающих в данную смену.
Как это сделать:В графике xls расположен лист "mails",а ячейке А1 автоматически формируются эл.почты сотрудников,кто работает в это день.Т.е.выделить заполненную ячейку А1 и создать папки с этими именами.Либо на листе "График"выбрать сегодняшний день,так где есть 1 (т.е.там где ячейки заполнены) создать папки с именами сотрудников


Плиз..помогите((Ответ нужно как можно быстрее (готова заплатить!)

Есть пример,ниже,но разобраться не могу((

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))
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

[EducatedFool]

Так пример кода вроде рабочий

можно еще так попробовать:

Sub tt()
    Const ROOT = "d:\"        'заменить на свой путь
    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

не понял, в чем конкретно вам нужна помощь...

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

Да,код рабочий,но мне нужно подогнать этот код под свою программу,исходя из графика xls
в графике xls расположен лист "mails",а ячейке А1 автоматически формируются эл.почты сотрудников,кто работает в это день.Т.е.выделить заполненную ячейку А1 и создать папки с этими именами.Либо на листе "График"выбрать сегодняшний день,так где есть 1 (т.е.там где ячейки заполнены) создать папки с именами сотрудников

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

[Hugo121]

Было уже - но так и не поняли что нужно...
http://www.programmersforum.ru/showthread.php?t=275249

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

По заданию необходимо создать новые папки с именами сотрудников
В документе xls есть график сотрудников,посменно(т.е. число 1 означает что он выходит на работу)Допустим что сегодня 19 апреля,из графика видно что 19 апреля на работу выходя 2 человека:Скорик и Кузнецов.Вот для этих 2-ух человек и нужно создать 2 папки(наименование папки:фамилия сотрудника).Завтра 20апреля,значит на завтра нужно создать новые папки,только для других сотрудников(исходя из графика xls).Каждый день должны создаваться новые папки с именами сотрудников

Думаю так понятнее объяснила...)
Пожалуйста,помогите решить эту задачку,в долгу не останусь))

[IgorGO]

папки Скрик и Кузнецов необходимо создать в папке 19.04.2015, так?

а где необходимо создать папку 19.04.2015? или где ее искать?

[Hugo121]

Так если код рабочий - что нужно то?
Если лишняя дата в пути - ну уберите...

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

Поместить эти новые папки :Кузнецов и Скорик можно на рабочем столе (без разнице где)Главное в паку с новой датой 19.04.2015г.

Сегодня 19 апреля,значит на рабочем столе должна быть папка с именем :19.04.2015,заходим в эту папку и видим 2 новые папки с именами :Скорик и Кузнецов

Как только настанет завтрашний день,20 апреля 2015г.,на рабочем столе снова должна быть папка с именем :20.04.2015,заходим в эту папку и видим новые папки с именами новых сотрудников (исходя из графика xls)

И так на каждый день на каждый день...


P.S.Hugo121.На примере который Вы написали немного другое,если сможе исправьте,по моему заданию.Вроде оно легкое,но исправить не могу(либо до конца не понела либо сообразительности не хватило),поэтому Вашей помощи попросила...

[IgorGO]

Игорь, смотри.
простая задача - убери лишний пункт:

1. ランド
2. 水を
3. ウォッカ
4. 火災

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

У меня появляются иероглифи((где 1,2,3,4 возможно Вы написали в другом наборе символов,у меня не отображается((

1. ランド
2. 水を
3. ウォッカ
4. 火災
____________