Как очистить исходный код полной страницы с помощью VBA - проблема ограничения ячеек - PullRequest
0 голосов
/ 14 января 2020

Я хотел бы очистить исходный код на всю страницу с помощью VBA (без каких-либо других инструментов) и вставить его в Excel. Однако из-за ограничений на ячейки большая часть исходного кода отсутствует.

Я использую код ниже:

Sub SCRAPE()
Dim IE As Object
    Set IE = CreateObject("InternetExplorer.Application")
    With IE
        .Visible = False
        .Navigate "https://www.ng-news.net/best-budget-processor-for-super-budget-gaming-pc/"
                 Do While .Busy And .readyState <> 4: DoEvents: Loop
         Application.Wait Now + TimeValue("0:00:06")
       Sheets("Sheet1").Range("A1").Value = .document.body.outerHTML
        .Quit
    End With
End Sub

Я думал об использовании текстового поля вместо ячейки, но Я не знаю, могу ли (и КАК) установить значение текстового поля.

Другим решением может быть предварительная установка разграничения, который будет разделять исходный код после вставки, но он не будет работать, так как нет Метод «вставить» в коде действительно.

Вероятно, было бы возможно сохранить исходный код в текстовый файл, а не в ячейке, но опять же - мне нужно, чтобы он в конце получился в Excel, так что опять будут проблемы с ограничениями ячеек.

Можете ли вы, ребята, предложить какие-то другие решения или отредактировать код выше, чтобы я мог получить полный исходный код?

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...