Cоздать папку с именем MyFolderName в той же папке, в которой расположен файл формата .xls с VBA-кодом (ThisWorkbook.Path) или на диске C:
Public Const folderName As String = "MyFolderName"
Sub CreateFolder(ws As Worksheet, AutocreateFolders As Boolean)
folderPath = ws.Parent.Path & Application.PathSeparator & folderName 'присвоен путь
'другой вариант - на диск C:
'folderPath = 'c:' & Application.PathSeparator & folderName
If AutocreateFolders Then 'создается при условии AutocreateFolders = True
Dim fs As Object
Set fs = CreateObject("Scripting.FileSystemObject")
If Not fs.folderexists(folderPath) Then 'проверка, если папка уже существует
fs.CreateFolder (folderPath)
End If
End If
End Sub
См. принимаемые значения переменных, включая ThisWorkbook.Path, с помощью Окна Immediate,
например:
