Ощущается как +10

1 м/с южный.

Новая тема

Вы не можете создавать новые темы.
Т.к. вы неавторизованы на сайте. Пожалуйста назовите себя или зарегистрируйтесь.

Список тем

Помогите с макросом. VBA Excel

Нужен совет (поиск решения проблемы. не для купли-продажи)

С друзьями на NN.RU

У вас пока нет друзей на NN.RU, поэтому ссылка на тему не может быть отправлена.

Воспользуйтесь поиском, чтобы найти новых друзей.

В социальных сетях

Dead

01.11.2010

мне надо создавать папки с названием из ячеек эксель
нашел код и маленько его подправил

Sub FormFolder()
Dim fso_ As New FileSystemObject
Dim f_ As Folder
Dim p_ As String

p_ = ThisWorkbook.path & "\" & ActiveCell & "." & ActiveCell.Offset(0, 1) & "." & ActiveCell.Offset(0, 2)

If Not fso_.FolderExists(p_) Then Set f_ = fso_.CreateFolder(p_)
ActiveSheet.Hyperlinks.Add Anchor:=ActiveCell.Offset(0, 3), Address:=p_, TextToDisplay:=p_

End Sub

макрос у меня работает так
в папке где лежит файл эксель создается папка с именем 3х последующих ячеек и в самом экселе пишет путь ссылки на папку

внимание вопрос)

например я только что создал папку
"Том 1.ПЗ.Пояснительная записка"
и хочу чтоб следущая папка "Книга 1.Чертежи" лежала в папке "Том 1.ПЗ.Пояснительная записка"

путь папки "Том 1.ПЗ.Пояснительная записка" записан как текст в одной из ячеек

помогите дописать плиз
спасибо

К сообщению прикреплен файл:
27805175-sozdanie_papok_po_soderzaniu2.xls (37 Kb) Скачать файл

Ответить

Ссылка на сообщение

открыть ссылку в новом окне

В социальных сетях

Dead

02.11.2010

ап небольшой

Ответить

Ссылка на сообщение

открыть ссылку в новом окне

В социальных сетях

тестовый юзер

02.11.2010

я не совсем врубился в логику обхода ячеек, но у меня получился такой код:
Sub FormFolder()
Dim fso_ As New FileSystemObject
Dim f_ As Folder
Dim p_ As String
p_ = ThisWorkbook.Path & ″\″ & Cells(8, ″c″)
If Not fso_.FolderExists(p_) Then Set f_ = fso_.CreateFolder(p_)
p_ = ThisWorkbook.Path & ″\″ & Cells(8, ″c″) & ″\″ & Cells(9, ″c″)
If Not fso_.FolderExists(p_) Then Set f_ = fso_.CreateFolder(p_)

End Sub

т.е., тупо берем из двух ячеек и создаем вложенные папки (разделяя значения ячеек слэшами)

Ответить

Ссылка на сообщение

открыть ссылку в новом окне

В социальных сетях

Dead

02.11.2010

ок, спасибо попробую

Ответить

Ссылка на сообщение

открыть ссылку в новом окне

В социальных сетях

Новая тема

Список тем

Последние темы форумов

Форум Тема (Автор) Последний ответ Ответов

Техно-форум Ютуб грузится, плеер не работает - AT4070 12.05.2025 в 16:32:20 10

Интернет-НН Пользуется ли кто-то домашним интернетом Мегафона? - Мильгаф 08.05.2025 в 19:06:31 21

Мобильный форум Есть ли безлимитные тарифы? - V.Bond 30.04.2025 в 17:44:45 14

Технотуса ПАС в акустике - REPTe 06.02.2025 в 13:52:11 1

Техно-объявления мониторы за самовывоз - jurok69 28.10.2024 в 09:15:22 10

Объявления на НН.РУ - Техника

Добавить объявление

Оперативная память Corsair XMS3 CMX8GX3M2A1600C9

Оперативная память Corsair XMS3 CMX8GX3M2A1600C9 Отправка в регионы после оплаты. Продаются сразу обе. Цена за обе 2000 руб....
Цена: 1 000 руб.

Материнские платы на запчасти и не только

Материнские платы на запчасти и не только Материнские платы и другие комплектующие Отправка в регионы после оплаты. Транспортной...
Цена: 3 000 руб.

Принтер лазерный HEWLETT PACKARD HP-6L

Принтер лазерный HEWLETT PACKARD HP-6L Отправка в регионы после оплаты. 3штуки БУ. Внешний вид из магазина простояли на складе...
Цена: 4 500 руб.

Сетевой фильтр APC Surge Arrest

Сетевой фильтр APC Surge Arrest для радиолюбителя.и не только Отправка в регионы после оплаты. ЦЕНА 3000 руб. В рабочем состоянии....
Цена: 3 000 руб.