При запуске сразу подчеркивает MkDir как "Wrong number of argument or invalid property assignment"
Переписывал уже двадцать раз в разных вариациях. Все равно MkDir подчеркивает ошибкой....
Помогите пожалуйста уважаемые форумчане.
| Код |
|---|
Sub CreateFolderFromCell()
Dim folderName As String
' Получаем значение из активной ячейки A1 текущего листа
folderName = ActiveSheet.Range("A1").Value
If Len(folderName) > 0 Then
On Error Resume Next
' Пробуем создать папку с данным именем
MkDir ThisWorkbook.Path & "\" & folderName
If Err.Number <> 0 Then
MsgBox "Ошибка при создании папки: " & Err.Description
Else
MsgBox "Папка успешно создана!"
End If
Else
MsgBox "Название папки не введено."
End If
End Sub |
