Скопировать URL из браузера в Excel

Моя компания использует короткие URL-адреса для маркетинговых кампаний, которые перенаправляются на URL-адреса с отслеживанием. Например:

example.com/campaign

будет перенаправляться на:

example.com/utm_source= one & utm_medium = two & utm_term = three & utm_content = four & utm_campaign = пять

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

Есть ли способ скопировать URL отслеживания в Excel с помощью VBA?

До сих пор я исследовал следующее:

Dim ie As Object Set ie = CreateObject("Internetexplorer.Application") ie.Navigate Cells(1, 1) 

Но я не могу найти способ скопировать новый URL-адрес в excel.

Я также пробовал:

 Dim link As Hyperlink Cells(1, 1).Select Set link = ActiveSheet.Hyperlinks.Add(Anchor:=Cells(1, 1), Address:=Cells(1, 1)) link.Follow Cells(1, 2) = link.Address 

Однако это просто (неудивительно) возвращает оригинальную гиперссылку.

Как я могу вернуть URL отслеживания? В идеале без установки какого-либо другого программного обеспечения (поскольку ИТ-отдел моей компании является кошмаром), но если это единственный вариант, пусть и так.

Я считаю, что это будет делать то, что вы хотите:

 Set webClient = CreateObject("WinHttp.WinHttpRequest.5.1") webClient.Option(6) = False webClient.Open "GET", Cells(1, 1), False webClient.send ("") Cells(1, 2) = webClient.GetResponseHeader("Location") 

Я получил эту идею из этого другого ответа .

То, что вы пытаетесь сделать, это получить местоположение, на которое вы перенаправляете.

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

Вы хотите свойство .LocationURL

 Const READYSTATE_COMPLETE As Long = 4 Dim IE As Object Set IE = CreateObject("InternetExplorer.Application") IE.Navigate Cells(1, 1).Value '// Wait for page to finish loading While IE.Busy Or IE.ReadyState <> READYSTATE_COMPLETE DoEvents Wend Cells(1, 2).Value = IE.LocationURL 
  • Открытие URL-адреса из Excel (VBA) без открытия браузера
  • Поиск URL-адреса веб-браузера
  • Как использовать Excel для открытия нового URL-адреса на открытой вкладке Chrome без открытия новой вкладки
  • VBS-скрипты для создания ссылки на внешний веб-сайт в Excel
  • Excel VBA извлекает значения JSON URL
  • Не удалось открыть мой excelSheet в приложении MS-Excel iOS из моего приложения iOS через схему URL
  • VBA - скачать файл с url без имени файла
  • Excel - удалить начало в списке URL в Excel (вытащить уникальные окончания)
  • Загрузка файла Java из URL с неизвестным именем файла
  • Замена частей URL со значением из столбца
  • Таблица сводных таблиц Excel: открыть URL с настройками сводной таблицы в качестве параметра
  • Interesting Posts

    Loop – сопоставить значения в двух столбцах в разных листах, скопировать всю строку в новую таблицу, если совпадение

    Вычисление уникальных дат в нескольких диапазонах дат

    Как поймать событие изменения для ячейки, содержащей формулу

    Excel VBA Looping в листе и сохранение каждого зацикленного файла на основе диапазона ячеек

    Как скопировать данные из одного столбца в другой с теми же данными, что и в c #

    IndexError: индекс индекса за пределами диапазона, я не использую индекс out list

    Запросы на выборка Row

    Как получить все ячейки в определенном столбце?

    Как сохранить XML-файл ** EXCEL ** с помощью linq?

    Как ссылаться на динамический диапазон для проверки ячейки в программном обеспечении excel

    Перекрестные ссылки на рассылки для печати значений

    Извлечение данных из 100 различных книг Excel в одну книгу

    Комбинированный алгоритм в Excel VBA

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

    Формула автозаполнения VBA

    Давайте будем гением компьютера.