将网站列表的源代码导入相应的单元格

Question

我需要将网站列表的源代码（columnD）导入相应的单元格（columnA）。

问题：

1. 循环播放一系列单元格中的不同链接 - 已修复

2. 将源代码导入相应的单元格 - 仍在开发中。无法提取源代码。

这是我的代码。

Sub scrapeHyperlinksWebsite()

Dim dataextract As String

Do Until IsEmpty(ActiveCell)

    Set objIE = CreateObject("InternetExplorer.Application")
    With objIE
        objIE.navigate ActiveCell.Value
    End With

    objIE.Visible = True
    Do While objIE.readyState <> 4 And objIE.Busy
        DoEvents
    Loop
    'Do While objIE.readyState > 4: Loop

    'Call Sleep
    Application.Wait (Now + TimeValue("0:00:01"))

    On Error Resume Next

    dataextract = html.DocumentElement.innerHTML
    If html.DocumentElement.innerHTML <> " " Then
        Do While Not ActiveCell.Offset(0, 1).Value = dataextract
    End If

    ActiveCell.Offset(1, 0).Select
    Application.Wait (Now + TimeValue("0:00:01"))
Loop

End Sub