使用HTML.getElementById（）检查VBA输入后是否存在HTML元素无法正常工作

我对VBA很陌生，没有太多的经验。 我有一个excel表格，里面有500多个命令，我想测试这些命令的语法是否正确。为此，我考虑使用VBA来自动化这个过程

首先，我只使用了一个命令，看看它是否可以工作，但它不能。我的代码：

Set IE = CreateObject("InternetExplorer.Application")

IE.Visible = True

URL = "https://www.freeformatter.com/java-regex-tester.html"

IE.Navigate URL

While IE.ReadyState <> 4
    DoEvents
Wend

IE.Document.getElementById("regex").Value = "\b(Yes"
IE.Document.getElementById("input").Value = "Yaes"
IE.Document.getElementById("matchesButton").Click

While IE.ReadyState <> 4
    DoEvents
Wend

Set html = IE.Document

If IsNull(html.getElementById("output")) Then
    Worksheets(12).Range("A2").Interior.ColorIndex = 3
End If


Set IE = Nothing

Set IE=CreateObject（“InternetExplorer.Application”）
可见=真实
URL=”https://www.freeformatter.com/java-regex-tester.html"
浏览网址
而IE.ReadyState 4
多芬特
温德
IE.Document.getElementById（“regex”）.Value=“\b（是）”
IE.Document.getElementById（“输入”）.Value=“Yaes”
IE.Document.getElementById（“匹配按钮”）。单击
而IE.ReadyState 4
多芬特
温德
设置html=IE.Document
如果IsNull（html.getElementById（“输出”）），则
工作表（12）.范围（“A2”）.Interior.ColorIndex=3
如果结束
设置IE=无

输入“\b（Yes）”应该有语法错误，因此应该有以下HTML代码：

<div id="output" class="form-wrapper" style="margin-top:20px;padding-left:20px;">

但是检查这个id=“ouptut”是不起作用的，如果出现这个错误，那么从这里应该没有，您需要检查对象是否存在，而不是元素是否为null

首先创建对象

set Element = html.getElementByID("output") 

然后运行检查以查看对象是否存在

if isObject(Element) then

---

试试看。

谢谢。我仍然收到错误：运行时错误“1004”应用程序定义错误或对象定义错误。