копирование адресной строки

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

копирование адресной строки (Макросы/Sub)

Константин

Дата: Вторник, 02.09.2014, 12:55 | Сообщение № 1

Группа: Гости

Добрый День. Подскажите пожалуйста. Работаю на браузере Chrome. Есть 20 открытых вкладок. Как можно сделать так , что бы все адреса с адресной строки каждой вкладки копировались в ячейки Excel ?

Ответить

Rioran

Дата: Вторник, 02.09.2014, 15:46 | Сообщение № 2

Группа: Авторы

Ранг: Ветеран

Сообщений: 903

Репутация: 290 ±

Замечаний: 0% ±

Excel 2013

Константин, здравствуйте.

Если для Вас возможно перебраться на Enternet Explorer, то вы могли бы воспользоваться этой статьёй (на английском).

Роман, Москва, voronov_rv@mail.ru
Яндекс-Деньги: 41001312674279

Ответить

Gustav

Дата: Вторник, 02.09.2014, 16:30 | Сообщение № 3

Группа: Админы

Ранг: Участник клуба

Сообщений: 2867

Репутация: 1208 ±

Замечаний: ±

начинал с Excel 4.0, видел 2.1

Любопытная задачка. Не знаю, подойдёт ли для Хрома, но для Ишачка нарисовалось следующее:
[vba]

Код

Sub ieAddressToExcel()

     Dim shell_windows As Object 'SHDocVw.ShellWindows
     Dim ie            As Object 'SHDocVw.InternetExplorer
     Dim a() As String
     Dim i   As Integer

     'получение окон IE
     Set shell_windows = CreateObject("Shell.Application").Windows 'New SHDocVw.ShellWindows
     ReDim a(1 To shell_windows.Count, 1 To 2)
     i = 0
     For Each ie In shell_windows
         i = i + 1
         a(i, 1) = ie.LocationName 'название окна
         a(i, 2) = ie.LocationURL  'адресная строка
     Next

     'вывод в Excel
     Range("A1").Resize(shell_windows.Count, 2).Value = a
End Sub

[/vba]

Использованные источники:
1. http://www.sql.ru/forum....togo-ie
2. https://groups.google.com/forum....dLuvk9w

МОИ: Ник, Tip box: 41001663842605

Ответить

копирование адресной строки (Макросы/Sub)

Страница 1 из 1
1