Excel (VBA) создать папку

[vik85]

Не знаю возможно ли это вообще, если возможно то хелп.
Короче есть у меня задумка как можно автоматизировать немного свою работу, но найти ответ пока не удальсь. Суть вопроса такова, каждый месяц мне нужно создавать папку в таком формате: "Акты разногласий +номер текущего месяца+ текущий год" (допустим на диске С:/ в папке темп), в которой будут в последующем сохраняться файлы эксель (по средствам кнопки "сахранить как") само-сабой исходником для всех этих файлов является один и тотже экселевский файл, скажем так называемая форма.
Возможно-ли, чтоб допустим 28 числа каждого месяца (чтоб не ламать голову, если месяц будет короткий - февраль) при открытии, или при закрытии книги-"формы" создавалась папка в нужном месте с нужным именем. Причем если можно учесть тот факт что книга-форма ипользуется очень часто, и при кажом открытии или закрытии если она будет создавать новую папку ВИНДОВС не мучал лишними вопросами, типа папка существует заменить.
Если есть какие-нибудь идеи, то подскажите, буду очень благодарен.
Если нужно будет могу прикрепить потом сам файл.

[alyon_ka]

Здравствуйте! эту тему лучше было бы вам разместить в - Microsoft Office Excel - эту тему просматривают как раз специалисты в этих вопросах - быстрее бы получили бы ответ.

Dim fs As New FileSystemObject

Sub CrFolder()
fn = "C:\temp\" & "Акты разногласий_" & Month(Now) & "_" & Year(Now)
If Not fs.FolderExists(fn) Then ' если такая папка не существует в этом месте
    Set fll = fs.CreateFolder(fn) 'то создаем ее
Else
    fll = fn ' в противном случае переменная  fll будет содеждать ссылку на эту (уже существующую) папку
End If
End Sub

вот код который создает папку, только убедитесь что у вас на диске С есть папка temp, и еще нужно установить в меню Tools-References - ссылку Microsoft Scripting Runtime