На информационном ресурсе применяются cookie-файлы. Оставаясь на сайте, вы подтверждаете свое согласие на их использование.
ЕКСЕЛЬ!!! Кто чем может...
2644
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
Но оно работает!
Сейчас читают
где познакомиться в Новосибирске с приличным парнем? (часть 2)
226410
1000
Вы видели 30-35-летних, выглядящих на 20-25 лет? (Часть 5)
332042
999
дневной дозор )))
119771
1000
Оптимизируем:
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
Зашибись! А теперь озадачься мыслью, что создавать надо не папку, а дерево, если парента нет на диске