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

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Проверка наличия файла (Макросы/Sub)
Проверка наличия файла
Sashagor1982 Дата: Пятница, 10.06.2016, 21:56 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 287
Репутация: -6 ±
Замечаний: 0% ±

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


Сообщение отредактировал Sashagor1982 - Пятница, 10.06.2016, 21:57
 
Ответить
СообщениеЗдравствуйте уважаемые форумчане. Вопрос состоит в следующем. Файл, содержащий макрос находится в определенной папке, в этой же папке находится папка "ФОТО" содержащая картинки в формате ".jpg" (фото), например Петя.jpg, необходим макрос который в исходном файле, напротив имен содержащихся в столбце A в столбце B поставит ДА если файл-фото имеется в папке ФОТО или НЕТ, если наоборот. Заранее спасибо.
Автор - Sashagor1982
Дата добавления - 10.06.2016 в 21:56
Roman777 Дата: Пятница, 10.06.2016, 23:42 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 980
Репутация: 127 ±
Замечаний: 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
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Вариант "с перчиком":
[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им! kuklp60@gmail.com
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
Группа: Проверенные
Ранг: Обитатель
Сообщений: 287
Репутация: -6 ±
Замечаний: 0% ±

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

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