VBA и парсинг данных с сайтов и файлов

Парсинг данных — это процесс извлечения информации из данных, представленных в неструктурированном или полуструктурированном формате. Парсер преобразует данные в более удобный, структурированный формат, облегчая их анализ и обработку. В контексте VBA, парсинг чаще всего связан с обработкой текстовых файлов, таких как HTML, XML, JSON, CSV, или даже обычный текст, для извлечения информации и её последующего использования в Excel или других приложениях Microsoft Office.

Важность парсинга данных в VBA

VBA (Visual Basic for Applications) является отличным инструментом для автоматизации задач в приложениях Microsoft Office. Парсинг данных в VBA особенно важен по нескольким причинам:

Автоматизация рутинных задач: Парсинг позволяет автоматически извлекать и обрабатывать большие объемы данных, что экономит время и уменьшает вероятность ошибок при ручном вводе данных.

Интеграция данных: VBA может использоваться для объединения данных из разных источников, форматов и файлов, обеспечивая более эффективный анализ и представление данных.

Пользовательские отчеты и анализ: С помощью парсинга можно создавать пользовательские отчеты и аналитические инструменты, которые точно соответствуют специфическим требованиям бизнеса.

Доступ к веб-данным: Парсинг веб-страниц или API позволяет VBA взаимодействовать с внешними веб-ресурсами, что расширяет возможности использования Excel как мощного инструмента для сбора данных.

Обработка и преобразование данных: Парсинг необходим для преобразования данных из одного формата в другой, что часто требуется для совместимости между различными системами и приложениями.

Парсинг данных в VBA открывает широкие возможности для автоматизации офисной работы, экономии времени и усилий, а также для повышения точности и эффективности обработки данных.

Visual Basic for Applications (VBA) — это язык программирования, встроенный в большинство продуктов Microsoft Office. VBA позволяет пользователям автоматизировать рутинные задачи и создавать сложные решения внутри документов Office, например, в Excel, Word, и Access. Он основан на языке Visual Basic и предлагает полный доступ к объектам и интерфейсам приложений Microsoft Office.

Чтобы начать работу с VBA, нужно активировать "Разработчик" (Developer) в ленте приложения Office. Например, в Excel:

1. Откройте файл Excel и перейдите в раздел "Файл" > "Параметры".
2. В меню "Параметры Excel" выберите "Настроить ленту".
3. В правой колонке отметьте "Разработчик" и нажмите "OK".
4. Теперь на ленте будет доступна вкладка "Разработчик", где можно открыть редактор VBA, нажав "Visual Basic" или "Alt + F11".

В редакторе VBA можно создавать новые модули для написания кода, а также использовать существующие объекты листов и рабочих книг для взаимодействия с данными Excel.

VBA предоставляет ряд объектов и методов для парсинга данных:

• Объекты Workbook и Worksheet: используются для доступа и управления рабочими книгами и листами Excel.
• Объект Range: позволяет манипулировать ячейками и диапазонами на листе Excel.
• Функции для работы со строками: такие как Left, Right, Mid, InStr, и Replace, предназначены для работы с текстовыми строками.
• Объект Scripting.FileSystemObject: используется для чтения и записи файлов.
• Объекты MSXML2.DOMDocument и MSXML2.XMLHTTP: позволяют работать с XML и отправлять HTTP-запросы для взаимодействия с веб-сервисами и API.
• Библиотека Microsoft VBScript Regular Expressions: обеспечивает поддержку регулярных выражений для сложного текстового поиска и замены.
• Объект ADODB.Recordset: может использоваться для парсинга CSV файлов или для взаимодействия с базами данных.

Для примера, давайте рассмотрим простой код, который открывает текстовый файл и читает его содержимое в VBA:

Dim fileContent as String
Dim fileSystemObject as Object
Set fileSystemObject = CreateObject("Scripting.FileSystemObject")

' Открыть файл для чтения
Dim textStream as Object
Set textStream = fileSystemObject.OpenTextFile("C:\path\to\your\file.txt", ForReading)

' Читать файл до конца
fileContent = textStream.ReadAll
textStream.Close

' Теперь можно парсить содержимое fileContent

Этот код использует Scripting.FileSystemObject для чтения файла. После чтения файла можно применять различные методы для парсинга содержимого переменной fileContent.

JSON (JavaScript Object Notation) — это текстовый формат обмена данными, основанный на JavaScript. Он легко читается как людьми, так и машинами и является одним из стандартных форматов для передачи данных между сервером и веб-приложением, а также между различными программными системами. JSON представляет данные в виде пар ключ-значение и может быть использован для сериализации сложных структур данных, таких как объекты и массивы.

Для работы с JSON в VBA часто используется библиотека Microsoft Scripting Runtime для чтения файлов и Microsoft XML, или сторонние библиотеки, такие как JSONConverter, которые позволяют разбирать JSON в структуры VBA.

Прежде чем мы сможем работать с JSON в VBA, нужно добавить ссылку на соответствующую библиотеку:

1. В редакторе VBA перейдите в "Сервис" > "Ссылки" (Tools > References).
2. Найдите и выберите "Microsoft Scripting Runtime" и "Microsoft XML, v6.0" (или другую версию, доступную в системе).
3. Если вы используете JSONConverter, загрузите и добавьте соответствующий файл .bas в проект через "Файл" > "Импорт файла" (File > Import File).

Пример: Извлечение данных из JSON

Допустим, у нас есть JSON файл со следующим содержимым, который мы хотим проанализировать в VBA:

{
  "employees": [
    {
      "name": "John Smith",
      "age": 30,
      "department": "Sales"
    },
    {
      "name": "Jane Doe",
      "age": 25,
      "department": "Development"
    }
  ]
}

Вот пример кода, который читает и анализирует этот JSON, используя стороннюю библиотеку JSONConverter:

Dim jsonText As String
Dim jsonObject As Object
Dim jsonEmployee As Object
Dim employee As Variant

' Считываем текст из файла или другого источника
jsonText = "{""employees"":[{""name"":""John Smith"",""age"":30,""department"":""Sales""},{""name"":""Jane Doe"",""age"":25,""department"":""Development""}]}"

' Преобразовываем JSON текст в объект
Set jsonObject = JsonConverter.ParseJson(jsonText)

' Перебираем массив сотрудников
For Each employee In jsonObject("employees")
    Set jsonEmployee = employee
    Debug.Print "Name: " & jsonEmployee("name")
    Debug.Print "Age: " & jsonEmployee("age")
    Debug.Print "Department: " & jsonEmployee("department")
    Debug.Print "------------------"
Next employee

Этот код выводит информацию о каждом сотруднике в окно немедленного выполнения (Immediate Window) редактора VBA.

Обратите внимание, что для работы этого кода необходимо установить библиотеку JSONConverter. Если вы не хотите использовать стороннюю библиотеку, вам придется написать функцию для анализа JSON вручную, что может быть достаточно сложно для сложных JSON файлов.

HTML (HyperText Markup Language) — это стандартный язык разметки для создания веб-страниц и веб-приложений. Веб-браузеры интерпретируют HTML-код и отображают его содержимое пользователям.

DOM (Document Object Model) — это программный интерфейс для HTML и XML документов. Он представляет структуру документа в виде дерева объектов, где каждый узел является частью документа, такой как элемент, атрибут или текстовый узел. В контексте парсинга HTML, DOM позволяет программам изменять структуру, стиль и содержимое веб-страниц.

Для парсинга HTML-страниц в VBA можно использовать объект InternetExplorer.Application. Он позволяет открыть веб-страницу, манипулировать её содержимым и извлекать необходимые данные. Однако стоит отметить, что этот метод может быть устаревшим в зависимости от текущих версий браузеров и политики безопасности, а Microsoft может рекомендовать новые инструменты для автоматизации задач, связанных с браузерами.

Пример: Парсинг HTML с помощью VBA

Вот пример кода, который демонстрирует, как можно использовать объект InternetExplorer.Application для парсинга HTML:

Dim ie As Object
Dim htmlDoc As Object
Dim htmlElement As Object

' Создаем новый экземпляр Internet Explorer
Set ie = CreateObject("InternetExplorer.Application")

' Делаем браузер видимым (для отладки)
ie.Visible = True

' Открываем веб-страницу
ie.navigate "http://example.com"

' Ждем, пока страница полностью не загрузится
Do While ie.Busy Or ie.readyState <> 4
    DoEvents
Loop

' Получаем доступ к документу
Set htmlDoc = ie.document

' Например, ищем все элементы <a> и выводим их href
For Each htmlElement In htmlDoc.getElementsByTagName("a")
    Debug.Print htmlElement.href
Next htmlElement

' Закрываем Internet Explorer
ie.Quit
Set ie = Nothing

Этот код открывает Internet Explorer, загружает в нём указанный URL и, после загрузки страницы, извлекает и выводит в окно немедленного выполнения (Immediate Window) все ссылки (атрибут href элементов <a>). После выполнения скрипта браузер закрывается.

Обратите внимание, что использование InternetExplorer.Application может быть не лучшим выбором для автоматизированного парсинга данных из-за его медлительности и видимости процесса, что может привести к проблемам с производительностью и безопасностью. Там, где это возможно, рекомендуется использовать более современные методы, такие как библиотеки для HTTP-запросов или специализированные инструменты для веб-скрапинга.

Для отправки HTTP-запросов типа GET и POST в VBA обычно используют объект MSXML2.XMLHTTP или WinHttp.WinHttpRequest. Эти объекты позволяют отправлять запросы к веб-серверам и получать ответы, которые затем можно анализировать и использовать внутри приложений Office.

После отправки HTTP-запроса важно правильно обработать ответ сервера. Объекты XMLHTTP и WinHttpRequest предоставляют свойства и методы для доступа к статусу ответа, заголовкам и телу ответа. Ответ может быть в формате текста, JSON, XML и т. д., и его необходимо обработать соответствующим образом для извлечения нужной информации.

Пример: Взаимодействие с веб-API через VBA

Вот пример кода, который отправляет GET-запрос к веб-API и обрабатывает ответ в формате JSON:

Dim httpRequest As Object
Dim url As String
Dim response As String

' Создаем объект для HTTP-запросов
Set httpRequest = CreateObject("MSXML2.XMLHTTP")

' Указываем URL веб-API
url = "https://api.example.com/data"

' Отправляем GET-запрос к API
httpRequest.Open "GET", url, False
httpRequest.setRequestHeader "Content-Type", "application/json"
httpRequest.send

' Проверяем статус ответа
If httpRequest.Status = 200 Then
    ' Обрабатываем ответ
    response = httpRequest.responseText
    ' В этом месте можно добавить код для парсинга JSON
    ' Например, используя JSONConverter как в предыдущем примере
    ' ...
Else
    ' Обрабатываем ошибку
    MsgBox "Error " & httpRequest.Status & ": " & httpRequest.statusText
End If

' Освобождаем объект
Set httpRequest = Nothing

Этот код выполняет следующие шаги:

1. Создает объект XMLHTTP.
2. Отправляет GET-запрос к указанному URL.
3. Проверяет статус ответа; если он равен 200 (что означает "ОК"), обрабатывает текстовый ответ.
4. Если статус ответа не равен 200, выводит сообщение об ошибке.

Таким образом, можно взаимодействовать с различными веб-API, получая данные и интегрируя их в приложения Office. Чтобы обработать JSON-ответ, как обсуждалось ранее, можно использовать библиотеку типа JSONConverter для преобразования текста ответа в объекты VBA.

XML (eXtensible Markup Language) — это универсальный язык разметки, который используется для описания структурированных данных. Этот формат позволяет определить правила кодирования документов в формате, который читаем как машинами, так и человеком. XML широко используется в Интернете и для обмена данными между различными системами и приложениями.

DOM (Document Object Model) — это платформенно-независимый и языково-независимый интерфейс, который позволяет программам и скриптам динамически получать доступ к документу и обновлять его содержимое, структуру и стиль. VBA может использовать реализацию DOM через объекты, такие как MSXML2.DOMDocument, для парсинга и манипулирования XML-данными.

Пример: Чтение и обработка XML в VBA

Допустим, у нас есть следующий XML файл:

<?xml version="1.0" encoding="UTF-8"?>
<employees>
    <employee>
        <name>John Smith</name>
        <age>30</age>
        <department>Sales</department>
    </employee>
    <employee>
        <name>Jane Doe</name>
        <age>25</age>
        <department>Development</department>
    </employee>
</employees>

Вот пример кода на VBA для чтения и обработки этого XML:

Dim xmlDoc As Object
Dim xmlNode As Object
Dim xmlNodes As Object

' Создаем новый экземпляр DOMDocument
Set xmlDoc = CreateObject("MSXML2.DOMDocument")
xmlDoc.async = False

' Загружаем XML из файла или строки
xmlDoc.LoadXML(xmlString) ' Замените xmlString на путь к файлу, если необходимо загрузить XML из файла

' Проверяем на наличие ошибок
If (xmlDoc.parseError.ErrorCode <> 0) Then
    MsgBox "Error in XML: " & xmlDoc.parseError.reason
Else
    ' Получаем коллекцию узлов всех сотрудников
    Set xmlNodes = xmlDoc.getElementsByTagName("employee")

    ' Перебираем каждого сотрудника
    For Each xmlNode In xmlNodes
        Debug.Print "Name: " & xmlNode.selectSingleNode("name").Text
        Debug.Print "Age: " & xmlNode.selectSingleNode("age").Text
        Debug.Print "Department: " & xmlNode.selectSingleNode("department").Text
        Debug.Print "------------------"
    Next xmlNode
End If

' Освобождаем объект
Set xmlDoc = Nothing

Этот код выполняет следующие действия:

1. Создает объект DOMDocument.
2. Загружает XML из строки (или файла, если изменить код).
3. Проверяет на наличие ошибок при разборе XML.
4. Использует метод getElementsByTagName для извлечения узлов по тегу.
5. Проходит по каждому узлу и извлекает необходимую информацию, используя selectSingleNode и свойство Text.
6. Выводит информацию в окно немедленного выполнения (Immediate Window).

Обратите внимание, что при работе с файлами необходимо использовать метод Load вместо LoadXML, который принимает путь к XML-файлу вместо строки XML.

CSV (Comma-Separated Values) — это простой текстовый формат, который используется для хранения табличных данных. CSV файлы легко читаются и создаются человеком и машиной. Они идеально подходят для обмена данными между различными программами. В VBA для чтения CSV файлов можно использовать объекты ADODB.Connection и ADODB.Recordset, или же можно считывать файлы напрямую как текст и разделять значения с помощью функций строки.

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

Пример: Преобразование CSV в Excel и обратно

Пример кода для чтения CSV файла и импорта его в Excel:

Dim csvData As String
Dim csvRow As Variant
Dim csvValue As Variant
Dim rowCounter As Long
Dim colCounter As Integer
Dim filePath As String

filePath = "C:\path\to\your\file.csv"

' Открываем файл для чтения
Open filePath For Input As #1

rowCounter = 1
Do Until EOF(1)
    Line Input #1, csvData
    ' Разделяем данные по запятой
    csvRow = Split(csvData, ",")
    colCounter = 1
    For Each csvValue In csvRow
        ' Заполняем ячейки в Excel
        Cells(rowCounter, colCounter).Value = csvValue
        colCounter = colCounter + 1
    Next csvValue
    rowCounter = rowCounter + 1
Loop

Close #1

Для сохранения данных из Excel в CSV файл:

Dim ws As Worksheet
Dim myFile As String
Dim myData As Range
Dim lastCol As Long
Dim lastRow As Long
Dim r As Long
Dim c As Long

' Выбираем лист и диапазон для сохранения
Set ws = ThisWorkbook.Sheets("Sheet1")
Set myData = ws.UsedRange

lastCol = myData.Columns.Count
lastRow = myData.Rows.Count

' Путь к файлу для сохранения
myFile = "C:\path\to\your\file.csv"

' Открываем файл для записи
Open myFile For Output As #1

For r = 1 To lastRow
    For c = 1 To lastCol
        ' Пишем значение каждой ячейки, разделяя запятыми
        If c = lastCol Then
            ' Последний столбец, не добавляем запятую в конце
            Write #1, ws.Cells(r, c).Text
        Else
            ' Не последний столбец, добавляем запятую
            Write #1, ws.Cells(r, c).Text & ",";
        End If
    Next c
Next r

Close #1

Эти примеры показывают, как можно просто и быстро считывать данные из CSV и записывать данные из Excel обратно в формат CSV с помощью VBA.

Регулярные выражения — это мощный инструмент для поиска и манипуляции текстом, основанный на шаблонах. Они позволяют описать сложные шаблоны поиска и применять их для выполнения различных операций с текстом, таких как поиск, замена, проверка форматов и извлечение данных.

В VBA для работы с регулярными выражениями используется объект RegExp, который входит в библиотеку Microsoft VBScript Regular Expressions. Этот объект предоставляет функционал для поиска в тексте по шаблону и замены текста. Чтобы использовать RegExp в VBA, необходимо добавить ссылку на эту библиотеку через "Инструменты" > "Ссылки" (Tools > References) в редакторе VBA.

Пример: Использование регулярных выражений для извлечения данных

Предположим, мы хотим найти все адреса электронной почты в данном тексте. Вот пример кода, который можно использовать для этой цели:

Dim regEx As Object
Dim matches As Object
Dim match As Variant
Dim inputText As String

' Текст для поиска
inputText = "Contact emails are: john.doe@example.com, jane.smith@work.org"

' Создаем новый объект RegExp
Set regEx = CreateObject("VBScript.RegExp")

With regEx
    .Global = True        ' Найти все совпадения
    .MultiLine = True     ' Многострочный режим
    .IgnoreCase = True    ' Без учета регистра
    .Pattern = "\b[A-Z0-9._%+-]+@[A-Z0-9.-]+\.[A-Z]{2,}\b"  ' Шаблон для поиска email
End With

' Выполняем поиск по шаблону
Set matches = regEx.Execute(inputText)

' Выводим все найденные совпадения
For Each match In matches
    Debug.Print match.Value
Next match

' Освобождаем объект
Set regEx = Nothing

В этом примере:

• Создается объект RegExp.
• Устанавливается шаблон для поиска электронных адресов.
• Выполняется поиск по введенному тексту.
• Все найденные совпадения выводятся в окно немедленного выполнения (Immediate Window).

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

Отладка — ключевой элемент процесса разработки в VBA. Она помогает обнаружить и исправить ошибки в коде. Вот несколько техник отладки, которые можно использовать в VBA:

1. Точки останова (Breakpoints): позволяют приостановить выполнение кода на определенной строке.
2. Пошаговое выполнение (Step Through): выполняет код по одной строке за раз с помощью клавиш F8 или соответствующих кнопок на панели инструментов.
3. Окно "Немедленное выполнение" (Immediate Window): используется для вывода значений переменных и выполнения строк кода в реальном времени.
4. Просмотр выражений (Watch Expressions): позволяет отслеживать значения переменных и выражений в процессе выполнения кода.
5. Локальные окна (Locals Window): автоматически отображает все переменные, которые были объявлены в текущей процедуре и их значения.
6. Окно "Вызов стека" (Call Stack): показывает последовательность вызовов процедур или функций в момент останова кода.

Обработка ошибок в VBA может выполняться с помощью конструкции On Error. Вот основные способы ее использования:

1. On Error Resume Next: при возникновении ошибки, VBA игнорирует её и продолжает выполнение со следующей строки.
2. On Error GoTo Label: перенаправляет выполнение кода на метку, где размещена обработка ошибки.
3. On Error GoTo 0: отключает обработку ошибок и возвращает стандартную систему обработки.

Пример обработки ошибок при парсинге:

Sub ParseData()
    On Error GoTo ErrorHandler

    ' Код для парсинга данных
    ' ...

    Exit Sub

ErrorHandler:
    MsgBox "Произошла ошибка: " & Err.Description
    ' Выполнение дополнительных действий по обработке ошибки
    ' ...
    Resume Next
End Sub

В этом примере, если во время выполнения кода происходит ошибка, управление переходит в блок ErrorHandler, где пользователь уведомляется сообщением о произошедшей ошибке. С помощью Resume Next выполнение кода может быть продолжено с точки следующей за той, где произошла ошибка.

При работе с парсингом данных часто встречаются ошибки, связанные с неправильным форматом данных, их отсутствием или недоступностью источника данных. Продуманная обработка таких ошибок делает программу устойчивой к исключительным ситуациям и обеспечивает более плавное взаимодействие с пользователем.

Советы по оптимизации кода

1. Избегайте излишних обращений к объектам Excel: Каждое обращение к объектам Excel (ячейки, диапазоны, листы) замедляет выполнение кода. Старайтесь сокращать эти обращения, используя переменные и массивы.
2. Используйте массивы для обработки данных: Чтение и запись данных в массивы намного быстрее, чем непосредственное взаимодействие с ячейками листа.
3. Отключайте обновление экрана: Используйте Application.ScreenUpdating = False в начале кода и возвращайте значение True после выполнения кода.
4. Отключайте другие автоматические функции Excel: Application.Calculation и Application.EnableEvents могут быть временно отключены для ускорения работы кода.
5. Используйте конструкцию With ... End With: Это позволяет сократить количество повторяющегося кода и ускорить доступ к объектам.

Безопасность и соблюдение правил парсинга

1. Соблюдайте законодательство и условия использования: Убедитесь, что парсинг сайтов и использование данных не нарушает авторские права, законодательство о защите данных и условия использования сайтов.
2. Используйте задержки и лимиты запросов: Для избежания блокировки со стороны веб-серверов из-за частых запросов.
3. Обрабатывайте персональные данные с осторожностью: Убедитесь, что соблюдаете нормы защиты персональных данных, например GDPR.

Подведение итогов и лучшие практики

1. Комментируйте код: Понятные комментарии делают код более читаемым и облегчают совместную работу и поддержку.
2. Структурируйте код: Использование модулей, процедур и функций для разделения кода на логические блоки.
3. Регулярно тестируйте код: Тестирование отдельных частей кода помогает быстро находить и исправлять ошибки.
4. Используйте обработку ошибок: Всегда предусматривайте обработку потенциальных ошибок в коде.
5. Поддерживайте код в актуальном состоянии: Регулярно обновляйте код, устраняйте устаревшие конструкции и методы.
6. Обеспечьте безопасность: Защищайте данные и код от несанкционированного доступа и использования.
7. Документируйте проект: Подробная документация по проекту важна для понимания работы кода и его будущей поддержки.

Применение этих советов и практик поможет сделать ваш код VBA более надежным, безопасным и легким для понимания и сопровождения.

Код для парсинга JSON

' Необходимо добавить ссылку на библиотеку JSON (например, JsonConverter)
Dim jsonText As String
Dim jsonObject As Object

' Пример строки JSON
jsonText = "{""name"":""John Doe"",""age"":30,""city"":""New York""}"

' Парсинг строки JSON
Set jsonObject = JsonConverter.ParseJson(jsonText)

' Использование данных из JSON
Debug.Print jsonObject("name")
Debug.Print jsonObject("age")
Debug.Print jsonObject("city")

Set jsonObject = Nothing

Код для парсинга HTML

' Необходимо добавить ссылку на Microsoft HTML Object Library
Dim htmlDoc As New HTMLDocument
Dim htmlElement As IHTMLElement
Dim htmlContent As String

' Пример HTML содержимого
htmlContent = "<html><body><p>Example paragraph</p></body></html>"

' Загрузка HTML содержимого
htmlDoc.body.innerHTML = htmlContent

' Поиск элемента по тегу
Set htmlElement = htmlDoc.getElementsByTagName("p")(0)

' Вывод содержимого элемента
Debug.Print htmlElement.innerText

Set htmlElement = Nothing
Set htmlDoc = Nothing

Код для HTTP запросов

Dim httpRequest As Object
Dim url As String
Dim responseData As String

' Создаем объект для HTTP-запросов
Set httpRequest = CreateObject("MSXML2.XMLHTTP")

' Указываем URL для запроса
url = "https://api.example.com/data"

' Отправляем GET-запрос
httpRequest.Open "GET", url, False
httpRequest.send

' Обрабатываем ответ
responseData = httpRequest.responseText
Debug.Print responseData

Set httpRequest = Nothing

Код для парсинга XML

' Необходимо добавить ссылку на Microsoft XML, v6.0
Dim xmlDoc As New MSXML2.DOMDocument60
Dim xmlNodeList As IXMLDOMNodeList
Dim xmlNode As IXMLDOMNode

' Загрузка XML файла
xmlDoc.async = False
xmlDoc.Load "C:\path\to\file.xml"

' Поиск элементов по тегу
Set xmlNodeList = xmlDoc.getElementsByTagName("Employee")

' Вывод информации по каждому элементу
For Each xmlNode In xmlNodeList
    Debug.Print xmlNode.selectSingleNode("Name").Text
    Debug.Print xmlNode.selectSingleNode("Age").Text
Next

Set xmlDoc = Nothing

Код для работы с CSV и Excel

' Чтение данных из CSV
Sub ReadCSV()
    Dim dataArray() As String
    Dim dataLine As String
    Dim rowNum As Long
    rowNum = 1

    Open "C:\path\to\file.csv" For Input As #1
    Do Until EOF(1)
        Line Input #1, dataLine
        dataArray = Split(dataLine, ",")
        ' Данные dataArray теперь могут быть использованы для заполнения ячеек Excel
        ' ...
        rowNum = rowNum + 1
    Loop
    Close #1
End Sub

' Запись данных в CSV
Sub WriteToCSV()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Dim myFile As String
    myFile = "C:\path\to\file.csv"
    Open myFile For Output As #2
    Dim r As Long, c As Long
    For r = 1 To ws.UsedRange.Rows.Count
        For c = 1 To ws.UsedRange.Columns.Count
            If c = ws.UsedRange.Columns.Count Then
                Write #2, ws.Cells(r, c)
            Else
                Write #2, ws.Cells(r, c) & ",";
            End If
        Next c
    Next r
    Close #2
End Sub

Код с регулярными выражениями

' Необходимо добавить ссылку на Microsoft VBScript Regular Expressions 5.5
Dim regEx As New RegExp
Dim matches As MatchCollection
Dim match As Match

' Устанавливаем шаблон для регулярного выражения
regEx.Pattern = "(\b[A-Za-z0-9._%+-]+@[A-Za-z0-9.-]+\.[A-Z|a-z]{2,}\b)"
regEx.Global = True
regEx.IgnoreCase = True

' Пример текста для поиска
Dim sampleText As String
sampleText = "Emails are: example@test.com, test@example.net"

' Выполнение поиска
Set matches = regEx.Execute(sampleText)

' Вывод всех совпадений
For Each match In matches
    Debug.Print match.Value
Next match

Set regEx = Nothing

Эти примеры дают базовое представление о том, как использовать VBA для парсинга различных типов данных. Они могут быть адаптированы и расширены в зависимости от конкретных потребностей и задач.