Макросы для Excel. Парсинг сайтов. Программист Excel. Надстройки для Excel, и макросы VBA.

Задание закрыто
Статус рабочей области:Поиск исполнителя
Стоимость:Договорная
Срок выполнения:1 день
Варианты оплаты:По договоренности
Дата публикации:2024-12-24 21:24
Обновлено:2025-05-18 14:50
Был(а) на сайте:2025-05-25 16:41

Макросы для Excel. Парсинг сайтов. Программист Excel. Надстройки для Excel, и макросы VBA.

 
Задача

Сделать парсер сайта федресурс точка ру.
Результат парсинга записать в таблицу.
Парсер должен запускаться со стационарного компа.
Технология-
Макросы для Excel. Парсинг сайтов.

Надстройки для Excel, и макросы VBA.

Оставлять заявки могут только авторизованные пользователи.
Исполнитель по этому заданию выбран.
Stanislav Ricci
Stanislav Ricci ricci
Основная специализация: ИТ и Разработка
    Решение
    Мы создадим макрос на VBA, который будет проходить по каждой ячейке в столбце "текст", искать кадастровые номера с помощью регулярных выражений и записывать найденные номера в столбец "кадастровый номер". Если в ячейке не найдено ни одного номера, то соседняя ячейка остаётся пустой.

    Шаг 1: Открытие редактора VBA
    Откройте ваш файл Excel.
    Нажмите ALT + F11 для открытия редактора VBA.
    В меню выберите Insert -> Module, чтобы добавить новый модуль.
    Шаг 2: Вставка кода макроса
    Вставьте следующий код в открытый модуль:

    Sub ExtractCadastralNumbers()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim textCell As Range
    Dim cadNumbers As Collection
    Dim cadNumber As Variant
    Dim regex As Object
    Dim matches As Object
    Dim cadPattern As String
    Dim outputRow As Long
    Dim textColumn As String
    Dim cadColumn As String

    ' Укажите имя листа, если необходимо
    Set ws = ThisWorkbook.ActiveSheet

    ' Укажите столбцы по заголовкам
    textColumn = GetColumnByHeader(ws, "текст")
    cadColumn = GetColumnByHeader(ws, "кадастровый номер")

    If textColumn = "" Then
    MsgBox "Не найден столбец с заголовком 'текст'.", vbCritical
    Exit Sub
    End If

    If cadColumn = "" Then
    MsgBox "Не найден столбец с заголовком 'кадастровый номер'.", vbCritical
    Exit Sub
    End If

    ' Определение последней строки с данными в столбце "текст"
    lastRow = ws.Cells(ws.Rows.Count, textColumn).End(xlUp).Row

    ' Создание объекта регулярных выражений
    Set regex = CreateObject("VBScript.RegExp")
    regex.Global = True
    ' Пример паттерна кадастрового номера: XX:XXX:XXXXXXX:X
    ' Измените паттерн в соответствии с точным форматом
    cadPattern = "\b\d{2}:\d{3}:\d{7}:\d\b"
    regex.Pattern = cadPattern

    ' Установка начальной строки для вывода
    outputRow = ws.Cells(ws.Rows.Count, cadColumn).End(xlUp).Row + 1
    Иван К
    Иван К ivan1995
    Основная специализация: Инженерия
    Здравствуйте, готов помочь с программой , опыт есть.

    Мои контакты:

    ivan12.karpov9595@mail.ru

    Телеграмм @mtap3019
    Сергей Плотников
    Сергей Плотников sergiokontent
    Основная специализация: ИТ и Разработка
      Максим!

      А при чем, во вложение, рисунок?
      Можно увидеть набор данных, для которых создаём таблицу?

      Готов выполнить ваше задание в указанный срок, есть опыт.

      Пишите, можно в Телеграм (контакт указан ниже).
      Кларк Крейг
      Кларк Крейг LisserMan
      Основная специализация: ИТ и Разработка
      Здравствуйте! Для оценки нужно смотреть файл Эксель.
      Игорь Павлов
      Игорь Павлов pavlov680
      Основная специализация: ИТ и Разработка
        напишу макрос
        Alexandr Alexandrov
        Alexandr Alexandrov gglalex
        Основная специализация: Веб-разработка и Продуктовый дизайн
        Здравствуйте! Напишу макрос для Excel, чтобы извлекать кадастровые номера и записывать их в нужный столбец, с настройкой фильтра на 10 строк. TG: @Alexuys.

        Примеры моих работ

        Календарь на swift
        web app
        site
        Daicha Takeda
        Daicha Takeda cockie35
        Основная специализация: ИТ и Разработка
          Привет, имею большой опыт в разработке скриптов, сайтов, парсеров и просто програм на python, одним словом пишу всо, также пишу приложения на Андроид, с удовольствием возьмусь за работу, сделаю всо в лучшем виде и в кратчайшие сроки, также помогу запустить и разобраться.

          Мое портфолио: https://ochistka35.wixsite.com/daichasportfolio
          Мой телеграм: https://t.me/daichitakeda

          Примеры моих работ

          Сайт
          Сайт
          Сайт на WordPress
          Николай Шикин
          Николай Шикин guru_sun
          Основная специализация: ИТ и Разработка
          Разработка парсера для сайта Федресурс

          Создам парсер для сайта fedresurs.ru с использованием макросов для Excel и VBA. Результаты парсинга будут записываться в таблицу. Парсер будет запускаться с вашего стационарного компьютера.

          Какую именно информацию вы хотите извлекать с сайта?

          Свяжитесь со мной в Telegram: https://t.me/snik550950.
          Леонид
          Леонид zapdos
          Основная специализация: ИТ и Разработка
            Сбор единоразовый или многоразовый?
            Виктор Ли
            Виктор Ли viklee1993
            Готов помочь.
            Телеграмм для связи: https://t.me/viktordev93
            Максим С
            Максим С starmucks
            Основная специализация: ИТ и Разработка
              Здравствуйте. Меня зовут Максим. У меня большой опыт разработки приложений - более 15 лет. Есть положительный опыт написания парсеров и сохранения результатов в Excel. Готов к сотрудничеству
              Дамир Абейдуллин
              Дамир Абейдуллин damir04
              Основная специализация: ИТ и Разработка
              Здравствуйте, Максим, готов обсудить детали проекта. Опыт есть!

              Жду Вашего ответа!
              ---------------------------------------
              Telegram - @ab_damirr

              WhatsApp- +79172088852

              Почта - freelancedamir@yandex.ru

              Примеры моих работ

              IT и Разработка
              Дизайн, Монтаж и 3D
              Копирайтинг, Рерайтинг и Переводы
              Maqs Raulov
              Maqs Raulov m1dev0m
                здравстуйте готов сделать вш заказ буду рад если примите можем договориться о цене

                Оставлять заявки могут только авторизованные пользователи.

                Другие открытые задания:

                Разработать логотип для онлайн школы5 000 р.

                Бюджет: 5 000 р. Здравствуйте! Необходимо разработать логотип Школы правовой грамотности "ЮрТайм". Данная онлайн-школа будет обучать граждан как правильно себя вести в суд…

                Сделать 3Д анимацию 15 000 р.

                Бюджет: 15 000 р. Ищу 3Д Аниматора. Для выполнения задания по ТЗ. Анимация будет примерно такого уровня и формата: https://drive.google.com/drive/folders/1CNwaFkxy7fSHaxHd2y3i-7BZLX9…

                Разослать 2000 сообщений через Ватсап Вручную2 000 р.

                Бюджет: 2 000 р. Добрый день. У нас есть база номеров наших клиентов, которым нужно отправить информацию через ватсап. 2000 контактов. Оплата по 1 руб за номер . Дополнительно оплач…

                поиск заданий