Excel VBA：无法获取 HTML id 的内部文本

Question

您好：我正在使用 excel 从该网页获取值：https://www2.agenciatributaria.gob.es/es13/h/iexmmmfi.html

如何获取 excel VBA 的代码以获取 NIF、EJF、MOD 和 CEL 的字段？

我尝试使用 getelementbyid("NIF") 和 "name" 但没有结果

谢谢！

上一个帖子：Excel VBA: Get inner text of HTML table td

这是我使用的代码：

Sub AEAT()
  Dim IE As Object
  Application.ScreenUpdating = False
  Set IE = CreateObject("InternetExplorer.Application")

  IE.Navigate "https://www2.agenciatributaria.gob.es/es13/h/iexmmmfi.html"

  Application.Wait (Now + TimeValue("0:00:02"))


  IE.Document.getElementById("NIF").Value = Range("A1").Value
  Application.Wait (Now + TimeValue("0:00:01"))

  IE.Document.getElementById("EJF").Value = "2016"
  Application.Wait (Now + TimeValue("0:00:01"))

  IE.Document.getElementById("MOD").Value = "347"
  Application.Wait (Now + TimeValue("0:00:01"))

  IE.Document.getElementById("CEL").Value = Range("a4").Value
  Application.Wait (Now + TimeValue("0:00:01"))

  IE.Document.getElementById("env_button").Click

End Sub

Answer 1

好的，所以我在 Windows VM 中没有 Excel，所以我使用 VBScript 测试了您的代码。所以解决方案应该有效。你有 3 个问题

1. 导航不等待页面加载
2. 您的站点安装了一个 ActiveX 控件，需要先加载该控件
3. 即使您修复了 #1 和 #2，您也会收到异常“客户端已断开连接”并且该对象将不再可用

解决方案

在您的 IE 设置中将该站点添加到受信任的站点。

手动打开 IE 并安装 ActiveX 控件

Sub AEAT()
  Dim IE
  Set IE = CreateObject("InternetExplorer.Application")
  IE.visible = True
  hwnd = ie.hwnd
  IE.Navigate "https://www2.agenciatributaria.gob.es/es13/h/iexmmmfi.html"
  msgbox ("wait")

  Set oShell = CreateObject("Shell.Application")

  For Each Wnd In oShell.Windows
         If hwnd = Wnd.hwnd Then Set ie = Wnd
  Next 
  IE.Document.getElementById("NIF").Value = "123"
End Sub

Call AEAT

我已将 msgbox 插入等待，但您可以通过在 excel 中使用下面的方法自行修复此问题

  Do
    DoEvents
  Loop Until ie.ReadyState = READYSTATE_COMPLETE

PS：参考以下网址

Internet Explorer VBA Automation Error: The object Invoked has disconnected from its clients

Error "The object invoked has disconnected from its clients" - automate IE 8 with python and win32com