Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Проверка на битые ссылки и копирование открывающихся файлов в папку
 
#1
09.08.2012 11:10:54
Добрый день. Есть папка с большим количеством картинок и прайс-лист с 15 тысячами позиций, который содержит ссылки на эти картинки. Нужно отсортировать картинки, которые открываются по ссылке. То тесть. Если ссылка на картинку открывается - то написать в следующем столбце напротив этой ячейки - "открыт" и скопировать это изображение в отдельную папку.  Если нет, то написать - "битый". Их реально огромное количество. Начальство сучит ножками и требует результат. Помогите, пожалуйста. Буду очень благодарна.
 
 
 
#2
09.08.2012 11:16:00
{quote}{login=Leno}{date=09.08.2012 11:10}{thema=Проверка на битые ссылки и копирование открывающихся файлов в папку}{post}Добрый день. Есть папка с большим количеством картинок и прайс-лист с 15 тысячами позиций, который содержит ссылки на эти картинки. Нужно отсортировать картинки, которые открываются по ссылке. То тесть. Если ссылка на картинку открывается - то написать в следующем столбце напротив этой ячейки - "открыт" и скопировать это изображение в отдельную папку.  Если нет, то написать - "битый". Их реально огромное количество. Начальство сучит ножками и требует результат. Помогите, пожалуйста. Буду очень благодарна.{/post}{/quote}  
<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>
 
 
 
#3
09.08.2012 11:23:28
Фигасе, 593 кб! Leno, Вы правила форума читали? А создавая тему, то что на картинке видели?
Я сам - дурнее всякого примера! ...
 
 
 
#4
09.08.2012 11:29:02
сорри, почему нет ограничения по закачке... закачалось же..и не могу найти кнопку удаления... прилагаю новый краткий пример.. спасибо
 
 
 
#5
09.08.2012 11:48:28
http://excelvba.ru/code/FilenamesCollection
 
 
 
#6
09.08.2012 12:06:00
{quote}{login=}{date=09.08.2012 11:48}{thema=}{post}http://excelvba.ru/code/FilenamesCollection{/post}{/quote}  
Спасибо за ответ, но задача стоит совершенно другая.мне инужно отсортировать открывающиеся файлы в другую папку, а не получить их список. спасибо
 
 
 
#7
09.08.2012 12:15:18
Leno, так стол заказов там, куда Вам дали ссылку. Здесь помогают освоить Эксель. Если у Вас что-то не получается, подскажут, помогут. А делать за Вас Вашу работу... могу, но не бесплатно.
Я сам - дурнее всякого примера! ...
 
 
 
#8
09.08.2012 12:53:16
{quote}{login=Leno}{date=09.08.2012 12:06}{thema=Re: }{post}мне нужно отсортировать открывающиеся файлы в другую папку, а не получить их список. {/post}{/quote}  
 
Ну так если вы получите список файлов, задача наполовину будет решена.  
Останется пройтись по ссылкам в вашей таблице, проверить наличие указанного файла в списке, и, если он есть, переместить его в другую папку при помощи команды  
Name СтароеИмяФайла As НовоеИмяФайла
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#9
09.08.2012 13:14:38
по идее так  
Sub DeadLinks  
   Dim rng As Range, hyp As Hyperlink  
   Dim FSO As Object  
 
For Each hyp In rng.Hyperlinks  
      If Not FSO.FileExists(hyp.Address) Then  
          TextToDisplay:="битая" else  
              TextToDisplay:="открыт"  
как копировать нужный файл в другую папку?  
       End If  
 
подскажите плиз в какую сторону мне копать?
 
 
 
#10
09.08.2012 13:19:39
А на этой же странице форума обсуждалось:  
http://www.planetaexcel.ru/forum.php?thread_id=44044
Я сам - дурнее всякого примера! ...
 
 
 
#11
09.08.2012 13:29:20
Но раз уж Вы через FileSystemObject делаете то у Вас во-первых не инициализирована переменная FSO:  
Set FSO = CreateObject("Scripting.FileSystemObject")  
а дальше копирование:  
FSO.CopyFile "C:\*.bat", "A:\", 0  
где 0 - необязательный, булево (число). Перезаписывать существующие файлы, или нет. По умолчанию - True (перезаписывать). Если файл, который нужно перезаписать, имеет атрибут read-only, возникнет ошибка (независимо от установки этого параметра).
Я сам - дурнее всякого примера! ...
 
 
 
Страницы: 1
Читают тему
Наверх