Интернет — Страница 2

Загрузка списка ссылок на файлы XML с сайта ftp.zakupki.gov.ru

Скриншот программы загрузки списка файлов с FTP сервера ftp.zakupki.gov.ru

Макрос предназначен для получения таблицы ссылок на файлы аукционов (в формате XML) с портала ftp.zakupki.gov.ru

 

Программа выполняет подключение к FTP-серверу ftp.zakupki.gov.ru, используя логин и пароль «free»,
получает список всех файлов во всех подпапках, и выводит на лист ссылки только на те файлы,
имена которых соответствуют заданным маскам.

Макрос отправки письма из Excel через Outlook

Пример макроса, отправляющего письма со вложениями из Excel через почтовый клиент Outlook:

Sub Отправить_Письмо_из_Outlook()
 
    'отправляем письмо без вложений
    res = SendEmailUsingOutlook("name@domain.ru", "Текст письма 1", "Тема письма 1")
    If res Then Debug.Print "Письмо 1 отправлено успешно" Else Debug.Print "Ошибка отправки"
 
 
    'отправляем письмо с 1 вложением
    attach$ = ThisWorkbook.FullName    ' прикрепляем текущий файл Excel
    res = SendEmailUsingOutlook("name@domain.ru", "Текст письма 2", "Тема письма 2", attach$)
    If res Then Debug.Print "Письмо 2 отправлено успешно" Else Debug.Print "Ошибка отправки"
 
 
    'отправляем письмо с несколькими вложениями
    Dim coll As New Collection    ' заносим в коллекцию список прикрепляемых файлов
    coll.Add "C:\Documents and Settings\Admin\Рабочий стол\Tyres.jpg"
    coll.Add "C:\Documents and Settings\Admin\Рабочий стол\calc.xls"
    coll.Add ThisWorkbook.FullName    ' прикрепляем текущий файл Excel

    res = SendEmailUsingOutlook("name@domain.ru", "Текст письма 3", "Тема письма 3", coll)
    If res Then Debug.Print "Письмо 3 отправлено успешно" Else Debug.Print "Ошибка отправки"
End Sub

Макрос использует функцию SendEmailUsingOutlook, которая:

  • принимает в качестве параметров адрес получателя письма, тему и текст письма, список вложений
  • запускает Outlook, формирует письмо, и отправляет его
  • возвращает TRUE, если отправка прошла успешно, или FALSE, если с отправкой почты вызникли проблемы

Экспорт выделенного диапазона ячеек в HTML код

Макрос предназначен для экспорта выделенного диапазона ячеек книги Excel в код HTML.

 

Результат (HTML код таблицы) помещается в буфер обмена.

Первая строка выделенного диапазона ячеек считается заголовком таблицы (обрамляется тегами <th> вместо <td>)

 

Загрузка информации об организациях с сайта bus.gov.ru

Скриншот программы загрузки данных с официального сайта для размещения информации о государственных (муниципальных) учреждениях

Программа выполняет поиск организаций по ИНН на официальном сайте для размещения информации о государственных (муниципальных) учреждениях bus.gov.ru, и заносит данные о найденных организациях в таблицу Excel.

Смотрите также парсер сайта bus.gov.ru,
который создаёт в Excel таблицу со списком организаций с этого сайта по выбранному региону и сферам деятельности.

Макрос для выборки данных с сайта rabota.ru

Исходные данные для таблицы на сайте Rabota.ru

Программа предназначена для импорта данных о соискателях с сайта rabota.ru

В качестве исходных данных для макроса, используется ссылка на результат поиска на сайте rabota.ru
(которую можно получить, забив искомый текст в строке поиска сайта, и скопировав URL страницы результатов поиска из адресной строки браузера).

Макрос для выборки данных и картинок с yandex.ru

Программа поиска названий и изображений товара по артикулу

Программа предназначена для вывода описания и изображений найденных в yandex.ru по заданному артиклю

 

На первом этапе работы макроса, производится поиск артикула, либо другого ключевого слова, в поисковой системе yandex.ru

(процесс поиска скрыт от пользователя, скриншот результатов поиска

Полученные результаты поиска выводятся в виде списка на форме.

Пользователь из этого списка выбирает наиболее подходящий для себя вариант описания товара, после чего выбранный вариант вставляется в таблицу:

Загрузка изображений из интернета по ссылкам в одну папку

Загрузка файлов (изображений) из интернета

Макрос предназначен для загрузки изображений (или любых других файлов) из интернета, и сохранения скачанных файлов в одну папку.

Исходные данные для работы макроса:

таблица, в которой содержатся по меньшей мере 2 столбца - один с гиперссылками, второй - с именами файлов.

Особенности макроса:

  • создаваемым файлам присваиваются имена из выбранного столбца листа Excel
  • макрос корректно работает со ссылками, содержащими символы кириллицы
  • автоматическое добавление расширения для скачиваемых файлов (если имя файла из ячейки его не содержит)

Если вам требуется вставлять много изображений на лист Excel, - то вам поможет надстройка, позволяющая производить поиск изображений в заданной папке, и производить вставку картинок в ячейки или примечания

Кроме того, надстройка для вставки изображений в Excel умеет загружать картинки из интернета (по ссылкам в таблице Excel)

Бесплатно скачать надстройку вставки картинок в Excel

 

Настройки макроса легко выполнить, изменив в коде значения констант:

    Const НазваниеПапкиДляФайлов$ = "Фотографии"    ' так будет называться создаваемая папка
    Const НомерСтолбцаСГиперссылками = 6    ' из этого столбца макрос берет гиперссылки для загрузки файлов
    Const НомерСтолбцаСИменамиФайлов = 4    ' из этого столбца макрос берет имена для создаваемых файлов
    Const НомерПервойСтрокиСДанными = 2    ' с какой строки листа начинаем обрабатывать данные
    Const РасширениеФайлов$ = ".jpg"    ' этот текст добавляется справа к именам создаваемых файлов

Смотрите также аналогичный (более сложный) макрос загрузки изображений

Загрузка номеров телефонов из объявлений сайта abw.by

Скриншот программы загрузки номеров телефонов с сайта объявлений abw.by

Программа собирает в таблицу Excel номера телефонов из объявлений на сайте abw.by

В ячейке листа Excel указывается количество дней, за которые будут обрабатываться объявления с сайта.
(если указано 0 дней - обрабатываются только объявления за сегодняшнюю дату, если 1 день - сегодняшние и вчерашние, и т.д.
Количество дней неограничено - влияет только на время загрузки данных)

Просмотр видео Youtube в Excel

Просмотр видеоролика с Youtube на форме в Excel

Макрос предназначен для показа видеороликов на форме в Microsoft Excel.

На форме UserForm расположен компонент WebBrowser, в котором открывается заданных видеоролик при запуске формы.

Вызов формы осуществляется таким кодом:

Макрос проверки доступности веб-ресурса

Данная функция позволяет проверить, доступен ли тот или иной веб-ресурс с вашего компьютера, и получить код состояния HTTP

Как известно, при переходе по ссылке (URL), веб-сервер возвращает код состояния HTTP.

Наиболее популярный коды ответа веб-сервера: (перечень всех кодов состояния можно посмотреть в Википедии)

  • 200 OK («хорошо»)
  • 403 Forbidden («запрещено»)
  • 404 Not Found («не найдено»)

Код состояния - это целое число из 3 цифр.
По первой цифре можно определить, доступен ли ресурс: если первая цифра 2, то ресурс доступен, если любая другая - то скорее всего нет.

Пример макроса, проверяющего доступ к различным ресурсам по URL: