Последовательные заголовки папок Excel VBA

Question

Я действительно новичок в Excel VBA и пытаюсь создать кнопку для открытия папки с 2 подпапками в указанном месте. Сложность, с которой я сталкиваюсь, заключается в том, что я хочу, чтобы основные папки были названы последовательно (считая от AN0001 до AN0002 и т. Д.), При этом он проверяет, существует ли предыдущая папка, и автоматически создает следующую новую.

Пока все, что у меня есть, это:

Sub CREATE_FOLDER()

MkDir "\\mcbrishrfs01\Shared\Marketing\Business Insight\Costing\Cost Tracker\Email and PDF\AN0001"
MkDir "\\mcbrishrfs01\Shared\Marketing\Business Insight\Costing\Cost Tracker\Email and PDF\AN0001\Email"
MkDir "\\mcbrishrfs01\Shared\Marketing\Business Insight\Costing\Cost Tracker\Email and PDF\AN0001\PDF"

End Sub

Который будет создавать папку AN0001 только при условии, что она еще не существует, с тем же именем каждый раз.

В подпапках должны оставаться «Электронная почта» и «PDF» для каждого номера AN.

Answer 1

Использовано следующее:

Sub MakeFolder()

For Each cell In Selection MkDir "O:\Marketing\Business Insight\Costing\Cost Tracker\Email and PDF\" & cell.Value MkDir "O:\Marketing\Business Insight\Costing\Cost Tracker\Email and PDF\" & cell.Value & "\Email" MkDir "O:\Marketing\Business Insight\Costing\Cost Tracker\Email and PDF\" & cell.Value & "\PDF" Next cell

End Sub

Поскольку имена файлов основаны на полях в исходном документе.

Answer 2

Попробуйте, вы можете изменить «36» в цикле в зависимости от того, сколько папок вы хотите, этот код дает вам 35 папок с электронной почтой и pdf внутри каждой:

 Sub CREATE_FOLDER()

 i = 1

 Do While i < 36

     MkDir "\\mcbrishrfs01\Shared\Marketing\Business Insight\Costing\Cost Tracker\Email and PDF\AN000" + Str(i)
     MkDir "\\mcbrishrfs01\Shared\Marketing\Business Insight\Costing\Cost Tracker\Email and PDF\AN000" + Str(i) + "\Email"
     MkDir "\\mcbrishrfs01\Shared\Marketing\Business Insight\Costing\Cost Tracker\Email and PDF\AN000" + Str(i) + "\PDF"

     i = i + 1

 Loop

 End Sub