На информационном ресурсе применяются cookie-файлы. Оставаясь на сайте, вы подтверждаете свое согласие на их использование.
ЕКСЕЛЬ!!! Кто чем может...
2818
8
maxxx
guru
Вобщем тема такая:
В excel есть столбец с наименованиями чего либо. Напимер:
А
___
1 Морковка
2 Капуста
3 Картошка
,,,,,
100 Овощ
Все названия в одном столбце. Необходимо что бы одной кнопочкой создать папки на жестком диске с именами из этого столбца!
Например:
D:\Овощи\Картошка
D:\Овощи\Морковка
КАК ЭТО СДЕЛАТЬ! Есть ли встроенная в excel функция автоматического создания папок? Скрипты писать не умею....
В excel есть столбец с наименованиями чего либо. Напимер:
А
___
1 Морковка
2 Капуста
3 Картошка
,,,,,
100 Овощ
Все названия в одном столбце. Необходимо что бы одной кнопочкой создать папки на жестком диске с именами из этого столбца!
Например:
D:\Овощи\Картошка
D:\Овощи\Морковка
КАК ЭТО СДЕЛАТЬ! Есть ли встроенная в excel функция автоматического создания папок? Скрипты писать не умею....
я и имел ввиду, что на васике можно написать...
а вопрос был про кнопку...
а вопрос был про кнопку...
УРА!
Теперь я частично знаю 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
Но оно работает!
Теперь я частично знаю 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
Но оно работает!
Сейчас читают
Нумизматика или коллекционирование монет (часть 4)
392282
1000
Бумажные деньги (для коллекционеров купюр)
955269
904
Свадьба за 50 т.р. или на чем можно сэкономить
222567
258
Оптимизируем:
Private Sub MMM1()
For i = 2 To 120
MkDir "D:\Test\" & Cells(i, 1).Text
Next
End Sub
Private Sub MMM1()
For i = 2 To 120
MkDir "D:\Test\" & Cells(i, 1).Text
Next
End Sub
Зашибись! А теперь озадачься мыслью, что создавать надо не папку, а дерево, если парента нет на диске
ТОП 5