PRM.Форум /Компьютеры Интернет Связь / Программирование /

ЕКСЕЛЬ!!! Кто чем может...

Печать RSS Деревом

maxxx
guru
Сообщений: 3774
27.06.07 13:47
Вобщем тема такая:
В excel есть столбец с наименованиями чего либо. Напимер:

А
___
1 Морковка
2 Капуста
3 Картошка
,,,,,
100 Овощ

Все названия в одном столбце. Необходимо что бы одной кнопочкой создать папки на жестком диске с именами из этого столбца!
Например:
D:\Овощи\Картошка
D:\Овощи\Морковка

КАК ЭТО СДЕЛАТЬ! Есть ли встроенная в excel функция автоматического создания папок? Скрипты писать не умею....
"...Я Родину люблю..."
КопироватьСсылка
Рассказать друзьям
aglow
wii-й
Сообщений: 38528
27.06.07 14:44Ответ на сообщение ЕКСЕЛЬ!!! Кто чем может... пользователя maxxx
Нету... Только VBA
Основной принцип моего существования — служение гуманистическим идеалам человечества!
КопироватьСсылка
Рассказать друзьям
maxxx
guru
Сообщений: 3774
27.06.07 14:49Ответ на сообщение Re: ЕКСЕЛЬ!!! Кто чем может... пользователя aglow
Тогда закрывайте тему...
"...Я Родину люблю..."
КопироватьСсылка
Рассказать друзьям
RNU-2
veteran
Сообщений: 1308
28.06.07 00:47Ответ на сообщение Re: ЕКСЕЛЬ!!! Кто чем может... пользователя aglow
а че, VBA в эксель не встроен?
Все что меня не убивает дает мне рагу
КопироватьСсылка
Рассказать друзьям
maxxx
guru
Сообщений: 3774
28.06.07 08:12Ответ на сообщение Re: ЕКСЕЛЬ!!! Кто чем может... пользователя RNU-2
НеумеюЯ..........
"...Я Родину люблю..."
КопироватьСсылка
Рассказать друзьям
aglow
wii-й
Сообщений: 38528
28.06.07 13:07Ответ на сообщение Re: ЕКСЕЛЬ!!! Кто чем может... пользователя RNU-2
я и имел ввиду, что на васике можно написать...
а вопрос был про кнопку...
Основной принцип моего существования — служение гуманистическим идеалам человечества!
КопироватьСсылка
Рассказать друзьям
maxxx
guru
Сообщений: 3774
29.06.07 15:32Ответ на сообщение Re: ЕКСЕЛЬ!!! Кто чем может... пользователя aglow
УРА!
Теперь я частично знаю VBA Вот такую бяку написал:

Private Sub MMM1()

Dim i As Long
Dim ppk As String
For i = 2 To 120 Step 1
ppk = Cells(i, 1).Text
MkDir "D:\Test\" & ppk
Next i
End Sub

Но оно работает!
"...Я Родину люблю..."
КопироватьСсылка
Рассказать друзьям
Сибиряк
old hamster
Сообщений: 13510
30.06.07 15:46Ответ на сообщение Re: ЕКСЕЛЬ!!! Кто чем может... пользователя maxxx
Оптимизируем:

Private Sub MMM1()
For i = 2 To 120
MkDir "D:\Test\" & Cells(i, 1).Text
Next
End Sub
КопироватьСсылка
Рассказать друзьям
Picaro
гундос
Сообщений: 16286
01.07.07 23:19Ответ на сообщение Re: ЕКСЕЛЬ!!! Кто чем может... пользователя maxxx
Зашибись! А теперь озадачься мыслью, что создавать надо не папку, а дерево, если парента нет на диске
эгоист - это человек, который думает в первую очередь о себе и только потом обо мне
КопироватьСсылка
Рассказать друзьям

PRM.Форум /Компьютеры Интернет Связь / Программирование /

Перейти в форум

открыть в новом окне

Модератор:

flopic