|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
06.11.2008, 23:26 | #1 |
Пользователь
Регистрация: 11.08.2008
Сообщений: 17
|
Найти названия файлов из Excel
Всем привет.
Хочу жене облегчить работу, а именно: Есть Excel файл например со столбцом: 1 2 4 5 6 9 10 И есть папка с десятью файлами D:\Foto\*.jpeg, названия которых 1.jpeg; 2.jpeg; 3.jpeg; ..... 9.jpeg; 10.jpeg; Так вот!!! Есть ли такая возможность, чтобы при нажатии кнопки в Excel(возможно сделанного модного макроса) он выбирал файлы из папки D:\Foto\ и копировал только нужные (те, которые в столбце Excel) в папку, например D:\Foto\1\ P.S. просто это пример. а на самом деле файлов через день порядка 1500-2000 тысячи и она сидит и около часа выбирает. Заранее спасибо за любую помощь. |
06.11.2008, 23:31 | #2 | |
Старожил
Регистрация: 12.05.2007
Сообщений: 2,339
|
Цитата:
Picasa - программа-органайзер ваших фотографий и видеоматериалов. Это программное обеспечение, с помощью которого Вы можете искать, просматривать, редактировать, печатать фотографии и обмениваться ими, превращать фотографии в "фильм" или коллаж, создавать слайд-шоу и многое другое. -Программа сканирует весь винчестер или указанные пользователем папки, индексирует все фотографии, графику и видео файлы, сортирует их в визуальные альбомы, упорядоченные по датам, так что потеряться ни одной картинке не удастся.......... |
|
06.11.2008, 23:36 | #3 |
Пользователь
Регистрация: 11.08.2008
Сообщений: 17
|
Дело в том, что я не ищу какой-то органайзер для личной коллекции фоток. Жена моя - фотограф. И к ней когда приходит заказ на 900 фоток из 1200, то надо выбрать эти 900 и сделать. Поэтому я думаю что эта програмулина мне не подойдет. Хотя все равно спасибо. Сейчас скачаю и ознакомлюсь....
P.S. А по поводу Excel нет пока вариантов? |
07.11.2008, 03:17 | #4 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
Код:
Для приведённого Вами примера первые 2 строки макроса будут иметь вид: Const SourceFolder = "D:\Foto\" Const DestinationFolder = "D:\Foto\1\" После этого выделите диапазон ячеек, содержащих имена файлов, и запустите этот макрос. Если папки DestinationFolder не существует, она будет создана. Макрос перемещает указанные файлы (из одной папки в другую), а не копирует их - так получается намного быстрее (если, конечно, папки SourceFolder и DestinationFolder расположены на одном диске). При желании по окончании работы макроса можно вручную выделить все файлы в папке DestinationFolder, и скопировать их в SourceFolder. Конечно же, это легко реализуется и в макросе (если нужно). Ячейки, содержащие имена файлов, которые удалось успешно переместить, будут окрашены в зелёный цвет. PS: В принципе, несложно организовать запрос у пользователя расположения исходной и конечной папок, а также диапазона ячеек, содержащих имена файлов. Так же можно перемещать \ копировать только файлы определённых типов (например, jpeg). Если это надо, опишите задание более подробно.
__Полезные надстройки для Excel. Парсинг сайтов и файлов.
Макросы любой сложности на заказ. Мониторинг цен конкурентов Последний раз редактировалось EducatedFool; 07.11.2008 в 03:58. |
07.11.2008, 10:37 | #5 |
Пользователь
Регистрация: 11.08.2008
Сообщений: 17
|
Супер!!! спасибо. только вот вопрос первый. Где тот момент, в котором написано копировать либо вырезать (я хочу чтобы оно всетаки копировались)? И втором момент. Можно ли чтобы при нажатии кнопки макоса он спрашивал на какую папку "смотреть" и в какую копировать? Просто каждый раз это разные папки и изменять макрос не сильно хочется.
|
07.11.2008, 11:14 | #6 | |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
Перемещение файла производится строкой
Name SourceFolder & Filename As DestinationFolder & Filename Точнее, файл переименовывается из "D:\Foto\1.gpeg" в "D:\Foto\1\1.gpeg", то есть фактически происходит перемещение файла из одной папки в другую. Чтобы производилось копирование, замените строку Name SourceFolder & Filename As DestinationFolder & Filename на строку FileCopy SourceFolder & Filename, DestinationFolder & Filename Цитата:
Выбор папки будет производится примерно так: Код:
__Полезные надстройки для Excel. Парсинг сайтов и файлов.
Макросы любой сложности на заказ. Мониторинг цен конкурентов Последний раз редактировалось EducatedFool; 07.11.2008 в 11:24. |
|
07.11.2008, 12:31 | #7 |
Пользователь
Регистрация: 11.08.2008
Сообщений: 17
|
Все ок. Тоько есть две проблемы:
1) Названия файлов в папке всегда такие 0000.jpeg; 0001.jpeg. Т.е. четыре знака. Когда в Excel пишу 1, 2, 3 и т.д. либо 0001, 0002, 0003 (нули высвечиваются только при формате ячеек "табельный"). а файлы назваются 1, 2, 3, то все работает. Но стоит мне файлы переименовать на 0001, 0002, 0003 (как должно быть) - НИЧЕГО не получается. 2) Последний код я немогу правильно прикрутить к существующему коду. Он меня спрашивает какую папку выбрать и все. Огромное спасибо за помощь!!!! |
07.11.2008, 12:33 | #8 | |
Пользователь
Регистрация: 11.08.2008
Сообщений: 17
|
Цитата:
А вот п поводу выбора папки еще очень надо..... Последний раз редактировалось АLексаNдр; 07.11.2008 в 13:10. |
|
07.11.2008, 16:37 | #9 | |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
Попробуйте такой код:
Код:
Цитата:
Кроме того, вместо изменения формата ячейки, Вы можете перед набором цифр ввести ' (одинарную кавычку), то есть, набрав '0002, в ячейке Вы получите текст 0002. |
|
07.11.2008, 17:37 | #10 |
Пользователь
Регистрация: 11.08.2008
Сообщений: 17
|
По поводу нулей я уже разобрался. Спасибо.
По поводу последнего кода он вроде немного не работает, но я из всех слепил один и он прекрасно работает. Огромны респект умным людям Вот, кстати. а что означала эта функция? Код:
И еще... Это как дополнительный вопрос: К этому получившемуся зверю хочу добавить еще одну маленькую примочку. а именно: Excel В Столбце "А" номера фоток 0001, 0003, 0008, 0020 В Столбце "B" их колличесвто 1, 4, 2, 2 соответсвенно Теперь сам вопрос: Как написать отдельный макрос (я его прикручу на отдельную кнопку) чтобы при нажатии он копировал 0001 в папку 1, 0003 в папку 4, 0008 и 0020 в папку 2. Условимся что файлы лежат в папке, которую опять же надо выбрать, а вот папки с колличеством фоток создавались бы сами в папке где лежат оригиналы. Ух закрутил. Я даже незнаю как и благодарить за такую работу. Спасибо. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Названия столбцов стали цифрами. | Flake | Microsoft Office Excel | 2 | 06.09.2008 16:42 |
Печать pdf файлов из списка файлов в Excel | АПС | Microsoft Office Excel | 5 | 15.04.2008 16:04 |
Макрос в Excel для обработки группы файлов | ad_sum | Microsoft Office Excel | 1 | 29.12.2007 16:56 |
Вывод похожего названия в DBEdit | Wiser87 | БД в Delphi | 2 | 06.06.2007 11:42 |