Как создать папку в директории файла с макросом?

[Bananovyy]

Как создать папку в директории файла с макросом?

Нижеприведенный код сохраняет два листа файла в той же директории, где находится сам файл:
Sheets("Лист1").Copy
Sheets("Лист1").SaveAs Filename:=ThisWorkbook.Path & "\" & "Файл такой-то №1"
Sheets("Лист1").Parent.Close
Sheets("Лист2").Copy
Sheets("Лист2").SaveAs Filename:=ThisWorkbook.Path & "\" & "Файл такой-то №2"
Sheets("Лист2").Parent.Close

Как в директории файла создать новую папку и сохранить все листы там?!?

[iGrok]

MkDir Statement


Creates a new directory or folder.

Syntax

MkDir path

The required path argument is a string expression that identifies the directory or folder to be created. The path may include the drive. If no drive is specified, MkDir creates the new directory or folder on the current drive.

[Bananovyy]

MkDir Statement


Creates a new directory or folder.

Syntax

MkDir path

The required path argument is a string expression that identifies the directory or folder to be created. The path may include the drive. If no drive is specified, MkDir creates the new directory or folder on the current drive.

Чтож Вы Все справки мне вставляете, они у меня тоже все есть… но только по ней получается папку создать ЛИБО! в Моих документах, если путь не прописывать или же где угодно, НО! с прописанием полного пути…

Необходимо же создать эту папку в директории файла из которого мы макрос запустили!!!
Например макрос запустили из:
С:\####\$$$$\&&&&\Книга1.xls

Необходимо в папке «&&&&» создать папку «ноябрь» и там уже насохранять кучу листов… БЕЗ ПОЛНОГО УКАЗАНИЯ ПУТИ!!! Мало ли кто этот файл потом откуда запустит…

Для сохранения файлов в этой же директории это реализуется через: ThisWorkbook.Path
Как сюда красиво вписать папочку Х.З!

[iGrok]

А если немного подумать?

Что тебе возвращает ThisWorkbook.Path ?
Что принимает аргументом MkDir ?

[alibek]

Не пробовал включить мозг?
MkDir ThisWorkbook.Path & "\" & "subdir"

[Bananovyy]

Не пробовал включить мозг?
MkDir ThisWorkbook.Path & "\" & "subdir"

Ну я же не такой "большой человек" как ты)))
... и мозг мой соответственно не таких размеров)))

БОЛЬШОМУ ЧЕЛУ - БОЛЬШУЩЕЕ СПАСИБО!!!