Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Макрос для переноса данных из ИЕ в Excel - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Макрос для переноса данных из ИЕ в Excel
ArkaIIIa Дата: Четверг, 21.11.2013, 11:34 | Сообщение № 1
Группа: Проверенные
Ранг: Ветеран
Сообщений: 894
Репутация: 115 ±
Замечаний: 0% ±

2010
Добрый день, господа!

Подскажите, пожалуйста, реально ли вообще реализовать это через макрос...

Допустим, есть открытая страница в ИЕ, для примера можно взять главную страницу Яндекса. Нужно, чтобы макрос обращался к браузеру, обновлял данные и копировал их на лист Excel. К примеру, нужно, чтобы макрос копировал заголовки топ-5 новостей с главной страницы Яндекса.
Если это возможно реализовать, то возникает вопрос, как будет вести себя макрос, если в браузере будет открыто несколько различных окон.

Заранее спасибо за ликбез.


Сообщение отредактировал ArkaIIIa - Четверг, 21.11.2013, 11:35
 
Ответить
СообщениеДобрый день, господа!

Подскажите, пожалуйста, реально ли вообще реализовать это через макрос...

Допустим, есть открытая страница в ИЕ, для примера можно взять главную страницу Яндекса. Нужно, чтобы макрос обращался к браузеру, обновлял данные и копировал их на лист Excel. К примеру, нужно, чтобы макрос копировал заголовки топ-5 новостей с главной страницы Яндекса.
Если это возможно реализовать, то возникает вопрос, как будет вести себя макрос, если в браузере будет открыто несколько различных окон.

Заранее спасибо за ликбез.

Автор - ArkaIIIa
Дата добавления - 21.11.2013 в 11:34
SkyPro Дата: Четверг, 21.11.2013, 11:39 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1206
Репутация: 255 ±
Замечаний: 0% ±

2010
Данные - Из интернета
И запишите макрорекордером.


skypro1111@gmail.com
 
Ответить
СообщениеДанные - Из интернета
И запишите макрорекордером.

Автор - SkyPro
Дата добавления - 21.11.2013 в 11:39
ArkaIIIa Дата: Четверг, 21.11.2013, 11:46 | Сообщение № 3
Группа: Проверенные
Ранг: Ветеран
Сообщений: 894
Репутация: 115 ±
Замечаний: 0% ±

2010
SkyPro
К сожалению не получается сделать это макрорекордером.
Можете приложить пример? Любые данные с любого сайта.
 
Ответить
СообщениеSkyPro
К сожалению не получается сделать это макрорекордером.
Можете приложить пример? Любые данные с любого сайта.

Автор - ArkaIIIa
Дата добавления - 21.11.2013 в 11:46
Саня Дата: Четверг, 21.11.2013, 13:48 | Сообщение № 4
Группа: Друзья
Ранг: Ветеран
Сообщений: 1068
Репутация: 560 ±
Замечаний: 0% ±

XL 2016
нужно, чтобы макрос копировал заголовки топ-5 новостей с главной страницы Яндекса.


[vba]
Код
Sub Макрос1()
'
' Макрос1 Макрос
'

'
     With ActiveSheet.QueryTables.Add(Connection:="URL;http://www.yandex.ru", Destination:=Range("$G$6"))
         .Name = "www.yandex.ru"
         .FieldNames = True
         .RowNumbers = False
         .FillAdjacentFormulas = False
         .PreserveFormatting = True
         .RefreshOnFileOpen = False
         .BackgroundQuery = True
         .RefreshStyle = xlInsertDeleteCells
         .SavePassword = False
         .SaveData = True
         .AdjustColumnWidth = True
         .RefreshPeriod = 0
         .WebSelectionType = xlSpecifiedTables
         .WebFormatting = xlWebFormattingNone
         .WebTables = "3"
         .WebPreFormattedTextToColumns = True
         .WebConsecutiveDelimitersAsOne = True
         .WebSingleBlockTextImport = False
         .WebDisableDateRecognition = False
         .WebDisableRedirections = False
         .Refresh BackgroundQuery:=False
     End With
      
End Sub

Sub Макрос2()
'
' Макрос2 Макрос
'

'
     Selection.QueryTable.Refresh BackgroundQuery:=False
End Sub
[/vba]
 
Ответить
Сообщение
нужно, чтобы макрос копировал заголовки топ-5 новостей с главной страницы Яндекса.


[vba]
Код
Sub Макрос1()
'
' Макрос1 Макрос
'

'
     With ActiveSheet.QueryTables.Add(Connection:="URL;http://www.yandex.ru", Destination:=Range("$G$6"))
         .Name = "www.yandex.ru"
         .FieldNames = True
         .RowNumbers = False
         .FillAdjacentFormulas = False
         .PreserveFormatting = True
         .RefreshOnFileOpen = False
         .BackgroundQuery = True
         .RefreshStyle = xlInsertDeleteCells
         .SavePassword = False
         .SaveData = True
         .AdjustColumnWidth = True
         .RefreshPeriod = 0
         .WebSelectionType = xlSpecifiedTables
         .WebFormatting = xlWebFormattingNone
         .WebTables = "3"
         .WebPreFormattedTextToColumns = True
         .WebConsecutiveDelimitersAsOne = True
         .WebSingleBlockTextImport = False
         .WebDisableDateRecognition = False
         .WebDisableRedirections = False
         .Refresh BackgroundQuery:=False
     End With
      
End Sub

Sub Макрос2()
'
' Макрос2 Макрос
'

'
     Selection.QueryTable.Refresh BackgroundQuery:=False
End Sub
[/vba]

Автор - Саня
Дата добавления - 21.11.2013 в 13:48
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!