ЕКСЕЛЬ!!! Кто чем может...
2552
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
Но оно работает!
Сейчас читают
Nikon
330214
746
фотошкола или личный фотограф
27611
198
Возможно ли счастье в Сибири?
160811
668
Оптимизируем:
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
Зашибись! А теперь озадачься мыслью, что создавать надо не папку, а дерево, если парента нет на диске