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

[IgorGO]

возможно в файле дописано: 'заменить на свой путь "Не возражаю!" и подпись

[Hugo121]

Ну а если там вдруг не Worksheets("График"), а Worksheets("Грaфик") или Worksheets("Гpафик") или ещё какое другое сочетание невозможного возможного?

[IgorGO]

Игорь, насколько помню офис англоязычный и 2003, может и Windows на английском?

скажи, это нашло путь к Рабочему столу?

Function DeskTopPath() As String
  DeskTopPath = Environ("HOMEDRIVE") & Environ("HOMEPATH") & Application.PathSeparator _
  & CreateObject("WScript.Shell").RegRead("HKCU\Software\Microsoft\Office\" & _
  Application.Version & "\Common\General\DeskTop") & Application.PathSeparator
End Function

[Hugo121]

Неа..
C:\\Desktop\

[Hugo121]

Вот это работает (только без слэша в конце если что):

Debug.Print CreateObject("WScript.Shell").SpecialFolders("Desktop")

[IgorGO]

Environ("HOMEPATH") - потерялся, чего бы это?
а со SpecialFolders - гораздо проще. не добрался до этого вчера

[Hugo121]

Да, от HOMEPATH только один слэш...
Ну эти переменные тут админы могли как угодно накрутить.

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

Игорь,извините если не точно описала задачу...
1.График сотрудников заполняется один раз в месяц,каждый день его открывать не надо.Следовательно чтобы узнать когда наступил новый день,нужно обратится в системное время на компьютере.Как только на компьютере установилась дата 00:00,значит начался новый день.
Возможно ли,взять дату из системного время на компьютере?

2.После тогда на компьютере начался новый день 00:00,мы обращаемся к графику.И ищем там сегодняшнею дату.К примеру:на компьютере установлена дата 21 апреля 2015г.время 00:00,значит начался новый день,заходим в график и ищем ячейку с датой 28.Нашли данную ячейку,теперь смотрим,что в этот день работаю 2 человека:Попкова и Антонова.Для этих 2-ух человек и создаем новую папку.


И так на каждый день.Сначало смотрим дату на компьютере,если начался новый день ищем из графика....
P.S.На данном листе "График"нету не каких формул,1-ца означает,что человек выходит на работу в смену (вместо 1-цы можно любой другой иероглиф поставить)

[Hugo121]

Вот совершенно точно так и делает мой код. Проверено на моём примере ещё в той теме.
Только конечно запуск макроса каждый день в 00:00 - это нужно или в планировщик забить, или ночного дежурного напрягать.
А вообще это зачем - если график создаётся раз в месяц, то сразу циклом от 1 до 31 и генерите все эти папки.

[IgorGO]

извините, я больше не могу в ЭТОМ участвовать.

удачи!