Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Копирование интернет странички
 
#1
16.01.2012 17:57:46
Скажите пожалуйста, как сделать макросом так, чтобы с определённого интернет адреса (http://www.nbrb.by/statistics/rates/ratesDaily.asp) копировалась вся информация и вставлялась на Лист1 текущей книги с ячейки А1
 
 
 
#2
16.01.2012 18:09:58
только вчера была похожая тема  
<EM>http://www.planetaexcel.ru/forum.php?thread_id=36503</EM>
 
 
 
#3
16.01.2012 18:15:08
И зачем Вам этот свинарник на листе? Берите то, что нужно.
Я сам - дурнее всякого примера! ...
 
 
 
#4
16.01.2012 18:15:19
Включил запись макросов, и за 3 секунды макрорекордер сформировал готовый макрос:  
 
 
Sub Макрос1()  
   With ActiveSheet.QueryTables.Add(Connection:= _  
       "URL;http://www.nbrb.by/statistics/rates/ratesDaily.asp", Destination:=Range("A1"))  
       .Name = "ratesDaily"  
       .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 = "12"  
       .WebPreFormattedTextToColumns = True  
       .WebConsecutiveDelimitersAsOne = True  
       .WebSingleBlockTextImport = False  
       .WebDisableDateRecognition = False  
       .WebDisableRedirections = False  
       .Refresh BackgroundQuery:=False  
   End With  
End Sub
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#5
16.01.2012 19:11:28
Да, спасибо, ваш макрос работает, но выполняет он не совсем то, что я просил.  
Я просил скопировать всю информацию, а он копирует только курсы  
 
Но ваш ответ мне помог, при помощи него я понял нужно направление и у меня получилось. Большое спасибо
 
 
 
#6
20.01.2012 20:27:12
Что то не пойму, почему через данные - из интернета в экселе отображается одна информация, а через браузер немного другая  
<EM>http://catalog.onliner.by/pricelist/4424/</EM>
 
 
 
#7
20.01.2012 20:51:59
А в чем она "немножко другая"???  
По содержанию - всё идентично, по форматированию - разумеется, будет разница (это вам не Word, тут ячейки кругом)  
 
На Онлайнер не грешите, в нём всё четко.  
Как-то делал под него программу: http://excelvba.ru/programmes/Notebooks
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#8
20.01.2012 21:21:37
различия по последнему столбцу. эксель показывает в бел рублях, а браузер в долларах
 
 
 
#9
23.01.2012 09:33:22
Я тоже думаю, что у онлайнера всё чётко, но факт в том, что по одинаковому адресу последние столбцы разные
 
 
 
#10
24.01.2012 17:42:42
непонятно.  
дома по этой ссылке ексель выводит столбец в бел рублях, а на работе в $  
(запускаю один и тот же файл с макросом на разных компах и данные собираются разные)
 
 
 
Страницы: 1
Читают тему
Наверх