Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Проверка наличия файла - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Проверка наличия файла (Макросы/Sub)
Проверка наличия файла
Sashagor1982 Дата: Пятница, 10.06.2016, 21:56 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 165
Репутация: 12 ±
Замечаний: 20% ±

Excel 2007
Здравствуйте уважаемые форумчане. Вопрос состоит в следующем. Файл, содержащий макрос находится в определенной папке, в этой же папке находится папка "ФОТО" содержащая картинки в формате ".jpg" (фото), например Петя.jpg, необходим макрос который в исходном файле, напротив имен содержащихся в столбце A в столбце B поставит ДА если файл-фото имеется в папке ФОТО или НЕТ, если наоборот. Заранее спасибо.
К сообщению приложен файл: 2020.xls(20Kb)


Сообщение отредактировал Sashagor1982 - Пятница, 10.06.2016, 21:57
 
Ответить
СообщениеЗдравствуйте уважаемые форумчане. Вопрос состоит в следующем. Файл, содержащий макрос находится в определенной папке, в этой же папке находится папка "ФОТО" содержащая картинки в формате ".jpg" (фото), например Петя.jpg, необходим макрос который в исходном файле, напротив имен содержащихся в столбце A в столбце B поставит ДА если файл-фото имеется в папке ФОТО или НЕТ, если наоборот. Заранее спасибо.

Автор - Sashagor1982
Дата добавления - 10.06.2016 в 21:56
Roman777 Дата: Пятница, 10.06.2016, 23:42 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 720
Репутация: 78 ±
Замечаний: 0% ±

Excel 2007, Excel 2013
Sashagor1982, вот так должно быть:
[vba]
Код
Sub ex()
Dim i&, pathf$
pathf = ThisWorkbook.Path
i_n& = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To i_n
  If Cells(i, 1) <> "" Then
     If Dir(pathf & "\ФОТО\" & Cells(i, 1) & ".jpg") <> "" Then
        Cells(i, 2) = "Да"
     Else
        Cells(i, 2) = "Нет"
     End If
  End If
Next i
End Sub
[/vba]


Много чего не знаю!!!!

Сообщение отредактировал Roman777 - Пятница, 10.06.2016, 23:43
 
Ответить
СообщениеSashagor1982, вот так должно быть:
[vba]
Код
Sub ex()
Dim i&, pathf$
pathf = ThisWorkbook.Path
i_n& = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To i_n
  If Cells(i, 1) <> "" Then
     If Dir(pathf & "\ФОТО\" & Cells(i, 1) & ".jpg") <> "" Then
        Cells(i, 2) = "Да"
     Else
        Cells(i, 2) = "Нет"
     End If
  End If
Next i
End Sub
[/vba]

Автор - Roman777
Дата добавления - 10.06.2016 в 23:42
KuklP Дата: Суббота, 11.06.2016, 14:41 | Сообщение № 3
Группа: Проверенные
Ранг: Старожил
Сообщений: 2022
Репутация: 439 ±
Замечаний: 20% ±

Вариант "с перчиком":
[vba]
Код
Sub www()
    Dim i&, f As Boolean
    For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
        f = Dir(ThisWorkbook.Path & "\ФОТО\" & Cells(i, 1) & ".jpg") <> ""
        Cells(i, 2) = Switch(f, "Да", Not f, "Нет")
    Next i
End Sub
[/vba] ;)


Ну, с НДС и мы чего-то стoим! kuklp@mail.ru
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеВариант "с перчиком":
[vba]
Код
Sub www()
    Dim i&, f As Boolean
    For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
        f = Dir(ThisWorkbook.Path & "\ФОТО\" & Cells(i, 1) & ".jpg") <> ""
        Cells(i, 2) = Switch(f, "Да", Not f, "Нет")
    Next i
End Sub
[/vba] ;)

Автор - KuklP
Дата добавления - 11.06.2016 в 14:41
Sashagor1982 Дата: Суббота, 11.06.2016, 21:21 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 165
Репутация: 12 ±
Замечаний: 20% ±

Excel 2007
Спасибо
 
Ответить
СообщениеСпасибо

Автор - Sashagor1982
Дата добавления - 11.06.2016 в 21:21
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Проверка наличия файла (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!