Как создать папку в excel

Как создать папку в excel

Как известно, VBA-функция MkDir может создать только папку в существующем каталоге (папке).

Например, код MkDir "C:Папка" отработает корректно в любом случае (создаст указанную папку),
а код MkDir "C:ПапкаПодпапкаКаталог" выдаст ошибку Run-time error ’76’: Path not found
(потому что невозможно создать каталог Подпапка в несуществующем ещё каталоге Папка)

Можно, конечно, использовать несколько функций MkDir подряд — но это усложняет код.

Самый простой способ решения проблемы — использование WinAPI-функции SHCreateDirectoryEx, которая может создать все нужные папки и подпапки за один запуск.

Пример использования функции SHCreateDirectoryEx:

  • 51805 просмотров

Комментарии

а что делать если на такую строку кода:

Declare function SHCreateDirectoryEx Lib "shell32" Alias "SHCreateDirectoryExA" (ByVal hwnd As Long, ByVal pszPath As String, ByVal psa As Any) As Long

система реагирует ошибкой : Sub or function not defined?

Красиво, но в макросах Outlook не завелось.
Написал через FileSystemObject

Вася молодец! набросал себе процедуру для создания подкаталогов. Лишний раз API дёргать не буду.

Тот же макрос, только надо первую строку написать так:

Здравствуйте, а для 64-битного офиса есть такие фишки?

Скажите пожалуйста , а как ещо добавить гиперлинк на созданую папку

Большое спасибо, очень помогли.

вариант без всяких лишних Declare:

Sub mkdir2(Путь$)
Set FSO = CreateObject("Scripting.FileSystemObject")
a = Split(Путь, "")
For i = 0 To UBound(a)
If a(i) <> "" Then
aa = aa & a(i) & ""
If FSO.FolderExists(aa) = False Then MkDir aa
End If
Next
End Sub

Спасибо Вам, попробую.

Здравствуйте, Иван.
Это не вопрос, это задание. Вопроса не вижу.

Вам на форуме не ответили по той же причине, — нет никакой конкретики (что именно у вас не получается)

Вот готовый код, — его надо только вставить в ваш файл, и запустить Макрос_который_нужно_запускать:

Читайте также:  Имя сбойного приложения mstsc exe

Сразу говорю, — если у вас не получится вставить макрос в свой файл, или запустить его, — помогать бесплатно не буду.

Доброго времени суток. У меня такой ворос. на диске D необходимо создавать папки из столбца А
(А1= папка1подпапка2
А2= папка2подпапка 3подпапка 4
и т.д.)

Друзья!
Такая ситуация:
Необходим создавать на диске D: папки и подпапки по значению ячеек двух соседних столбцов:
НАПРИМЕР:
D:папкаподпапка
если "папка"=А1. 100000, а "подпапка"=В1. 100000

В операционной системе Windows создавать папки можно самыми различными способами. Создать несколько папок вручную ни для кого не составит труда. Рассмотрим тот случай, когда необходимо создать множество папок с определенными именами.

Пакетное создание папок при помощи сторонних программ

Для массового создания папок можно использовать сторонние программы, макросы и надстройки. У каждого из этих способов есть свои плюсы и минусы. Например, не на каждом рабочем месте есть возможность самостоятельной установки сторонних приложений, а найдя во всемирной сети программный код макроса, многие не знают что с ним делать, либо при определенных условиях, макрос может выдавать ошибки и вводить пользователей в ступор.

Быстрое создание папок при помощи надстройки для Excel

Быстро создавать любое количество папок можно без использования сторонних программ при помощи Excel. Поскольку стандартный Excel создавать папки не умеет, необходимо установить надстройку (не путать с настройкой), которая расширит его возможности. После установки надстройки (это такая программа, написанная на встроенном в приложения Office языке программирования VBA) на ленте Excel появляется новая кнопка на вкладке «Надстройки» (если такой вкладки на ленте нет, то и сама вкладка также появляется после установки надстройки). Нажатие этой кнопки вызывает диалоговое окно (пользовательскую форму), в котором можно задать некоторые параметры создания новых папок.

Читайте также:  Как пользоваться пайпал в россии

В диалоговом окне необходимо указать путь к папке, в которой будут генерироваться новые папки. Имена папкам задаются на основе значений ячеек, поэтому необходимо указать диапазон ячеек, либо несколько диапазонов (удерживая клавишу Ctrl нажатой), либо несколько отдельных ячеек. При этом для имен папок в Windows существуют ограничения. В именах папок не должно быть запрещенных символов, таких как: /:*?"<>|. Если в значениях ячеек такие символы все же есть, то программа их отследит и исключит из имен папок, оставив значения в самих ячейках без изменений. Предусмотрена возможность замены запрещенных символов на какой-либо другой символ, заданный пользователем. Для быстрого открытия созданных папок в надстройке предусмотрена возможность создания гиперссылок.

При необходимости вы можете создавать папки, чтобы облегчить поиск электронных документов в архиве. Например, логично будет создать отдельные папки для хранения заметок, информации о встречах, контактах и планах:

1. Щелкнув по кнопке со стрелкой рядом с кнопкой Создать (New) на Стандартной панели инструментов, выберите пункт Папка (Folder);

Выполните команды меню Сервис Организовать (Tools Organize) и нажмите кнопку Новая папка (New Folder) на панели Настройка (Organize).

2. В открывшемся диалоговом окне введите имя папки и выберите тип документов, сохраняемых в ней, из раскрывающегося списка Содержимое папки (Folder Contains) — рис. 39.6.

3. Выберите папку, внутрь которой будет помещена новая папка. Если вы хотите, чтобы она располагалась на одном уровне с другими, на этапе 2 выделите в списке пункт Личные папки (Personal Folders).

4. Нажмите ОК. Новая папка появится в списке Все почтовые папки в Области переходов (рис. 39.7).

Вы можете завести новую папку другим способом: нажмите кнопку Создать в диалоговом окне Перемещение элементов (Move Items) — рис. 39.5.

Ссылка на основную публикацию
Как создать группу сообщений в контакте
Привет! Сегодня я покажу вам как сделать сообщения в группе ВК. Вы можете включить сообщения, чтобы любой желающий мог написать...
Как скопировать контакты с айфона на самсунг
Многие сегодня ищут информацию как перенести контакты с Айфона на Самсунг, ведь эти марки являются главными конкурентами в своей сфере....
Как скопировать контакты со старого телефона
Здравствуйте. Мы начали жить в такое время, когда информация, хранимая на телефоне или ПК, стала стоить дороже, чем само железо....
Как создать дополнительную страницу в контакте
В этой статье мы с вами научимся, как создать страницу в контакте пошагово, а также я расскажу вам несколько секретов....
Adblock detector