Страницы: 1
RSS
автоматизация веб-запроса?
 
всем привет... подскажите возможно ли автоматизировать веб-запрос. имеется ряд ссылок адрес которых в конце отличается на цифру в порядке возрастания. требуется создать макрос который сохранял данные по каждой ссылке на новом листе т.к. сказать в автоматизированном виде: т.е. я прописываю основной адрес гиперссылки в самом коде макроса, а после его запуска появляется диалоговое окно которое предлагает задать диапазон допустим от 10 до 20. Эти цифры (10, 11, 12, 13.... 20) автоматически добавляются в конец ранее прописанной гиперссылке в макросе, данные скачиваются и сохраняются  на новом листе по каждой гиперссылке.  
p.s. пример выложить не имеет смысла т.к. ссылка на внутреннюю сеть, а не на интернет
 
Возможно. Вот примеры автоматизации веб-запросов: <BR>http://excelvba.ru/Rating_and_Ranking http://excelvba.ru/MoviesSearch
 
ну то что это можно сделать я убедился:), но вот как сделать макрос который я описывал выше не могу понять
 
{quote}{login=}{date=22.12.2010 09:38}{thema=}{post}ну то что это можно сделать я убедился:), но вот как сделать макрос который я описывал выше не могу понять{/post}{/quote}  
 
Пример выложите. А ссылку замените.
 
Как оказалось макрос не такой уж и сложный... только вот не могу понять как заставить макрос выполняться n-ое количество раз в пределах диапазона... на данный момент макрос скачивает данные основной адрес которого прописан в макросе, а последняя часть берется из Лист1 ячейка B1  
Sub Макрос1()  
'  
'  
   ActiveWorkbook.Worksheets.Add  
   With ActiveSheet.QueryTables.Add(Connection:= _  
       "URL;http://189.232.107." & Sheets("Лист1").Range("b1"), Destination _  
       :=Range("A1"))  
       .Name = Sheets("Лист1").Range("b1")  
       .FieldNames = True  
       .RowNumbers = False  
       .FillAdjacentFormulas = False  
       .PreserveFormatting = True  
       .RefreshOnFileOpen = False  
       .BackgroundQuery = True  
       .RefreshStyle = xlInsertDeleteCells  
       .SavePassword = False  
       .SaveData = True  
       .AdjustColumnWidth = True  
       .RefreshPeriod = 0  
       .WebSelectionType = xlEntirePage  
       .WebFormatting = xlWebFormattingNone  
       .WebPreFormattedTextToColumns = True  
       .WebConsecutiveDelimitersAsOne = True  
       .WebSingleBlockTextImport = False  
       .WebDisableDateRecognition = False  
       .WebDisableRedirections = False  
       .Refresh BackgroundQuery:=False  
   End With  
End Sub
Страницы: 1
Читают тему
Наверх