无法通过VBA使用selenium在搜索框中输入值

Sub InputValueInSearchBox()
    Dim IE As Object
    Set IE = CreateObject("InternetExplorer.Application")
    
    IE.Visible = True
    IE.Navigate "https://www.example.com" ' 替换为你要操作的网页地址
    
    ' 等待页面加载完成
    Do While IE.Busy Or IE.ReadyState <> 4
        DoEvents
    Loop
    
    ' 在搜索框中输入值
    IE.Document.getElementById("searchBox").Value = "要输入的值" ' 替换为实际的搜索框ID和要输入的值
    
    ' 其他操作...
    
    ' 关闭浏览器
    IE.Quit
    Set IE = Nothing
End Sub

Sub RunPythonScript()
    Dim scriptPath As String
    Dim pythonPath As String
    Dim cmd As String
    
    ' 替换为实际的Python脚本路径和Python解释器路径
    scriptPath = "C:\path\to\your\python\script.py"
    pythonPath = "C:\path\to\python\python.exe"
    
    ' 构建执行命令
    cmd = pythonPath & " " & scriptPath
    
    ' 执行Python脚本
    Shell cmd, vbNormalFocus
End Sub