WPS多单元格链接打开网页并抓取数据到指定单元格

breatheroom

Sub 测()

  Dim j As Long
  Dim ie As Object
  Set ie = CreateObject("InternetExplorer.Application")
  ie.Visible = True
  For j = 1 To 20
   If Cells(j, 2) <> "" Then
   ie.navigate Cells(j, 2)
   While ie.Busy Or ie.readyState <> 4
   DoEvents
   Wend
   Dim doc As Object
   Set doc = ie.document
   Set elems = doc.getElementsByTagName("div")
   Dim text As String
   text = elems(11).innerText
   MsgBox text
   Cells(j, 2).Offset(0, 2).Value = text
   End If
  Next
End Sub

运行以上代码后出错

我想要的效果是 打开B3、B4的网址，抓取数据后对应放到D3、D4
就是只要把相应的链接放到单元格后，运行代码  就自动抓取相应的数据 放到该链接的后两列

请问该怎么修改 ?