Я хотел бы очистить исходный код на всю страницу с помощью 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, так что опять будут проблемы с ограничениями ячеек.
Можете ли вы, ребята, предложить какие-то другие решения или отредактировать код выше, чтобы я мог получить полный исходный код?