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

Отправка писем из Excel при помощи почтовой программы TheBAT!

Отправка почты из Excel при помощи TheBAT!

Макроc предназначен для автоматизированной рассылки почты из Excel.

Для рассылки используется почтовая программа TheBAT!

(подразумевается, что эта программа на компьютере установлена и настроена, т.е. без проблем удаётся вручную создать в TheBAT письмо, и отправить его на произвольный адрес)

В качестве исходных данных выступает таблица Excel, в которой в первом столбце указаны адреса получателей рассылки, а в остальных столбцах - данные для формирования писем (тема, текст и т.д.)

В прикреплённом примере макрос формирует тему письма из значения ячейки второго столбца

Поиск информации о фильмах, и импорт данных из интернета

Характеристики фильмов с сайта Кинопоиск

Эта программа позволяет найти в интернете (на сайте kinopoisk.ru), и вывести в таблицу Excel характеристики фильмов

(такие, как: год выпуска, страна, слоган, режиссер, сценарий, продюсер фильма, оператор, композитор, жанр, продолжительность и т.д. и т.п.)

Исходными данными для программы является столбец с названиями фильмов.

 

Получение рейтингов и рэнкингов с сайта ra-national.ru

Результат обработки веб-запросов

Программа предназначена для получения данных с сайта Национального рейтингового агенства.

Исходными данными является столбец с гиперссылками.

Результат выводится на отдельный лист.

Программа поиска цен на Яндекс.Маркете

Программа для загрузки цен с Яндекс.Маркета

Программа предназначена для поиска минимальных цен на товары в Яндекс.Маркете

UPDATE: Продажа программы прекращена 14 мая 2015 года, ввиду нерентабельности техподдержки

(это единственная из моих программ, где я не могу гарантировать работоспособность, — т.к. всё зависит от Яндекса, который часто меняет сайт, и вводит ограничения типа капчи).

Техподдержка программы тоже прекращена в полном объёме, - выпуск исправлений и новых версий не планируется.

Функция PING на VBA с изменяемым размером ICMP пакета

Public Function Ping(ByVal ComputerName As String) As Boolean
    ' возвращает TRUE, если пинг прошел
    Dim oPingResult As Variant
    For Each oPingResult In GetObject("winmgmts://./root/cimv2").ExecQuery _
        ("SELECT * FROM Win32_PingStatus WHERE Address = '" & ComputerName & "'")
        If IsObject(oPingResult) Then
            If oPingResult.StatusCode = 0 Then
                Ping = True        'Debug.Print "ResponseTime", oPingResult.ResponseTime
                Exit Function
            End If
        End If
    Next
End Function

Пример использования:

Sub TestPingFunction()
    If Ping("ComputerName") Then ПутьКПапке = "\\ComputerName\files"
    If Ping("ya.ru") Then MsgBox "Интернет доступен!"
    If Not Ping("192.168.0.2") Then MsgBox "Компьютер с IP адресом 192.168.0.2 недоступен в сети!"
End Sub

Поиск цен на Яндекс.Маркете

Результат поиска цен на ноутбуки на Яндекс.Маркете по PartNumber

Программа (3 модуля класса + примеры их использования) предназначена для поиска товаров в Яндекс.Маркете, с последующей загрузкой результатов поиска.

Исходными данными является название (или модель, PartNumber, и т.п.) товара.

 

На выходе код выдаёт информацию о результатах поиска - 10 (или более) позиций искомого товара,
где для каждой позиции указаны следующие характеристики:

  • цена (в рублях)
  • наименование продавца (название организации)
  • название товара у этого продавца
  • ссылка на страницу с описанием товара (цена, наличие, условия поставки, описание)

В настройках можно задавать регион для поиска (код региона, или название города \ области \ страны \ континента)

Возвращаемые позиции отсортированы по цене - в порядке её возрастания
(сначала идут самые дешевые товары)

Смотрите также расширенную версию программы поиска цен на Яндекс.Маркете,
с возможностью загрузки цен как по названиям товаров, так и по ссылкам на Яндекс.маркет

Во время запроса данных с сайта Яндекса отображается прогресс-бар.

Во вложении (пароль на проект VBA - 1 (единица)) - пример запроса цен на ноутбуки (исходными данными являются их парт-номера)

Создание сводной таблицы и диаграммы для отчёта по трафику

Вид программно создаваемой сводной таблицы и диаграммы

Макрос предназначен для создания сводной таблицы и диаграммы для отчёта по трафику.

В качестве исходных данных выступает таблица со статистикой доступа в интернет - сформированная программой создания отчётов по статистике

Отправка почты макросом VBA без использования почтовых программ

ВНИМАНИЕ! Данный код гарантированно работает ТОЛЬКО в ОС WindowsXP.
В остальных версиях Windows код не проверял.
В Windows7 данный макрос работать не будет ввиду отсутствия библиотеки CDO for Windows 2000.
(потребуется ручная установка недостающей библиотеки)

Пример отправки почты макросом Excel:

Sub Main()    ' Пример использования функции Send_Mail
    txt = "Это письмо сформировано макросом" & vbNewLine & _
          "без использования внешних программ и подключения дополнительных библиотек"
    If Send_Mail("ivan_ivanov@mail.ru", "vasya_pupkin@mail.ru", "проверка отправки почты", txt) Then
        MsgBox "Письмо успешно отправлено", vbInformation
    Else
        MsgBox "Не удалось отправить письмо", vbExclamation
    End If
End Sub

Работа с файлами Excel через FTP (отправка файлов, таблиц и изображений на хостинг)

Назначение программы:

  • Выгрузка файлов Excel на сайт (хостинг) по протоколу FTP
  • облегчение процесса редактирования файлов Excel, расположенных на сайте (доступных через FTP)
  • автоматизация экспорта таблиц Excel на страницы сайтов под управлением CMS Drupal
  • формирование изображений формате JPG из диапазона ячеек листа Excel - нажатием одной кнопки

 

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

'Панель

  1. Работа с несколькими FTP-аккаунтами (параметры задаются на листе настроек)
  2. Загрузка файла Excel через FTP (из выбранной папки) нажатием одной кнопки
  3. Сохранение и отправка изменённой книги Excel через FTP на хостинг (одной кнопкой)
  4. Моментальная публикация на сайте таблицы Excel
    (формирование нового файла на основе выделенного лиапазона ячеек, и отправка его по FTP на сервер.
    В буфере обмена после этой операции оказывается php-код для вставки в статью на сайте)
  5. Быстрое преобразование выделенного диапазона ячеек (таблицы) в изображение в формате JPG
    (c возможностью автоматической отправки картинки на сервер, и получения в буфере обмена ссылки на это изображение)

Ознакомьтесь также со способом работы с FTP сервером из VBA
без использования системных функций (WinAPI)

Загрузка картинок из интернета по ссылкам, и сохранение их в отдельные папки

Вид исходный таблицы со ссылками на картинки в интернете

Данный макрос перебирает все строки на листе, и для каждой строки скачивает из интернета картинки, ссылки на которые присутствуют в этой строке (начиная с 3 столбца)

В процессе загрузки изображений из интернета отображается 2-уровневый прогресс-бар, на котором можно видеть текущее состояние процесса.

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