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

@Екатерина55 · Регистрация: 09.01.2015

Author24 — интернет-сервис помощи студентам

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

@petr-sev · 26.03.2015, 18:30

Visual Basic

Private Sub Workbook_Open()
Dim objFS As Object
Set objFS = CreateObject("Scripting.FileSystemObject")
 
Dim nameDir As String
nameDir = Me.Path & "\" & Date
 
If Not objFS.FolderExists(nameDir) Then
   MkDir nameDir
   With Me.Sheets("График сотрудников")
   Dim I As Long
   For I = 3 To .UsedRange.Rows.Count
       If .Cells(I, 1) <> "" Then
          MkDir nameDir & "\" & .Cells(I, 1)
       End If
   Next
   End With
End If
Set objFS = Nothing
End Sub

код должен располагаться в модуле ЭтаКнига, это ВАЖНО!
действия будут выполняться не в начале нового дня (на VBA такое не делается), а при первом (за день) открытии книги

	26.03.2015, 18:30