Как определить какие картинки есть в папке?

Пользователь

Сообщений: 35 Регистрация: 01.01.1970

01.10.2009 04:41:37

Задача следующая: есть папка с картинками и есть экселевская таблица в которой перечислены названия картинок из той папки.Если в папке с картинками есть название, которое приведено в эксельной таблице, то в соседней ячейке нужно поставить какой-нибудь символ.

Прикрепленные файлы

post_64978.zip (87.01 КБ)

EducatedFool

Пользователь

Сообщений: 3695 Регистрация: 23.12.2012

01.10.2009 07:07:28

Можно применить пользовательскую функцию:

Function ЕстьФайл(ByVal txt As String) As String
ЕстьФайл = IIf(Len(Dir(Replace(ThisWorkbook.FullName, ThisWorkbook.Name, txt & ".*"))), "есть", "нет")
End Function

Формулы будут иметь такой вид: =ЕстьФайл(A1)

Пример файла: http://excelvba.ru/XL_Files/Sample__01-10-2009__9-09-03.zip

Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

Novaya Пользователь Сообщений: 35 Регистрация: 01.01.1970	#3 01.10.2009 08:59:20 оно))спасибо!хотела зайти на Ваш сайт, когда он заработает?

Novaya

Пользователь

Сообщений: 35 Регистрация: 01.01.1970

01.10.2009 09:34:43

{quote}{login=The_Prist}{date=01.10.2009 09:02}{thema=Re: Re: }{post}{quote}{login=Новая}{date=01.10.2009 08:59}{thema=Re: }{post}хотела зайти на Ваш сайт, когда он заработает?{/post}{/quote}Если Вы про http://ExcelVBA.ru/ то он уже работает.{/post}{/quote}
я пыталась зайти,сайт выдаёт ошибку.

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012	#5 01.10.2009 09:40:50 EducatedFool, снимите запрет на посещение сайта Новой! Меня, спасибо, пускают :)

Читают тему