Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 123 След.
VBA. Скачивание файла с google.drive → размер через код - меньше.Ошибка, Использую собственную надстройку, нужно автообновление для коллег
 
У вас не файл загружается, а текст с сообщением об ошибке / какой-то HTML код
Вот этот скачанный файл размером 2кБ откройте в Блокноте, и посмотрите что там написано.

а написано там вот что:
Цитата
<!DOCTYPE html><html><head><title>Google Диск: Квота превышена</title>...

Сейчас вы не можете просматривать и скачивать этот файл.

В последнее время этот файл слишком часто просматривался или скачивался. Повторите попытку позже. Если файл очень большой или доступен большому числу пользователей, возможен отказ в доступе к нему в течение ближайших суток. Если через 24 часа ситуация не изменится, обратитесь к администратору домена.
Дождаться полной загрузки сайта, MSXML2.ServerXMLHTTP.6.0
 
Если нужен IE - зачем используете компонент "MSXML2.ServerXMLHTTP.6.0" ?

XMLHTTP60 использует WinInet HTTP стек (вместе с Internet Explorer)
ServerXMLHTTP60 использует WinHttp стек (как и компонент WinHttpRequest)

Вам нужно использовать либо CreateObject("MSXML2.XMLHTTP"), либо запускать IE
А вы сейчас прописываете прокси для IE, а потом используете компонент, не связанный с IE
Ну или не знаю какой код вы там используете (вы даете куски кода, да еще и с IE не связанные, — гадать что там у вас нет желания)

тем более, если несколько раз всё работает, не понятен сам вопрос, как "зайти через IE под прокси"
(нагуглите код работы с IE через VBA, например по фразе vba IE set proxy)
чтобы прокси применялся, можно попробовать первый ответ из этой темы:
https://stackoverflow.com/questions/55362424/toggle-internet-explorer-proxy-from-excel-vba
Дождаться полной загрузки сайта, MSXML2.ServerXMLHTTP.6.0
 
Если использовать браузер IE - то недостаточно проверять только .readyState = 4, надо ещё .Busy проверять
Например, ждем готовности браузера IE, но не более 2 секунд:
Код
        TimeStamp = Timer
        Do While (.Busy = True) Or (.readyState <> 4)
            DoEvents
            If Abs(Timer - TimeStamp) >= 2 Then Exit Do
        Loop


Если же работаем БЕЗ браузера (как у вас, компонент MSXML2.ServerXMLHTTP.6.0), то ничего вы не дождётесь
Ибо тут скрипты не отрабатывают, и, соответственно, ничего не догружают, — сколько сайт выдал данных, столько и выведется.

Вы решили совместить 2 принципиально разных кода (взяли рабочий код для MSXML2.ServerXMLHTTP.6.0, и засунули туда кусок кода от работы с браузером), — так не прокатит.

Возможно, проблема в прокси (который обрезает часть данных / выдаёт их не совсем корректно)
Изменено: Игорь - 04.02.2024 10:03:40
Банковские выписки, Агрегировать данные из нескольких банковских выписок в одну таблицу
 
Сделал, оплату получил
Изменено: Игорь - 01.12.2023 15:08:42
Microsoft Web Browser не корректно отображает сайты., Форма с объектом Microsoft Web Browser не корректно отображает сайты (нет картинок или не грузит)
 
Цитата
возможно по одному нажатию этого не получится реализовать
получится, если всё правильно сделать

Selenium управляет браузером, там есть возможность одной командой снять скриншот в файл (формата Png, Jpeg, Gif, Tiff или Bmp)
Код
WebDriver.GetScreenshot.SaveAsFile filename$, 1

Причем, либо всей страницы, либо заданной области (конкретного тега типа DIV или SECTION)
К тому же, можно один раз (предварительно) задать вручную размеры окна браузера, и для каждого сайта масштаб страницы.
Microsoft Web Browser не корректно отображает сайты., Форма с объектом Microsoft Web Browser не корректно отображает сайты (нет картинок или не грузит)
 
Здравствуйте.
Microsoft Web Browser = Internet Explorer
Этот браузер устарел, и не все сайты в нём отображаются как надо.
К сожалению, среди компонентов на форме, других вариантов нет (либо IE, либо ничего)

Есть 2 варианта создания скриншотов для ваших сайтов:
1) использовать запросы к веб-сервису типа s-shot
2) открывать страницы в браузере Chrome через Selenium (там есть возможность снять скриншот страницы)

И то и другое делается макросами (готового кода нет для примера)
Перерисовка объектов занимает длительное время, Перерисовка объектов занимает длительное время
 
Цитата
Павел К написал:
Добавляю Shapes, я так.
А, может, не добавлять вообще эту тысячу фигур? зачем их столько на листе?
И проблема исчезнет..
как создать формулу для поиска по артикулу на сайте WB, первый столбец артикулы второй нужны ссылки на сайт с этим товаром
 
Формула =ГИПЕРССЫЛКА("https://www.wildberries.ru/catalog/" & A1 & "/detail.aspx")
Отправляет на страницу товара
как создать формулу для поиска по артикулу на сайте WB, первый столбец артикулы второй нужны ссылки на сайт с этим товаром
 
если в ячейке A1 у вас артикул (например, 84759556)
то в ячейке B1 напишите формулу
="https://www.wildberries.ru/catalog/" & A1 & "/detail.aspx"
Геокодер (Яндекс Карт API )
 
Пишите в личку, контакты в профиле

PS: заказ свободен
изначально заказчик хотел РЕЗУЛЬТАТ (я мог его предоставить), сейчас же он хочет макрос
Но упорно не хочет понять, что для задачи нужно подбирать подходящий инструмент (в данном случае ГЕОКОДЕР),
а не первый попавшийся с большим числом бесплатных запросов в сутки.
Изменено: Игорь - 18.07.2023 16:51:09
Геокодер (Яндекс Карт API )
 
Короче, я могу сделать, но повторю вопросы:
1) вам это надо сделать разово, или часто хотите делать?
2) сколько готовы заплатить?
3) вам нужен результат (в файле Excel) или макрос?
Изменено: Игорь - 17.07.2023 19:16:33
Геокодер (Яндекс Карт API )
 
Так вы поэтому хотите использовать именно JavaScript API, — чтобы обойти лимит на 1000 бесплатных запросов с одного АПИ ключа?

PS: вы вообще понимаете, что такое JavaScript API, где и как он работает? Почему вы противопоставляете это HTTP запросам?
В вашем случае нужен именно HTTP геокодер
Изменено: Игорь - 17.07.2023 19:18:12
Геокодер (Яндекс Карт API )
 
Разово?
Нужно либо штук 20-30 бесплатных АПИ ключей для геокодера, либо оплачивать (там недешево)
Какой у вас бюджет на всё это дело?
Геокодер (Яндекс Карт API )
 
Сколько у вас адресов?
Надо разово прогнать эти адреса через геокодер, или делать это регулярно?
Расхешировать данные MD5, в представленном файле нужно расхештровать данные
 
Такого макроса не существует
Только полным перебором всех возможных текстов (и применением к ним MD5) можно понять, к какому из текстов относится хеш
Хеширование - это односторонняя операция (обратной операции нет), а не шифрование (где возможна расшифровка)
Как получить текст с сайта?, VBA
 
Цитата
но и других вариантов пока нет
ну как нет.. вы же мне писали, я всё объяснял

2 варианта:
1) использовать браузер Chrome (потребуется установить драйвер для браузера)
вы писали, что нельзя использовать доп ПО, но тут же сами говорите про написание дополнительного exe файла
в чем разница между самописным exe и аналогичным файлом драйвера, не очень понятно

2) запрашивать данные без браузера. но специфика сайта такова, что данные приходят в формате JSON (при обращении через API), а для доступа к АПИ сайта нужно получить токен. Просто будет много кода, и специфичного для этого конкретного сайта. У меня такой вариант успешно работает в парсере этого сайта.
VBA скрипт
 
Могу сделать
Контакты в профиле
ChatGPT в Excel, Проблема с кодировкой UT-8
 
Подправить в коде это несложно
там есть строка
Код
response = .responseText

её надо заменить на
Код
response = GetResponse(.ResponseBody, "utf-8")

и в конец кода добавить функцию такую:
Код
Function GetResponse(ByRef BytesArr, ByVal Encoding$) As String
    On Error Resume Next
    Set ADODBStream = CreateObject("ADODB.Stream")
    With ADODBStream
        ResponseFilename$ = Environ("tmp") & "\response.txt"
        If Len(Encoding$) Then .Charset = Encoding$
        .Type = 1        ' adTypeBinary:
        .Open: .Write BytesArr
        .Position = 0
        .Type = 2        'adTypeText
        GetResponse = .ReadText
        .Close
    End With
    Set ADODBStream = Nothing
End Function
Изменено: Игорь - 29.06.2023 19:27:44
Автоматическая выгрузка данных с web-страницы в Excel с помощью VBA
 
Цитата
Evil snail написал:
или хотя бы в общих чертах объяснит как это реализовать?
В общих чертах - не получится
Всё зависит от конкретного сайта.
Тут надо макрос писать, или в PowerQuery разбираться.
Ну и доступ к сайту нужно иметь (с логином-паролем), иначе тут вам ничего не подскажут.
PQ. Доступ к контенту страницы на ajax
 
Так себе автоматизация получилась.. перед каждым запуском нужно лезть в код, и подставлять туда актуальное значение ID сессии и хеша из браузера.
Не знаю как в PQ, но макросом можно грузить страницы с приёмом Cookies
Здесь (в PQ), видимо, тоже надо сначала загрузить (браузером) стартовую страницу (для приема Cookies), и только потом выполнять уже этот запрос.
Выгрузка данных с сайта в Excel, выгрузить данные в табличном варианте с сайта
 
Могу сделать
Контакты в профиле
------
Заказ выполнен, оплата получена.
Изменено: Игорь - 17.06.2023 16:09:23
Выгрузка данных с сайта в интернете в эксель, Выгрузка данных с сайта в интернете в эксель
 
Возможно это потому, что по вашей ссылке https://www.gismeteo.ru/weather-moscow-4368/
нет таблиц, да и вы не показали какие данные с этой страницы нужно взять
Увеличение картинки при клике на неё мышкой, графические объекты
 
Вот здесь есть еще один пример такого макроса, с примером файла
https://excelvba.ru/code/ZoomImages
Получение данных вэб-запросом PQ, Двойная авторизация
 
А была попытка ВООБЩЕ БЕЗ УКАЗАНИЯ этого параметра?
Получение данных вэб-запросом PQ, Двойная авторизация
 
А зачем вы это указываете: Content=Text.ToBinary("")
если никаких данных не передаёте?
VBA не учитывает исключения
 
Вы не привели пример макроса, где видно, как вы вызываете эту функцию (с какими параметрами)
Вот чтоб был пример макроса, и ваш коммент: макрос выводит то-то, а должен выводить то-то
PS: с виду код корректный
Создание макроса на печать с 1 страницы по х, что бы между страницами был перерыв в печати
 
Да, реально
Макрос запрашивает номера страниц, потом в цикле перебирает номера между заданными, и печатает по одной странице.
После каждой распечатанной страницы делается пауза 5 сек: Application.Wait now + 5/86400
В какой программе открыта книга?
 
Другая программа не открывает этот файл в Excel? а как она открывает файл?
Как эта другая программа (что за программа) запускает макрос?
Excel в этот момент не виден? Если нет, то можно проверять свойство Application.Visible
извлечение HTML таблиц
 
Цитата
но в адресной строке появляются сведения
вообще можно не смотреть на адресную строку
надо смотреть какие запросы выполняет браузер к сайту
Цитата
с адресной строки потом дергуются эти сведения в скрипт
нет, наоборот. скрипт может менять адрес. из адресной строки скрипт ничего не берет, у него эти данные и без того есть
Цитата
но там один раз вошел и почти больше не когда не спрашивает, макрос работает
ну это в браузере Chrome. макрос не имеет никакого отношения к Хрому
Что значит «макрос работает»? если бы он работал, этой темы на форуме не было бы
Макросу авторизация была бы доступна, авторизуйтесь вы вручную в браузере IE (именно в нем, а не в другом)
Сейчас же макрос грузит страницу сайта без авторизации
Автоматический сбор файлов с почты mail.ru, Зайти на почтовый сервер, проверить папку входящие на наличие писем с определенной темой, скачать файлы приложенные к письму при совпадении темы
 
Здравствуйте.
Вы сами сильно усложняете себе задачу, отказываясь от Аутлука
Excel у вас есть? значит, и аутлук установлен с вероятностью 95%
Настроить его - минутное дело. А макрос для Аутлука писать - в разы проще, чем как-либо другим способом обращаться к почтовому серверу.
Как вы хотите работать с сервером? через браузер IE?
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 123 След.
Наверх