Как сделать выгрузку на маркете

Главная » Макросы VBA Excel

При помощи этого макроса вы можете скачать текст с выбранной страницы веб-сайта:

Sub ЗагрузкаТекстаВебСтраницы() Set IE = CreateObject("InternetExplorer.Application"): ' загружаем браузер Internet Explorer On Error Resume Next addr$ = "http://excelvba.ru/services" ' указываем адрес сайта (веб-страницы), текст которой загружаем IE.Navigate addr$ ' загружаем сайт While IE.busy Or (IE.readyState <> 4): DoEvents: Wend ' ждем, пока загрузится страница ' Set ieDoc = IE.Document ' ссылка на выгрузку открытый документ txt$ = IE.Document.body.innerText ' считываем текст веб-страницы в текстовую переменную '[a1] = txt$ ' помещаем текст веб-страницы на лист Excel IE.Quit: Set IE = Nothing ' закрываем браузер MsgBox txt$, vbInformation, "Текст веб-страницы " & addr$ ' выводим сообщение с текстом с сайта End Sub

То же самое - но в виде функции:

Function WebPageText(ByVal sURL As String) As String On Error Resume Next Set IE = CreateObject("InternetExplorer.Application"): ' загружаем браузер Internet Explorer IE.Navigate sURL ' загружаем сайт While IE.busy Or (IE.readyState <> 4): DoEvents: Wend ' ждем, пока загрузится страница WebPageText = IE.Document.body.innerText ' считываем текст веб-страницы IE.Quit: Set IE = Nothing ' закрываем браузер End Function

Пример использования этой функции для загрузки текста страниц из интернета:

Sub ПримерИспользованияФункции_WebPageText() ' считываем текст страницы <a href="http://excelvba.ru/services" title="http://excelvba.ru/services">http://excelvba.ru/services</a> в переменную txt txt = WebPageText("http://excelvba.ru/services") ' получаем путь к папке "Рабочий стол" ПутьКРабочемуСтолу = CreateObject("WScript.Shell").SpecialFolders("Desktop") ' сохраняем текст из переменной txt в файл PageText.txt на рабочем столе SaveTXTfile ПутьКРабочемуСтолу & "\PageText.txt", txt ' открываем созданный текстовый файл в Excel Workbooks.OpenText ПутьКРабочемуСтолу & "\PageText.txt",,, xlDelimited End Sub Function SaveTXTfile(ByVal filename As String, ByVal txt As String) As Boolean On Error Resume Next: Err.Clear Set fso = CreateObject("scripting.filesystemobject") Set ts = fso.CreateTextFile(filename, True) ts.Write txt: ts.Close SaveTXTfile = Err = 0 Set ts = Nothing: Set fso = Nothing End Function

PS: Если вас интересует ИСХОДНЫЙ КОД страницы - используйте эту функцию: http://excelvba.ru/code/GetHTTPResponse

Вложение Размер Загрузки Последняя загрузка WebPageText.xls 26 КБ 64 7 недель 1 день назад

Комментарии

Отправить комментарий

Не получается применить макрос? Не удаётся изменить код под свои нужды?

Оформите заказ у нас на сайте, не забыв прикрепить примеры файлов, и описать, что и как должно работать.


Источник: http://excelvba.ru/code/GetWebPageText


Закрыть ... [X]

15 лучших тональных кремов - рейтинг 2017 Аффилированный статус что это

Как сделать выгрузку на маркете Как сделать выгрузку на маркете Как сделать выгрузку на маркете Как сделать выгрузку на маркете Как сделать выгрузку на маркете Как сделать выгрузку на маркете Как сделать выгрузку на маркете