我来帮你梳理下这个438错误的排查方向和可能的解决办法——这类错误本质是你调用的对象（这里是IE的DOM元素）不支持你要访问的属性或方法，咱们一步步拆解：

• 先确认IE对象的加载状态，这是最常见的坑
  很多时候是页面还没完全加载，你就急着去访问document.body，导致对象还没就绪。一定要加加载等待逻辑：

  ' 导航到目标URL后，等待页面加载完成
  ie.Navigate url
  Do While ie.Busy Or ie.ReadyState <> 4 ' ReadyState=4表示页面完全加载
      DoEvents ' 让出CPU资源，避免Excel假死
  Loop
  

  要是遇到动态渲染的页面（比如用JS加载内容），即使ReadyState到4，body可能还没生成，再加个超时等待：

  Dim waitCount As Integer
  waitCount = 0
  Do While ie.document.body Is Nothing And waitCount < 10 ' 最多等10秒
      Application.Wait Now + TimeValue("00:00:01")
      waitCount = waitCount + 1
  Loop
  ' 如果超时还没加载到body，直接跳过当前链接并记录错误
  If ie.document.body Is Nothing Then
      Cells(i, 3).Value = "页面body加载超时"
      GoTo NextLink
  End If
  

• 检查URL的有效性
  你从A列提取的超链接可能是相对路径（比如只写了www.example.com），IE识别不了会导致加载失败，document对象直接异常。先把URL补全：

  Dim rawUrl As String, fullUrl As String
  rawUrl = Cells(i, 1).Hyperlinks(1).Address
  ' 补全HTTP/HTTPS协议
  If Left(rawUrl, 4) <> "http" Then
      fullUrl = "https://" & rawUrl
  Else
      fullUrl = rawUrl
  End If
  ie.Navigate fullUrl
  

  另外手动打开这个URL看看，是不是网站需要登录、有反爬跳转，或者直接不支持IE了——现在很多网站已经放弃IE，会跳转到错误页，自然拿不到正常的body。

• 修正属性名的大小写和兼容性
  VBA里IE DOM的属性是区分大小写的，你写的innertext全小写可能是问题所在，改成innerText（注意大写T）试试。如果还是不行，换成更可靠的documentElement（HTML根节点）来获取文本：

  ' 替代方案：用根节点提取文本
  Cells(i, 2).Value = ie.document.documentElement.innerText
  

• 考虑替换IE对象（推荐）
  IE现在已经被淘汰，很多网站不兼容，换成MSXML2.XMLHTTP来直接请求网页源码，再用HTMLFile解析，稳定性会高很多：

  Dim xmlHttp As Object, htmlDoc As Object
  Set xmlHttp = CreateObject("MSXML2.XMLHTTP")
  xmlHttp.Open "GET", fullUrl, False
  xmlHttp.send
  
  If xmlHttp.Status = 200 Then
      Set htmlDoc = CreateObject("HTMLFile")
      htmlDoc.write xmlHttp.responseText
      Cells(i, 2).Value = htmlDoc.body.innerText
  Else
      Cells(i, 3).Value = "请求失败，状态码：" & xmlHttp.Status
  End If
  

• 加错误捕获帮你定位问题
  给代码加个错误捕获，记录出错的具体链接，方便你排查是个别链接的问题还是普遍问题：

  On Error Resume Next
  Cells(i, 2).Value = ie.document.body.innerText
  If Err.Number = 438 Then
      Cells(i, 3).Value = "错误438：对象不支持属性，链接：" & fullUrl
      Err.Clear
  End If
  On Error GoTo 0
  

内容的提问来源于stack exchange，提问作者Anon78898