{"text_format":"1","workbook":"xlsx","n_sheets":1,"sheets":["Лист1"],"not_rendered":{"charts":0,"images":0,"macros":1,"external_links":0,"defined_names":0,"comments":0,"pivot_tables":0},"unopened":[],"bounds":{"document_bytes":16777216,"sheet_cells":100000,"rows_first":2000,"rows_last":500,"rows_between":2000,"halvings":0,"cell_chars":16384,"cell_head_chars":4096},"cells_cut":0,"cells_raw":0,"read":"whole","date_system":"1900"}

{"sheet":"Лист1","index":0,"n_rows":843,"n_cols":1,"rows_kept":843,"cut":false,"hidden":false,"merged":[]}
["           МИР MS EXCEL - Гость.xls      ГлавнаяExcelГотовые решенияФорумыБиблиотекаВидеосалонСправочникиРазработчикВходРегистрацияНапомнить пароль\r"]
[" \r"]
["Главная\r"]
["сайта\r"]
["Главная\r"]
["форумов\r"]
["Блог\r"]
["Пройти\r"]
["тестирование\r"]
["Заказать\r"]
["работу\r"]
["Главные страницы\r"]
["О сайте\r"]
["Контакты\r"]
["Карта\r"]
["сайта\r"]
["Книга\r"]
["отзывов\r"]
["СтатистикаИнформация о сайте\r"]
["Список\r"]
["Мини-чатУчастники\r"]
["Новости\r"]
["Помочь сайтуРазвитие сайта\r"]
["Друзья\r"]
["РекламаСсылки\r"]
["Часто задаваемые\r"]
["вопросыFAQ\r"]
["Рабочая\r"]
["область\r"]
["Формулы\r"]
["Сводные\r"]
["таблицы\r"]
["Форматирование\r"]
["Выпадающие\r"]
["списки\r"]
["Примечания\r"]
["ГиперссылкиПриемы работы\r"]
["Инструменты\r"]
["Тонкая\r"]
["настройкаИнструменты и настройки\r"]
["Импорт\r"]
["данныхExcel и Web\r"]
["Приложения\r"]
["офисаИнтеграция\r"]
["Различия Excel\r"]
["для Windows и MacOSExcel Windows\r"]
["и\r"]
["Excel Macintosh\r"]
["Формулы\r"]
["Сводные\r"]
["таблицы\r"]
["Диаграммы\r"]
["Полезные\r"]
["приемыExcel\r"]
["Процедуры\r"]
["Пользовательские\r"]
["функции\r"]
["Полезные\r"]
["приемыVBA\r"]
["Полезные\r"]
["приемыVB.NET\r"]
["Правила\r"]
["форума\r"]
["Главная\r"]
["форумов\r"]
["\r"]
["Главные страницы\r"]
["Вопросы\r"]
["по Excel\r"]
["Вопросы\r"]
["по VBA\r"]
["Готовые\r"]
["решения\r"]
["Excel и другие\r"]
["приложенияВопросы и решения\r"]
["Неформальное\r"]
["общение\r"]
["Мозговой\r"]
["штурм\r"]
["Работа/ФрилансРабота и общение\r"]
["Вопросы по работе\r"]
["форума и сайта\r"]
["Объявления\r"]
["администрацииРабота форума и сайта\r"]
["Ленточный\r"]
["вариант форумаНовые сообщения\r"]
["Функции и\r"]
["формулы\r"]
["Графики и\r"]
["диаграммы\r"]
["Сводные\r"]
["таблицы\r"]
["Excel и VBA\r"]
["Книги по Excel\r"]
["Применение\r"]
["VBA в Excel\r"]
["Программирование\r"]
["на VBA\r"]
["Книги по VBA\r"]
["Сборники книг\r"]
["Книги для\r"]
["студентов ВУЗов\r"]
["Специализированные\r"]
["книги\r"]
["Разное\r"]
["Видео\r"]
["к статьям\r"]
["Видеофайлы\r"]
["Видео\r"]
["Все\r"]
["функцииАвтосуммаЧасто используемыеВПРЕСЛИСУММЕСЛИФинансовыеЛогическиеТекстовыеДаты и времени Ссылки и массивы МатематическиеДругие функцииСтатистическиеИнженерныеАналитическиеПроверка свойств и значенийБаз данныхФункции листа Excel\r"]
["Все\r"]
["функцииМатематическиеОбработки массивовОбработки строкПреобразования типов данных Загрузки данныхДругие функцииРаботы с файламиОбработки системных параметровОбработки цветаРаботы с датами и временемПреобразования в системы счисленияРаботы с объектамиФинансовыеФорматированияРаботы с указателямиФункции VBA\r"]
["Visual\r"]
["Basic\r"]
["Макросы\r"]
["Пользовательские\r"]
["функции\r"]
["Пользовательские\r"]
["формы\r"]
["Код\r"]
["Надстройки\r"]
["Надстройки\r"]
["COM\r"]
["Надстройки\r"]
["Элементы\r"]
["управления формы\r"]
["Элементы\r"]
["ActiveX\r"]
["Элементы управления\r"]
["Листы\r"]
["макросов\r"]
["Макрофункции\r"]
["XLM\r"]
["Программы для\r"]
["работы с Excel\r"]
["Программы\r"]
["на VBA\r"]
["Программы\r"]
["  \r"]
["\r"]
["  = Мир MS Excel/Копирование данных в Excel из активного окна браузера IE - Мир MS Excel\r"]
["Регистрация · Логин: · Пароль: ·   · Забыли пароль?    \r"]
["Страница 1 из 212»  \r"]
["Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK \r"]
["Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копирование данных в Excel из активного окна браузера IE (Макросы/Sub)  \r"]
["\r"]
["Копирование данных в Excel из активного окна браузера IE \r"]
["andry_razДата: Четверг, 15.03.2018, 00:18 | Сообщение № 1\r"]
["Группа: Пользователи\r"]
["Ранг: Прохожий\r"]
["Сообщений: 8\r"]
["Репутация: 0 ± \r"]
["Замечаний: 0% ± \r"]
["\r"]
["Excel 2016 \r"]
["Подскажите пожалуйста! Уже неделю ищу на просторах не могу найти. Сразу говорю, что в макросах новичок. Мне необходимо, чтобы макрос копировал данные из открытого активного окна браузера IE (тоесть не использовал http запросы, так как система, для которой я делаю эту возможность крайне кривая) и вставлял в ексель. Осуществимо это в принципе или нет? Подскажите решение пожалуйста.\r"]
["Подскажите пожалуйста! Уже неделю ищу на просторах не могу найти. Сразу говорю, что в макросах новичок. Мне необходимо, чтобы макрос копировал данные из открытого активного окна браузера IE (тоесть не использовал http запросы, так как система, для которой я делаю эту возможность крайне кривая) и вставлял в ексель. Осуществимо это в принципе или нет? Подскажите решение пожалуйста.andry_raz\r"]
["   \r"]
["\r"]
["Ответить СообщениеПодскажите пожалуйста! Уже неделю ищу на просторах не могу найти. Сразу говорю, что в макросах новичок. Мне необходимо, чтобы макрос копировал данные из открытого активного окна браузера IE (тоесть не использовал http запросы, так как система, для которой я делаю эту возможность крайне кривая) и вставлял в ексель. Осуществимо это в принципе или нет? Подскажите решение пожалуйста.\r"]
["\r"]
["Автор - andry_raz\r"]
["Дата добавления - 15.03.2018 в 00:18\r"]
["\r"]
["SLAVICKДата: Четверг, 15.03.2018, 10:42 | Сообщение № 2\r"]
[" Группа: Модераторы\r"]
["Ранг: Старожил\r"]
["Сообщений: 2208\r"]
["Репутация: 739 ± \r"]
["Замечаний: 0% ± \r"]
["\r"]
["2007,2010,2013,2016 \r"]
["Цитата andry_raz, 15.03.2018 в 00:18, в сообщении № 1 ( писал(а)): \r"]
["Уже неделю ищу на просторах не могу найти. \r"]
["\r"]
["тут есть интересная тема\r"]
["\r"]
["Sub d()\r"]
["    a = GetIE.Document.body.innerText\r"]
["    MsgBox Left(a, 500)\r"]
["    arr = Split(a, vbLf)\r"]
["    Cells.Clear\r"]
["    Cells(1, 1).Resize(UBound(arr) + 1, 1) = Application.Transpose(arr)\r"]
["End Sub\r"]
["Function GetIE() As Object\r"]
["https://stackoverflow.com/questions/25897956/get-existing-ie-via-vba?rq=1\r"]
["Dim ShellApp As Object, ShellWindows As Object, i As Long\r"]
["Dim IEObject As Object\r"]
["Set ShellApp = CreateObject(\"Shell.Application\")\r"]
["Set ShellWindows = ShellApp.Windows()\r"]
["For Each It In ShellWindows\r"]
["    If InStr(It.FullName, \"IEXPLORE\") <> 0 Then\r"]
["    Set IEObject = It\r"]
["    Exit For  'No need to continue....\r"]
["    End If\r"]
["Next\r"]
["If IEObject Is Nothing Then Set IEObject = CreateObject(\"InternetExplorer.Application\")\r"]
["Set GetIE = IEObject\r"]
["End Function\r"]
["\r"]
["Цитата andry_raz, 15.03.2018 в 00:18, в сообщении № 1 ( писал(а)): Уже неделю ищу на просторах не могу найти. \r"]
["тут есть интересная тема\r"]
["\r"]
["Sub d()\r"]
["    a = GetIE.Document.body.innerText\r"]
["    MsgBox Left(a, 500)\r"]
["    arr = Split(a, vbLf)\r"]
["    Cells.Clear\r"]
["    Cells(1, 1).Resize(UBound(arr) + 1, 1) = Application.Transpose(arr)\r"]
["End Sub\r"]
["Function GetIE() As Object\r"]
["https://stackoverflow.com/questions/25897956/get-existing-ie-via-vba?rq=1\r"]
["Dim ShellApp As Object, ShellWindows As Object, i As Long\r"]
["Dim IEObject As Object\r"]
["Set ShellApp = CreateObject(\"Shell.Application\")\r"]
["Set ShellWindows = ShellApp.Windows()\r"]
["For Each It In ShellWindows\r"]
["    If InStr(It.FullName, \"IEXPLORE\") <> 0 Then\r"]
["    Set IEObject = It\r"]
["    Exit For  'No need to continue....\r"]
["    End If\r"]
["Next\r"]
["If IEObject Is Nothing Then Set IEObject = CreateObject(\"InternetExplorer.Application\")\r"]
["Set GetIE = IEObject\r"]
["End Function\r"]
["SLAVICK\r"]
["К сообщению приложен файл: iE.xlsm(18.5 Kb) \r"]
["\r"]
["\r"]
["\r"]
["Иногда все проще чем кажется с первого взгляда. \r"]
["    \r"]
["\r"]
["Ответить СообщениеЦитата andry_raz, 15.03.2018 в 00:18, в сообщении № 1 ( писал(а)): Уже неделю ищу на просторах не могу найти. \r"]
["тут есть интересная тема\r"]
["\r"]
["[vba]Sub d() a = GetIE.Document.body.innerText MsgBox Left(a, 500) arr = Split(a, vbLf) Cells.Clear Cells(1, 1).Resize(UBound(arr) + 1, 1) = Application.Transpose(arr)End SubFunction GetIE() As Object'https://stackoverflow.com/questions/25897956/get-existing-ie-via-vba?rq=1Dim ShellApp As Object, ShellWindows As Object, i As LongDim IEObject As ObjectSet ShellApp = CreateObject(\"Shell.Application\")Set ShellWindows = ShellApp.Windows()For Each It In ShellWindows If InStr(It.FullName, \"IEXPLORE\") <> 0 Then Set IEObject = It Exit For 'No need to continue.... End IfNext'If IEObject Is Nothing Then Set IEObject = CreateObject(\"InternetExplorer.Application\")Set GetIE = IEObjectEnd Function[/vba]\r"]
["\r"]
["Автор - SLAVICK\r"]
["Дата добавления - 15.03.2018 в 10:42\r"]
["\r"]
["andry_razДата: Пятница, 16.03.2018, 13:30 | Сообщение № 3\r"]
["Группа: Пользователи\r"]
["Ранг: Прохожий\r"]
["Сообщений: 8\r"]
["Репутация: 0 ± \r"]
["Замечаний: 0% ± \r"]
["\r"]
["Excel 2016 \r"]
["SLAVICK, Спасибо за ответ. Искал на русскоязычных просторах... про другие языки не подумал. Да я и не очень на других языках. Про код, который Вы написали - у меня почему то ругается на переменную a (говорит что не может найти библиотеку или проеккт). Необходимо подключение библиотек дополнительных?\r"]
["SLAVICK, Спасибо за ответ. Искал на русскоязычных просторах... про другие языки не подумал. Да я и не очень на других языках. Про код, который Вы написали - у меня почему то ругается на переменную a (говорит что не может найти библиотеку или проеккт). Необходимо подключение библиотек дополнительных?andry_raz\r"]
["   \r"]
["\r"]
["Ответить СообщениеSLAVICK, Спасибо за ответ. Искал на русскоязычных просторах... про другие языки не подумал. Да я и не очень на других языках. Про код, который Вы написали - у меня почему то ругается на переменную a (говорит что не может найти библиотеку или проеккт). Необходимо подключение библиотек дополнительных?\r"]
["\r"]
["Автор - andry_raz\r"]
["Дата добавления - 16.03.2018 в 13:30\r"]
["\r"]
["SLAVICKДата: Пятница, 16.03.2018, 14:13 | Сообщение № 4\r"]
[" Группа: Модераторы\r"]
["Ранг: Старожил\r"]
["Сообщений: 2208\r"]
["Репутация: 739 ± \r"]
["Замечаний: 0% ± \r"]
["\r"]
["2007,2010,2013,2016 \r"]
["Библиотек не нужно. А в моей книге работает?\r"]
["Если да - тогда скорее всего у вас в начале модуля включено:\r"]
["Option Explicit\r"]
["Нужно объявить все переменные.\r"]
["Библиотек не нужно. А в моей книге работает?\r"]
["Если да - тогда скорее всего у вас в начале модуля включено:\r"]
["Option Explicit\r"]
["Нужно объявить все переменные.SLAVICK\r"]
["\r"]
["\r"]
["Иногда все проще чем кажется с первого взгляда. \r"]
["    \r"]
["\r"]
["Ответить СообщениеБиблиотек не нужно. А в моей книге работает?\r"]
["Если да - тогда скорее всего у вас в начале модуля включено:\r"]
["Option Explicit\r"]
["Нужно объявить все переменные.\r"]
["\r"]
["Автор - SLAVICK\r"]
["Дата добавления - 16.03.2018 в 14:13\r"]
["\r"]
["and_evgДата: Пятница, 16.03.2018, 14:17 | Сообщение № 5\r"]
["Группа: Проверенные\r"]
["Ранг: Обитатель\r"]
["Сообщений: 300\r"]
["Репутация: 53 ± \r"]
["Замечаний: 0% ± \r"]
["\r"]
["Excel 2007 \r"]
[" \r"]
["Цитата andry_raz, 16.03.2018 в 13:30, в сообщении № 3 ( писал(а)): \r"]
["у меня почему то ругается на переменную a\r"]
["\r"]
["у меня так же\r"]
["\r"]
["Цитата SLAVICK, 16.03.2018 в 14:13, в сообщении № 4 ( писал(а)): \r"]
["А в моей книге работает?\r"]
["\r"]
["У меня не работает\r"]
["Цитата andry_raz, 16.03.2018 в 13:30, в сообщении № 3 ( писал(а)): у меня почему то ругается на переменную a\r"]
["у меня так же\r"]
["Цитата SLAVICK, 16.03.2018 в 14:13, в сообщении № 4 ( писал(а)): А в моей книге работает?\r"]
["У меня не работаетand_evg\r"]
["   \r"]
["\r"]
["Ответить СообщениеЦитата andry_raz, 16.03.2018 в 13:30, в сообщении № 3 ( писал(а)): у меня почему то ругается на переменную a\r"]
["у меня так же\r"]
["Цитата SLAVICK, 16.03.2018 в 14:13, в сообщении № 4 ( писал(а)): А в моей книге работает?\r"]
["У меня не работает\r"]
["\r"]
["Автор - and_evg\r"]
["Дата добавления - 16.03.2018 в 14:17\r"]
["\r"]
["SLAVICKДата: Пятница, 16.03.2018, 14:24 | Сообщение № 6\r"]
[" Группа: Модераторы\r"]
["Ранг: Старожил\r"]
["Сообщений: 2208\r"]
["Репутация: 739 ± \r"]
["Замечаний: 0% ± \r"]
["\r"]
["2007,2010,2013,2016 \r"]
[" \r"]
["Цитата and_evg, 16.03.2018 в 14:17, в сообщении № 5 ( писал(а)): \r"]
["У меня не работает\r"]
["\r"]
["А internet explorer - открыт?\r"]
["Там же идет поиск и захват именно открытого окна интернет internet explorer?\r"]
["Цитата and_evg, 16.03.2018 в 14:17, в сообщении № 5 ( писал(а)): У меня не работает\r"]
["А internet explorer - открыт?\r"]
["Там же идет поиск и захват именно открытого окна интернет internet explorer?SLAVICK\r"]
["\r"]
["\r"]
["Иногда все проще чем кажется с первого взгляда. \r"]
["    \r"]
["\r"]
["Ответить СообщениеЦитата and_evg, 16.03.2018 в 14:17, в сообщении № 5 ( писал(а)): У меня не работает\r"]
["А internet explorer - открыт?\r"]
["Там же идет поиск и захват именно открытого окна интернет internet explorer?\r"]
["\r"]
["Автор - SLAVICK\r"]
["Дата добавления - 16.03.2018 в 14:24\r"]
["\r"]
["MikaelДата: Пятница, 16.03.2018, 14:27 | Сообщение № 7\r"]
["Группа: Пользователи\r"]
["Ранг: Участник\r"]
["Сообщений: 68\r"]
["Репутация: 24 ± \r"]
["Замечаний: 0% ± \r"]
["\r"]
["Excel 2010 \r"]
[" \r"]
["Цитата and_evg, 16.03.2018 в 14:17, в сообщении № 5 ( писал(а)): \r"]
["У меня не работает\r"]
["\r"]
["IE запущен? Если он не запущен, а будет Empty.\r"]
["Цитата and_evg, 16.03.2018 в 14:17, в сообщении № 5 ( писал(а)): У меня не работает\r"]
["IE запущен? Если он не запущен, а будет Empty.Mikael\r"]
["   \r"]
["\r"]
["Ответить СообщениеЦитата and_evg, 16.03.2018 в 14:17, в сообщении № 5 ( писал(а)): У меня не работает\r"]
["IE запущен? Если он не запущен, а будет Empty.\r"]
["\r"]
["Автор - Mikael\r"]
["Дата добавления - 16.03.2018 в 14:27\r"]
["\r"]
["and_evgДата: Пятница, 16.03.2018, 14:50 | Сообщение № 8\r"]
["Группа: Проверенные\r"]
["Ранг: Обитатель\r"]
["Сообщений: 300\r"]
["Репутация: 53 ± \r"]
["Замечаний: 0% ± \r"]
["\r"]
["Excel 2007 \r"]
[" \r"]
["Цитата SLAVICK, 16.03.2018 в 14:24, в сообщении № 6 ( писал(а)): \r"]
["А internet explorer - открыт?\r"]
["\r"]
["\r"]
["Цитата Mikael, 16.03.2018 в 14:27, в сообщении № 7 ( писал(а)): \r"]
["IE запущен?\r"]
["Да\r"]
["Цитата SLAVICK, 16.03.2018 в 14:24, в сообщении № 6 ( писал(а)): А internet explorer - открыт?\r"]
["Цитата Mikael, 16.03.2018 в 14:27, в сообщении № 7 ( писал(а)): IE запущен?Даand_evg\r"]
["   \r"]
["\r"]
["Ответить СообщениеЦитата SLAVICK, 16.03.2018 в 14:24, в сообщении № 6 ( писал(а)): А internet explorer - открыт?\r"]
["Цитата Mikael, 16.03.2018 в 14:27, в сообщении № 7 ( писал(а)): IE запущен?Да\r"]
["\r"]
["Автор - and_evg\r"]
["Дата добавления - 16.03.2018 в 14:50\r"]
["\r"]
["sboyДата: Пятница, 16.03.2018, 14:57 | Сообщение № 9\r"]
["Группа: Проверенные\r"]
["Ранг: Старожил\r"]
["Сообщений: 1757\r"]
["Репутация: 498 ± \r"]
["Замечаний: 0% ± \r"]
["\r"]
["Excel 2010 \r"]
["Тоже проверил - не работает (ИЕ открыт, страница загружена)\r"]
["\r"]
["\r"]
["Тоже проверил - не работает (ИЕ открыт, страница загружена)\r"]
["\r"]
["sboy\r"]
["К сообщению приложен файл: 4668718.jpg(38.9 Kb) · 2327271.jpg(22.1 Kb) \r"]
["    \r"]
["\r"]
["Ответить СообщениеТоже проверил - не работает (ИЕ открыт, страница загружена)\r"]
["\r"]
["\r"]
["\r"]
["Автор - sboy\r"]
["Дата добавления - 16.03.2018 в 14:57\r"]
["\r"]
["SLAVICKДата: Пятница, 16.03.2018, 15:19 | Сообщение № 10\r"]
[" Группа: Модераторы\r"]
["Ранг: Старожил\r"]
["Сообщений: 2208\r"]
["Репутация: 739 ± \r"]
["Замечаний: 0% ± \r"]
["\r"]
["2007,2010,2013,2016 \r"]
["sboy, and_evg, странно - может процесс по другому называется.\r"]
["Запустите процедуру отдельно :\r"]
["Function GetIE() As Object\r"]
["Dim ShellApp As Object, ShellWindows As Object, i As Long\r"]
["Dim IEObject As Object\r"]
["Set ShellApp = CreateObject(\"Shell.Application\")\r"]
["Set ShellWindows = ShellApp.Windows()\r"]
["For Each It In ShellWindows\r"]
["Debug.Print It.FullName\r"]
["    If InStr(It.FullName, \"IEXPLORE\") <> 0 Then\r"]
["    Set IEObject = It\r"]
["    \r"]
["    Exit For  'No need to continue....\r"]
["    End If\r"]
["Next\r"]
["If IEObject Is Nothing Then Set IEObject = CreateObject(\"InternetExplorer.Application\")\r"]
["Set GetIE = IEObject\r"]
["End Function\r"]
["\r"]
["что выдает Debug.Print\r"]
["У меня:\r"]
["C:\\Windows\\Explorer.EXE\r"]
["C:\\Program Files (x86)\\Internet Explorer\\IEXPLORE.EXE\r"]
["sboy, and_evg, странно - может процесс по другому называется.\r"]
["Запустите процедуру отдельно :\r"]
["Function GetIE() As Object\r"]
["Dim ShellApp As Object, ShellWindows As Object, i As Long\r"]
["Dim IEObject As Object\r"]
["Set ShellApp = CreateObject(\"Shell.Application\")\r"]
["Set ShellWindows = ShellApp.Windows()\r"]
["For Each It In ShellWindows\r"]
["Debug.Print It.FullName\r"]
["    If InStr(It.FullName, \"IEXPLORE\") <> 0 Then\r"]
["    Set IEObject = It\r"]
["    \r"]
["    Exit For  'No need to continue....\r"]
["    End If\r"]
["Next\r"]
["If IEObject Is Nothing Then Set IEObject = CreateObject(\"InternetExplorer.Application\")\r"]
["Set GetIE = IEObject\r"]
["End Function\r"]
["\r"]
["что выдает Debug.Print\r"]
["У меня:\r"]
["C:\\Windows\\Explorer.EXE\r"]
["C:\\Program Files (x86)\\Internet Explorer\\IEXPLORE.EXESLAVICK\r"]
["\r"]
["\r"]
["Иногда все проще чем кажется с первого взгляда. \r"]
["    \r"]
["\r"]
["Ответить Сообщениеsboy, and_evg, странно - может процесс по другому называется.\r"]
["Запустите процедуру отдельно :\r"]
["[vba]Function GetIE() As ObjectDim ShellApp As Object, ShellWindows As Object, i As LongDim IEObject As ObjectSet ShellApp = CreateObject(\"Shell.Application\")Set ShellWindows = ShellApp.Windows()For Each It In ShellWindowsDebug.Print It.FullName If InStr(It.FullName, \"IEXPLORE\") <> 0 Then Set IEObject = It Exit For 'No need to continue.... End IfNext'If IEObject Is Nothing Then Set IEObject = CreateObject(\"InternetExplorer.Application\")Set GetIE = IEObjectEnd Function[/vba]\r"]
["что выдает Debug.Print\r"]
["У меня:\r"]
["C:\\Windows\\Explorer.EXE\r"]
["C:\\Program Files (x86)\\Internet Explorer\\IEXPLORE.EXE\r"]
["\r"]
["Автор - SLAVICK\r"]
["Дата добавления - 16.03.2018 в 15:19\r"]
["\r"]
["sboyДата: Пятница, 16.03.2018, 15:32 | Сообщение № 11\r"]
["Группа: Проверенные\r"]
["Ранг: Старожил\r"]
["Сообщений: 1757\r"]
["Репутация: 498 ± \r"]
["Замечаний: 0% ± \r"]
["\r"]
["Excel 2010 \r"]
["Да у меня маленькими буквами надо\r"]
["C:\\Windows\\Explorer.EXE\r"]
["C:\\Program Files\\Internet Explorer\\iexplore.exe\r"]
["textcompare нужен в опциях или в функции, тогда работает\r"]
["If InStr(1, It.FullName, \"IEXPLORE\", vbTextCompare) <> 0 Then\r"]
["\r"]
["Да у меня маленькими буквами надо\r"]
["C:\\Windows\\Explorer.EXE\r"]
["C:\\Program Files\\Internet Explorer\\iexplore.exe\r"]
["textcompare нужен в опциях или в функции, тогда работает\r"]
["If InStr(1, It.FullName, \"IEXPLORE\", vbTextCompare) <> 0 Then\r"]
["sboy\r"]
["\r"]
["\r"]
["Сообщение отредактировал sboy - Пятница, 16.03.2018, 15:46\r"]
["    \r"]
["\r"]
["Ответить СообщениеДа у меня маленькими буквами надо\r"]
["C:\\Windows\\Explorer.EXE\r"]
["C:\\Program Files\\Internet Explorer\\iexplore.exe\r"]
["textcompare нужен в опциях или в функции, тогда работает\r"]
["[vba]If InStr(1, It.FullName, \"IEXPLORE\", vbTextCompare) <> 0 Then[/vba]\r"]
["\r"]
["Автор - sboy\r"]
["Дата добавления - 16.03.2018 в 15:32\r"]
["\r"]
["SLAVICKДата: Пятница, 16.03.2018, 15:52 | Сообщение № 12\r"]
[" Группа: Модераторы\r"]
["Ранг: Старожил\r"]
["Сообщений: 2208\r"]
["Репутация: 739 ± \r"]
["Замечаний: 0% ± \r"]
["\r"]
["2007,2010,2013,2016 \r"]
["вот уж мелкомягкие  - по ушам бы им надавать... \r"]
["and_evg, \r"]
["тогда так\r"]
["Sub d()\r"]
["    a = GetIE.Document.body.innerText\r"]
["    MsgBox Left(a, 500)\r"]
["    arr = Split(a, vbLf)\r"]
["    Cells.Clear\r"]
["    Cells(1, 1).Resize(UBound(arr) + 1, 1) = Application.Transpose(arr)\r"]
["End Sub\r"]
["Function GetIE() As Object\r"]
["Dim ShellApp As Object, ShellWindows As Object, i As Long\r"]
["Dim IEObject As Object\r"]
["Set ShellApp = CreateObject(\"Shell.Application\")\r"]
["Set ShellWindows = ShellApp.Windows()\r"]
["For Each It In ShellWindows\r"]
["Debug.Print It.FullName\r"]
["    If InStr(1, It.FullName, \"IEXPLORE\", vbTextCompare) <> 0 Then\r"]
["    Set IEObject = It\r"]
["    Exit For  'No need to continue....\r"]
["    End If\r"]
["Next\r"]
["If IEObject Is Nothing Then Set IEObject = CreateObject(\"InternetExplorer.Application\")\r"]
["Set GetIE = IEObject\r"]
["End Function\r"]
["\r"]
["вот уж мелкомягкие  - по ушам бы им надавать... \r"]
["and_evg, \r"]
["тогда так\r"]
["Sub d()\r"]
["    a = GetIE.Document.body.innerText\r"]
["    MsgBox Left(a, 500)\r"]
["    arr = Split(a, vbLf)\r"]
["    Cells.Clear\r"]
["    Cells(1, 1).Resize(UBound(arr) + 1, 1) = Application.Transpose(arr)\r"]
["End Sub\r"]
["Function GetIE() As Object\r"]
["Dim ShellApp As Object, ShellWindows As Object, i As Long\r"]
["Dim IEObject As Object\r"]
["Set ShellApp = CreateObject(\"Shell.Application\")\r"]
["Set ShellWindows = ShellApp.Windows()\r"]
["For Each It In ShellWindows\r"]
["Debug.Print It.FullName\r"]
["    If InStr(1, It.FullName, \"IEXPLORE\", vbTextCompare) <> 0 Then\r"]
["    Set IEObject = It\r"]
["    Exit For  'No need to continue....\r"]
["    End If\r"]
["Next\r"]
["If IEObject Is Nothing Then Set IEObject = CreateObject(\"InternetExplorer.Application\")\r"]
["Set GetIE = IEObject\r"]
["End Function\r"]
["SLAVICK\r"]
["К сообщению приложен файл: iE-4-.xlsm(20.0 Kb) \r"]
["\r"]
["\r"]
["\r"]
["Иногда все проще чем кажется с первого взгляда. \r"]
["    \r"]
["\r"]
["Ответить Сообщениевот уж мелкомягкие  - по ушам бы им надавать... \r"]
["and_evg, \r"]
["тогда так\r"]
["[vba]Sub d() a = GetIE.Document.body.innerText MsgBox Left(a, 500) arr = Split(a, vbLf) Cells.Clear Cells(1, 1).Resize(UBound(arr) + 1, 1) = Application.Transpose(arr)End SubFunction GetIE() As ObjectDim ShellApp As Object, ShellWindows As Object, i As LongDim IEObject As ObjectSet ShellApp = CreateObject(\"Shell.Application\")Set ShellWindows = ShellApp.Windows()For Each It In ShellWindowsDebug.Print It.FullName If InStr(1, It.FullName, \"IEXPLORE\", vbTextCompare) <> 0 Then Set IEObject = It Exit For 'No need to continue.... End IfNext'If IEObject Is Nothing Then Set IEObject = CreateObject(\"InternetExplorer.Application\")Set GetIE = IEObjectEnd Function[/vba]\r"]
["\r"]
["Автор - SLAVICK\r"]
["Дата добавления - 16.03.2018 в 15:52\r"]
["\r"]
["andry_razДата: Пятница, 16.03.2018, 16:00 | Сообщение № 13\r"]
["Группа: Пользователи\r"]
["Ранг: Прохожий\r"]
["Сообщений: 8\r"]
["Репутация: 0 ± \r"]
["Замечаний: 0% ± \r"]
["\r"]
["Excel 2016 \r"]
["SLAVICK, сейчас ругается на отсутствие workwithfiles.xla...\r"]
["SLAVICK, сейчас ругается на отсутствие workwithfiles.xla...andry_raz\r"]
["   \r"]
["\r"]
["Ответить СообщениеSLAVICK, сейчас ругается на отсутствие workwithfiles.xla...\r"]
["\r"]
["Автор - andry_raz\r"]
["Дата добавления - 16.03.2018 в 16:00\r"]
["\r"]
["SLAVICKДата: Пятница, 16.03.2018, 16:19 | Сообщение № 14\r"]
[" Группа: Модераторы\r"]
["Ранг: Старожил\r"]
["Сообщений: 2208\r"]
["Репутация: 739 ± \r"]
["Замечаний: 0% ± \r"]
["\r"]
["2007,2010,2013,2016 \r"]
[" \r"]
["Цитата andry_raz, 16.03.2018 в 16:00, в сообщении № 13 ( писал(а)): \r"]
["ругается на отсутствие workwithfiles.xla...\r"]
["\r"]
["нужно было просто разорвать связь...\r"]
["Цитата andry_raz, 16.03.2018 в 16:00, в сообщении № 13 ( писал(а)): ругается на отсутствие workwithfiles.xla...\r"]
["нужно было просто разорвать связь...SLAVICK\r"]
["К сообщению приложен файл: 222.xlsm(17.3 Kb) \r"]
["\r"]
["\r"]
["\r"]
["Иногда все проще чем кажется с первого взгляда. \r"]
["    \r"]
["\r"]
["Ответить СообщениеЦитата andry_raz, 16.03.2018 в 16:00, в сообщении № 13 ( писал(а)): ругается на отсутствие workwithfiles.xla...\r"]
["нужно было просто разорвать связь...\r"]
["\r"]
["Автор - SLAVICK\r"]
["Дата добавления - 16.03.2018 в 16:19\r"]
["\r"]
["andry_razДата: Пятница, 16.03.2018, 16:52 | Сообщение № 15\r"]
["Группа: Пользователи\r"]
["Ранг: Прохожий\r"]
["Сообщений: 8\r"]
["Репутация: 0 ± \r"]
["Замечаний: 0% ± \r"]
["\r"]
["Excel 2016 \r"]
["Заработало. Однако теперь выдает пустое поле... тоесть не считывает почему-то с explorera информацию..\r"]
["Заработало. Однако теперь выдает пустое поле... тоесть не считывает почему-то с explorera информацию..andry_raz\r"]
["К сообщению приложен файл: 9699089.jpg(18.4 Kb) \r"]
["\r"]
["\r"]
["\r"]
["Сообщение отредактировал andry_raz - Суббота, 17.03.2018, 09:44\r"]
["   \r"]
["\r"]
["Ответить СообщениеЗаработало. Однако теперь выдает пустое поле... тоесть не считывает почему-то с explorera информацию..\r"]
["\r"]
["Автор - andry_raz\r"]
["Дата добавления - 16.03.2018 в 16:52\r"]
["\r"]
["SLAVICKДата: Понедельник, 19.03.2018, 10:21 | Сообщение № 16\r"]
[" Группа: Модераторы\r"]
["Ранг: Старожил\r"]
["Сообщений: 2208\r"]
["Репутация: 739 ± \r"]
["Замечаний: 0% ± \r"]
["\r"]
["2007,2010,2013,2016 \r"]
["Какая у Вас винда/офис.\r"]
["Может 10-ка?\r"]
["Тогда там не IEXPLORE - там Edge. \r"]
["Что у Вас выдает функция GetIE в окно Immediate?\r"]
["Какая у Вас винда/офис.\r"]
["Может 10-ка?\r"]
["Тогда там не IEXPLORE - там Edge. \r"]
["Что у Вас выдает функция GetIE в окно Immediate?SLAVICK\r"]
["\r"]
["\r"]
["Иногда все проще чем кажется с первого взгляда. \r"]
["    \r"]
["\r"]
["Ответить СообщениеКакая у Вас винда/офис.\r"]
["Может 10-ка?\r"]
["Тогда там не IEXPLORE - там Edge. \r"]
["Что у Вас выдает функция GetIE в окно Immediate?\r"]
["\r"]
["Автор - SLAVICK\r"]
["Дата добавления - 19.03.2018 в 10:21\r"]
["\r"]
["andry_razДата: Понедельник, 19.03.2018, 10:59 | Сообщение № 17\r"]
["Группа: Пользователи\r"]
["Ранг: Прохожий\r"]
["Сообщений: 8\r"]
["Репутация: 0 ± \r"]
["Замечаний: 0% ± \r"]
["\r"]
["Excel 2016 \r"]
["SLAVICK, Винда XP, Офис 2007. И я очень извиняюсь... что за окно Immediate?\r"]
["SLAVICK, Винда XP, Офис 2007. И я очень извиняюсь... что за окно Immediate?andry_raz\r"]
["   \r"]
["\r"]
["Ответить СообщениеSLAVICK, Винда XP, Офис 2007. И я очень извиняюсь... что за окно Immediate?\r"]
["\r"]
["Автор - andry_raz\r"]
["Дата добавления - 19.03.2018 в 10:59\r"]
["\r"]
["SLAVICKДата: Понедельник, 19.03.2018, 11:36 | Сообщение № 18\r"]
[" Группа: Модераторы\r"]
["Ранг: Старожил\r"]
["Сообщений: 2208\r"]
["Репутация: 739 ± \r"]
["Замечаний: 0% ± \r"]
["\r"]
["2007,2010,2013,2016 \r"]
[" \r"]
["Цитата andry_raz, 19.03.2018 в 10:59, в сообщении № 17 ( писал(а)): \r"]
["Винда XP, Офис 2007. \r"]
["\r"]
["Возможно баг в офисе - СП - какой?\r"]
["- почему у Вас в подписи 2016?\r"]
["А может и с ХР связано. У меня сейчас нет возможности проверить на таких параметрах. \r"]
["У меня сейчас 2013офис и 7-ка 64-х.\r"]
["\r"]
["Цитата andry_raz, 19.03.2018 в 10:59, в сообщении № 17 ( писал(а)): \r"]
["что за окно Immediate?\r"]
["\r"]
["Гугл рулит. Например тут понятно описано как его найти.\r"]
["И функция из поста 9-ь выводит туда список всех Shell.Application.\r"]
["Вот если там выводится хоть что-то это одно дело, если вообще пусто - то совсем другое...\r"]
["Цитата andry_raz, 19.03.2018 в 10:59, в сообщении № 17 ( писал(а)): Винда XP, Офис 2007. \r"]
["Возможно баг в офисе - СП - какой?\r"]
["- почему у Вас в подписи 2016?\r"]
["А может и с ХР связано. У меня сейчас нет возможности проверить на таких параметрах. \r"]
["У меня сейчас 2013офис и 7-ка 64-х.\r"]
["Цитата andry_raz, 19.03.2018 в 10:59, в сообщении № 17 ( писал(а)): что за окно Immediate?\r"]
["Гугл рулит. Например тут понятно описано как его найти.\r"]
["И функция из поста 9-ь выводит туда список всех Shell.Application.\r"]
["Вот если там выводится хоть что-то это одно дело, если вообще пусто - то совсем другое...SLAVICK\r"]
["\r"]
["\r"]
["Иногда все проще чем кажется с первого взгляда. \r"]
["    \r"]
["\r"]
["Ответить СообщениеЦитата andry_raz, 19.03.2018 в 10:59, в сообщении № 17 ( писал(а)): Винда XP, Офис 2007. \r"]
["Возможно баг в офисе - СП - какой?\r"]
["- почему у Вас в подписи 2016?\r"]
["А может и с ХР связано. У меня сейчас нет возможности проверить на таких параметрах. \r"]
["У меня сейчас 2013офис и 7-ка 64-х.\r"]
["Цитата andry_raz, 19.03.2018 в 10:59, в сообщении № 17 ( писал(а)): что за окно Immediate?\r"]
["Гугл рулит. Например тут понятно описано как его найти.\r"]
["И функция из поста 9-ь выводит туда список всех Shell.Application.\r"]
["Вот если там выводится хоть что-то это одно дело, если вообще пусто - то совсем другое...\r"]
["\r"]
["Автор - SLAVICK\r"]
["Дата добавления - 19.03.2018 в 11:36\r"]
["\r"]
["andry_razДата: Понедельник, 19.03.2018, 12:01 | Сообщение № 19\r"]
["Группа: Пользователи\r"]
["Ранг: Прохожий\r"]
["Сообщений: 8\r"]
["Репутация: 0 ± \r"]
["Замечаний: 0% ± \r"]
["\r"]
["Excel 2016 \r"]
["СП 3. Окно пишет C:\\Program Files\\Internet Explorer\\IEXPLORE.EXE. Возможно и с XP, так как дома на 10ке 64х и 2013 офисом выдавало инфу с странички, правда все время с одной и той же и не важно какая при этом была открыта страничка в эксплорере.\r"]
["СП 3. Окно пишет C:\\Program Files\\Internet Explorer\\IEXPLORE.EXE. Возможно и с XP, так как дома на 10ке 64х и 2013 офисом выдавало инфу с странички, правда все время с одной и той же и не важно какая при этом была открыта страничка в эксплорере.andry_raz\r"]
["   \r"]
["\r"]
["Ответить СообщениеСП 3. Окно пишет C:\\Program Files\\Internet Explorer\\IEXPLORE.EXE. Возможно и с XP, так как дома на 10ке 64х и 2013 офисом выдавало инфу с странички, правда все время с одной и той же и не важно какая при этом была открыта страничка в эксплорере.\r"]
["\r"]
["Автор - andry_raz\r"]
["Дата добавления - 19.03.2018 в 12:01\r"]
["\r"]
["SLAVICKДата: Понедельник, 19.03.2018, 12:50 | Сообщение № 20\r"]
[" Группа: Модераторы\r"]
["Ранг: Старожил\r"]
["Сообщений: 2208\r"]
["Репутация: 739 ± \r"]
["Замечаний: 0% ± \r"]
["\r"]
["2007,2010,2013,2016 \r"]
["Цитата andry_raz, 19.03.2018 в 12:01, в сообщении № 19 ( писал(а)): \r"]
["C:\\Program Files\\Internet Explorer\\IEXPLORE.EXE\r"]
["\r"]
["Странно - тогда нужно смотреть пошагово - где что слетает.\r"]
["\r"]
["\r"]
["Цитата andry_raz, 19.03.2018 в 12:01, в сообщении № 19 ( писал(а)): \r"]
["правда все время с одной и той же и не важно какая при этом была открыта страничка в эксплорере.\r"]
["\r"]
["Тут проблема в том, что IEXPLORE - для каждого окна создает свой процесс. А макрос ищет по названию процесса. И выходит из цикла когда находит процесс с подходящим именем. \r"]
["Никакой пометки что именно этот процесс сейчас активен - я не нашел.\r"]
["Чтобы увидеть все процессы - удалите строку \r"]
["Exit For  'No need to continue....\r"]
["Цитата andry_raz, 19.03.2018 в 12:01, в сообщении № 19 ( писал(а)): C:\\Program Files\\Internet Explorer\\IEXPLORE.EXE\r"]
["Странно - тогда нужно смотреть пошагово - где что слетает.\r"]
["\r"]
["Цитата andry_raz, 19.03.2018 в 12:01, в сообщении № 19 ( писал(а)): правда все время с одной и той же и не важно какая при этом была открыта страничка в эксплорере.\r"]
["Тут проблема в том, что IEXPLORE - для каждого окна создает свой процесс. А макрос ищет по названию процесса. И выходит из цикла когда находит процесс с подходящим именем. \r"]
["Никакой пометки что именно этот процесс сейчас активен - я не нашел.\r"]
["Чтобы увидеть все процессы - удалите строку \r"]
["Exit For  'No need to continue....SLAVICK\r"]
["\r"]
["\r"]
["Иногда все проще чем кажется с первого взгляда. \r"]
["    \r"]
["\r"]
["Ответить СообщениеЦитата andry_raz, 19.03.2018 в 12:01, в сообщении № 19 ( писал(а)): C:\\Program Files\\Internet Explorer\\IEXPLORE.EXE\r"]
["Странно - тогда нужно смотреть пошагово - где что слетает.\r"]
["\r"]
["Цитата andry_raz, 19.03.2018 в 12:01, в сообщении № 19 ( писал(а)): правда все время с одной и той же и не важно какая при этом была открыта страничка в эксплорере.\r"]
["Тут проблема в том, что IEXPLORE - для каждого окна создает свой процесс. А макрос ищет по названию процесса. И выходит из цикла когда находит процесс с подходящим именем. \r"]
["Никакой пометки что именно этот процесс сейчас активен - я не нашел.\r"]
["Чтобы увидеть все процессы - удалите строку \r"]
["[vba]Exit For 'No need to continue....[/vba]\r"]
["\r"]
["Автор - SLAVICK\r"]
["Дата добавления - 19.03.2018 в 12:50\r"]
["\r"]
["Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копирование данных в Excel из активного окна браузера IE (Макросы/Sub)  \r"]
["\r"]
["Страница 1 из 212»Главная страница форумаВопросы и решения     Вопросы по Excel         Вопросы по Excel для Mac     Вопросы по VBA         Вопросы по VB, VBS, VB.net     Excel и другие приложения         Word         Access         Power Point         Outlook         Visio         Share Point         Open Office         Google Docs         1С     Готовые решенияРабота и общение     Работа / Фриланс     Неформальное общение     Мозговой штурмРабота форума и сайта     Вопросы по работе форума и сайта     Объявления администрации \r"]
["\r"]
["Поиск:  \r"]
["\r"]
["\r"]
["\r"]
["    ГлавнаяExcelГотовые решенияФорумыБиблиотекаВидеоСправочникиРазработчик     \r"]
["--15 сек30 сек1 мин2 мин  \r"]
["\r"]
["\r"]
["   \r"]
[" 200\r"]
["   \r"]
["© 2010-2018 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!"]