12°C
завтра: 5°C
Погода в Перми
12°C
вечером12°C
ночью4°C
завтра5°C
Подробно
 63,96
−0.1086
Курс USD ЦБ РФна 20 апреля
63,9602
−0.1086
 71,92
−0.3208
Курс EUR ЦБ РФна 20 апреля
71,9232
−0.3208
  • guru

    Сообщений: 3774

    Вобщем тема такая:
    В excel есть столбец с наименованиями чего либо. Напимер:

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

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

    КАК ЭТО СДЕЛАТЬ! Есть ли встроенная в excel функция автоматического создания папок? Скрипты писать не умею....:хммм:

    "...Я Родину люблю..."

  • wii-й

    Сообщений: 31769

    Нету... Только VBA

    Фантастические твари. Теперь вы знаете, где они обитают...

  • guru

    Сообщений: 3774

    Тогда закрывайте тему...:хммм:

    "...Я Родину люблю..."

  • veteran

    Сообщений: 1308

    а че, VBA в эксель не встроен?:улыб:

    Все что меня не убивает дает мне рагу

  • guru

    Сообщений: 3774

    НеумеюЯ.......... :ухмылка:

    "...Я Родину люблю..."

  • wii-й

    Сообщений: 31769

    я и имел ввиду, что на васике можно написать...
    а вопрос был про кнопку...

    Фантастические твари. Теперь вы знаете, где они обитают...

  • guru

    Сообщений: 3774

    УРА!
    Теперь я частично знаю 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


    Но оно работает!:улыб:

    "...Я Родину люблю..."

  • v.i.p.

    Сообщений: 13508

    Оптимизируем:

    Private Sub MMM1()
    For i = 2 To 120
    MkDir "D:\Test\" & Cells(i, 1).Text
    Next
    End Sub

  • гундос

    Сообщений: 16232

    Зашибись! А теперь озадачься мыслью, что создавать надо не папку, а дерево, если парента нет на диске

    эгоист - это человек, который думает в первую очередь о себе и только потом обо мне

Записей на странице:

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

Модератор: