Главная » Макросы VBA Excel

Макросы VBA Excel — Страница 41

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

 

Sub СозданиеТекстовыхФайлов()
    On Error Resume Next: Dim cell As Range, ra As Range
    Set FSO = CreateObject("scripting.filesystemobject")

Поиск окна Internet Explorer с открытой ссылкой

Функция перебирает все открытые окна браузера Internet Explorer, и ищет среди них окно по заданной ссылке (или по части ссылки)
 

Получение сигнатуры жесткого диска (HDD)

Функция получает сигнатуру (уникальный идентификатор) жесткого диска с использованием WMI
Вызов функции обычно занимает от 0,5 до 1 секунды

Function HardwareID() As String

Декодирование адреса почты при Cloudflare Email Protection

Данная функция позволяет декодировать email с веб-страницы, когда на сервере используется Cloudflare Email Protection
 

Получение списка событий из журнала Windows

Макрос создаёт файл Excel, и выводит в него 2000 последних событий из журнала Windows: