Unable to get rid of blank screen popping up while scraping content - excel

Question

I've created a macro to parse the name of different movies traversing multiple pages from a torrent site. I used InternetExplorer in combination with Html.body.innerHTML parser (usually used with xmlhttp requests) to make the execution faster. Although the content of this site is not dynamic, I used IE to see how it behaves when it does the scraping in combination with Html.body.innerHTML.
When I run my script using IE, It parses the content as expected and finishes the job. The only problem I'm facing is that there is a blank screen out of nowhere popping up in every pagination like the image below.
How can I get rid of this blank screen issues?
My script (no issues when I use Html.body.innerHTML in combination with Chrome Driver):
Sub FetchContent()
Const link = "https://yts.am/browse-movies/0/all/action/0/latest?page="
Dim driver As New ChromeDriver, Html As New HTMLDocument, genre$
Dim post As HTMLDivElement, I&, R&
For I = 1 To 3
With driver
.AddArgument "--headless"
.get link & I
Html.body.innerHTML = .ExecuteScript("return document.documentElement.outerHTML")
End With
For Each post In Html.getElementsByClassName("browse-movie-bottom")
R = R + 1: Sheets(1).Cells(R, 1) = post.getElementsByClassName("browse-movie-title")(0).innerText
Next post
Next I
driver.Quit
End Sub
I would like to get the same behavior when I try using Html.body.innerHTML in combination with IE but it produces blank screens along with the desired result:
Sub FetchContent()
Const link = "https://yts.am/browse-movies/0/all/action/0/latest?page="
Dim IE As New InternetExplorer, Html As New HTMLDocument, genre$
Dim post As HTMLDivElement, I&, R&
For I = 1 To 4
With IE
.Visible = False
.navigate link & I
While .Busy Or .readyState < 4: DoEvents: Wend
Html.body.innerHTML = .document.DocumentElement.outerHTML
End With
For Each post In Html.getElementsByClassName("browse-movie-bottom")
R = R + 1: Sheets(1).Cells(R, 1) = post.getElementsByClassName("browse-movie-title")(0).innerText
Next post
Next I
IE.Quit
End Sub
Blank screen that appears in every pagination in case of IE combination with Html.body.innerHTML:

Answer 1

I try to test your code with IE and find that I am able to produce the issue.
I find that below line is causing this issue.
Html.body.innerHTML = .document.DocumentElement.outerHTML
Below is the modified version of your code in which this issue is resolved.
Sub FetchContent1()
Const link = "https://yts.am/browse-movies/0/all/action/0/latest?page="
Dim IE As New InternetExplorer, Html As New HTMLDocument, genre$
Dim post As HTMLDivElement, I&, R&
For I = 1 To 4
With IE
.Visible = False
.navigate link & I
While .Busy Or .readyState < 4: DoEvents: Wend
For Each post In .document.getElementsByClassName("browse-movie-bottom")
R = R + 1: Sheets(1).Cells(R, 1) = post.getElementsByClassName("browse-movie-title")(0).innerText
Next post
End With
Next I
IE.Quit
End Sub
Output in IE 11:
Now, It will not open any blank page in IE.