Как создавать папки из электронной таблицы Excel

Электронные таблицы Excel могут помочь вам автоматизировать задачу создания нескольких папок. Одним из способов создания папок является создание сценария с использованием диапазонов данных и пакетной команды «md». Другой метод заключается в использовании макроса с помощью функции MkDir, компонента Microsoft Excel VBA. Это обеспечивает гибкость и требует меньше времени. Включите в электронную таблицу только правильные имена папок, чтобы эти методы работали. Имена папок не должны содержать кавычек или каких-либо символов "," "/", ":", "*", "?"," "<", ">" и "|."

Использование пакетного файла

Шаг 1

Расположите имена папок в одном столбце. Нажмите на заголовок столбца и введите "FOLDERNAMES" в поле имени рядом с панелью формул.

Шаг 2

Добавьте пустой столбец слева от столбца "FOLDERNAMES", щелкнув правой кнопкой мыши заголовок столбца и выбрав "Вставить".

Шаг 3

Выделите первую ячейку в пустом столбце. Введите следующий текст в строку формул и скопируйте его в другие пустые ячейки.

="md "&ИМЕНА ПАПОК

Шаг 4

Откройте текстовый редактор и создайте пустой документ. Скопируйте и вставьте приведенный ниже код в начало файла. Замените «C:\Temp» полным путем к каталогу, в который вы хотите добавить папки. Например, чтобы добавить папки в «Песни» на диске «D», используйте путь «D:\Songs».

@echo off cd "C:\Temp"

Шаг 5

Вернитесь к своей книге Excel. Щелкните правой кнопкой мыши заголовок столбца, содержащего формулы «md», и выберите «Копировать». Вернитесь в текстовый редактор и вставьте значения в конец файла. Теперь ваш файл должен выглядеть примерно так:

@echo off cd "c:\Temp" md имя_папки1 md имя_папки2 ..

Шаг 6

Сохраните файл на рабочем столе как «CreateFolders.bat». Перейдите на рабочий стол и запустите пакетный файл, дважды щелкнув его значок. Теперь ваши папки готовы к использованию.

Использование макроса

Шаг 1

Откройте книгу Excel. Удерживая нажатой клавишу «Alt», нажмите «F8», чтобы открыть окно макросов.

Шаг 2

Введите «MakeFolders» в поле «Имя макроса» и нажмите кнопку «Создать». Откроется редактор VBA.

Шаг 3

Скопируйте и вставьте в редактор следующий макрос:

Подпрограмма MakeFolders()

Dim Rng As Range Dim maxRows, maxCols, r, c As Integer

Установите Rng =Выбор

maxRows =Rng.Rows.Count maxCols =Rng.Columns.Count

For c =1 To maxCols r =1 Do While r <=maxRows If Len(Dir(ActiveWorkbook.Path &"" &Rng(r, c), vbDirectory)) =0 Then MkDir (ActiveWorkbook.Path &"" &Rng (r, c)) При ошибке Возобновить следующий конец Если r =r + 1 Цикл Следующий c

Конец подписки

Шаг 4

Сохраните файл как книгу с поддержкой макросов, открыв меню «Файл» и выбрав «Сохранить как». Введите предпочтительное имя файла и выберите «Книга Excel с поддержкой макросов» рядом с «Сохранить как тип файла». Нажмите кнопку "Сохранить".

Шаг 5

Выделите ячейки, содержащие имена папок. Удерживая нажатой клавишу «Alt», нажмите «F8», чтобы открыть окно «Макросы». Дважды щелкните «MakeFolders». Теперь папки готовы к использованию.

Совет

Макрос создает папки в том же каталоге, что и ваша активная книга. Чтобы создать папки в каталоге, содержащем книгу с поддержкой макросов, замените все экземпляры «ActiveWorkbook» в коде на «ThisWorkbook».

Предупреждение

Если вы используете Microsoft Excel 2007, у вас может не быть доступа к окну «Макросы» и вкладке «Разработчик» по умолчанию. Чтобы включить это, нажмите на шар Microsoft Office и выберите «Параметры Excel». Нажмите «Популярные» на панели «Категория» и выберите «Показать вкладку «Разработчик» на ленте». Нажмите "ОК", чтобы сохранить изменения.