Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
групповое Переименование с добавлением значения
 
#1
11.11.2013 00:25:48
Здравствуйте уважаемые. Подскажите пожалуйста, Как можно в excel сделать групповое переименование, типа как в тотал командере
было у меня 100 картинок сделал я их в командере
img.jpg
img1.jpg
img2.jpg
...img100.jpg

Теперь мне нужно в таблице excel сделать столбец с указанием всех этих картинок списком url
к примеру
первая ячейка img.jpg
Как мне привести к виду
/img1.jpg
/img2.jpg
.../img100.jpg

в таблице либо в другом любом текстовом редакторе.
чето не могу уже часа два найти решения.
 
 
 
#2
11.11.2013 01:07:33
книгу в папку с картинками или поправить путь
Код
?
1
2
3
4
5
6
7
8
9
Sub uuu()
    i = 1
    x = Dir(ThisWorkbook.Path & "\*.jpg")
    Do While x <> ""
        Cells(i, 1) = "...\" & x
        i = i + 1
        x = Dir()
    Loop
End Sub
 
 
 
#3
11.11.2013 01:16:07
Цитата
agentwpc74 пишет:
чето не могу уже часа два найти решения.
Посмотрел и на каждом сайте есть подобные примеры )
 
 
 
#4
11.11.2013 02:33:14
спасибо. значит не правильно искал, или уже не соображаю
 
 
 
#5
11.11.2013 03:36:48
а еще одно. чтоб темы не плодить.

сортировка. я создал этот макрос все агонь получилось. дальнейший вид я уже смогу привести как надо. но мне нужно отсортировать. чтобы он не сопоставлял числа к 1 -10-11 а делал все по возрастанию 1-2...-9-10-11
у меня получилось вот так
...\Nakl39.jpg
...\Nakl4.jpg
...\Nakl40.jpg
...\Nakl5.jpg
...\Nakl6.jpg


Это впринципе не проблема можно ручками. но я планирую подгружать несколько тысяч позиций. и это уже будет очень проблемно
Изменено: agentwpc74 - 11.11.2013 03:37:50
 
 
 
#6
11.11.2013 15:05:16
Если все файлы имеют одинаковое название (кроме цифры) можно так: взять только цифры, отсортировать и добавить остальной текст. Может кто в пару строк умеет, но это не я )
Скрытый текст
 
 
 
Страницы: 1
Читают тему
Loading...