mail mail

Средства Windows

Макросы, использующие в своей работе функционал Windows - WMI, реестр, WinAPI и т.п.

Надстройка для администрирования локальной сети

Надстройка предназначена для облегчения управления сетевым оборудованием и диагностики локальной сети из Excel.

 

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

Вы сможете получить доступ к часто используемым действиям из контекстного меню Excel.

Затраченное время: 
3 дня
Ориентировочная стоимость: 
2000 руб.

Автозапуск файла при открытии Excel

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

Способов добавить файл в автозагрузку Excel достаточно много, поэтому мы рассмотрим только самые основные:

  • открытие файлов из папки автозапуска
  • подключение файла как надстройки

Начнём с папки автозагрузки (точнее, с папок, поскольку их может быть несколько)

Таймер (секундомер) в Excel - система электронного хронометража

Скриншот листа с секундомерами

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

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

 

Особенности программы:

  • изменяемое количество участников - от 1 до 20
  • изменяемое количество кругов (заездов, состязаний) - от 1 до 6
  • возможность начислять отдельным участникам штрафные баллы (секунды)
  • автоматический подсчёт суммарного времени
  • распределение мест среди участников
  • возможность сортировки таблицы результатов состязания по любому параметру
  • фиксация времени с точностью до сотых долей секунды

 

Затраченное время: 
1 день
Ориентировочная стоимость: 
1000 руб.

Автоматическое обновление книг и надстроек Excel

Форма настроек программы, выбора устанавливаемых обновлений, активации надстройки

Программа предназначена для реализации возможности автоматического и ручного обновления надстроек Excel, а также разграничения доступа и регистрации (активации) программного продукта.

Особенности данного решения:

 

Затраченное время: 
7 дней
Ориентировочная стоимость: 
4000 руб.

Скачать файл из интернета без использования WinAPI

Часто требуется макросом скачать некий файл из интернета.
Обычно в этом помогает WinAPI-функция URLDownloadToFile, но есть также возможность загрузить файл без её использования:

Чем чревато использование функции URLDownloadToFile - по сути, ничем, кроме как необходимостью прописывать её в 4 вариантах,
для обеспечения совместимости с 64-битной Windows и Office 2010

Я же предлагаю другое решение - функцию DownloadFile с использованием объектов Microsoft.XMLHTTP и ADODB.Stream:

 

Sub ПримерИспользования()
    СсылкаНаФайл$ = "http://excelvba.ru/sites/default/files/3.jpg"
    ПутьДляСохранения$ = "C:\ПЖиВ.jpg"

    ' скачиваем файл из интернета
   DownloadFile СсылкаНаФайл$, ПутьДляСохранения$

    ' открываем скачанный файл
   CreateObject("wscript.shell").Run """" & ПутьДляСохранения$ & """"
End Sub

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

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

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

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

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

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

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

Чтение значений из реестра Windows на VBA

Чтение и запись в реестр Windows в произвольную ветку можно произвести при помощи функций объекта WScript.Shell:

RegRead и RegWrite

Первая функция возвращает значение, считанное из реестра, вторая - записывает заданное значение в реестр.

При попытке считать несуществующий параметр возникает ошибка,
обойти которую нам поможет директива On Error Resume Next 

 

Пара функций для примера:

(получаем настройки программы из реестра Windows)

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

Отправленное макросом письмо с копией изменённого файла в архиве

Программа предназначена для отправки копии обрабатываемого файла (в виде архива) на заданный адрес электронной почты.

Особенности программы:

  • используется отправка письма средствами Windows (без использования почтовых программ)
    (в качестве адреса отправителя можно использовать любой адрес почты)
  • перед отправкой файл архивируется (создаётся архив ZIP средствами Windows, без применения программ-архиваторов)
  • в тексте письма указывается, какие именно данные были изменены (макрос отслеживает изменения определённых ячеек листов Excel)
  • в письме указывается IP-адрес и прочие характеристики компьютера, с которого был отправлен файл
  • все действия происходят незаметно для пользователя (никаких уведомлений не выводится)
  • отправка письма с файлом производится каждый раз при закрытии файла

 

Затраченное время: 
1 день
Ориентировочная стоимость: 
2000 руб.

Фортепиано в Excel

Скриншот программы «Фортепиано в Excel»

Данная программа позволяет воспроизводить звуки нажатием на кнопки, расположенные на листе Excel

При нажатии кнопки ЗАПУСК на листе рисуется клавиатура.
Ширина черных и белых клавиш зависит от ширины столбцов А и В соответственно.

 

(добавлено в новой версии)

Затраченное время: 
1 час
Ориентировочная стоимость: 
400 руб.

Секундомер в Excel - для фиксации времени автогонки

Скриншот секундомера автогонки - 4 независимых таймера на 4 круга

Данный секундомер предназначен для фиксации времени прохождения кругов автогонщиками.

 

Возможен одновременный, а также выборочный, старт всех секундомеров (в примере их 4 - по одному на каждого гонщика)

По прохождении гонщиком очередного круга достаточно нажать кнопку СТОП - и секундомер начнёт фиксировать время следующего круга.

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

 

Затраченное время: 
2 часа
Ориентировочная стоимость: 
500 руб
RSS-материал