使用VBA自动化边缘模式（没有第三方软件）

Question

当我一直在研究这个主题时，我正在创建一篇文章，并发现了一些矛盾的答案，该答案围绕着具有没有第三方应用程序的VBA自动化模式的能力（请参见下面的解决方案）。

我目前有一个在IE中完成以下操作的应用程序：

• 验证IE的实例是否已经打开并导航到特定的URL；
• 如果以上不是正确的话，可以创建一个新的IE实例；
• 从HTML文档中获得可用的数据；然后
• 单击元素以导航到其他选项卡和页面。

在IE贬值之前，我不确定如何指示代码与Edge IE模式专门通信，而不是尝试创建Internet Explorer的全新实例。 是否有人可能有我可以参考的特定示例

---

？ 71994505/9791828“> https://stackoverflow.com/a/a/71994505/9791828

在该线程中，其中一个响应表明这种自动化是可能的。

截至2022年4月25日，您现在可以直接使用VBA自动化Edge模式，而无需任何其他第三方软件。我和我的同事通过与合作的Microsoft支持团队进行交流后，对以下指南进行了很好的测试。

您需要做什么

1. 您的Windows版本必须至少为20H2。您可以在此处使用此指南检查Windows版本。

2. 您的窗口需要安装以下KBS：KB5011487。或者简单地更新窗口，也应自动安装。您可以在此处使用本指南检查Windows更新历史记录。

3. 最终在窗口上安装以下注册表键，然后重新启动：

Windows注册表编辑器版本5.00

[HKEY_LOCAL_MACHINE \ SOFTWARE \ PALICIES \ MICROSOFT \ Internet Explorer \ main]“ notifyDisableIeoptions” = dword：00000002

[HKEY_LOCAL_MACHINE \ SOFTWARE \ PALICIES \ MICROSOFT \ Internet Explorer \ Main \ EnterPriseMode] “ EnableGlobalWindowListinieMode” = DWORD：00000001

根据MS支持团队，上述方法应在2029年之前起作用。我相信可能很快就会发布有关此的官方文件。

在上述步骤之后，VBA将能够与Edge IE模式进行交互，就好像它是Internet Explorer窗口一样。您当前自动化InternetExplorer的代码。应用对象也将使用Edge IE模式。

响应2： https://lealen.microsoft.com/en-us/aswers/en-us/answers/questions/Questions/829365/vba -automation-with-gith-edge-ie-mode.html

社区专家之一说，没有硒和驾驶员，这是不可能的。

如果不是硒，我认为您不能与Edge IE模式自动化。

与Edge IE模式自动化的唯一方法是使用IEDRIVER。您不能只使用VBA做到这一点。您需要：

1. 定义具有其他属性的Internet Exploroptions，该属性指向Microsoft Edge浏览器。

2. 启动Internet ExplorerDriver的实例，然后通过Internet ExpplorerOptions。 IEDRIVER启动Microsoft Edge，然后以IE模式加载您的Web内容。

有关更多信息，您可以参考此文档

Answer 1

不幸的是，到目前为止，使用VBA在边缘浏览器中实现IE模式自动化似乎是不可能的。即使使用SeleniumBasic，由于没有Internet ExpplorerOptions类别，因此您无法使用VBA在IE模式下运行自动化。

但是，目前，您不必担心IE退休后的IE自动化。响应1后，我试图禁用IE11浏览器，事实证明，VBA代码仍然成功启动了IE浏览器窗口。您可以预期您的VBA代码在IE退休后会起作用。

有关IE退休的更多信息，请阅读本文：

我遇到了使用IE的应用程序的问题
自动化。这会解决吗？ （更新：2022年4月14日）

作为IE 11申请退休的一部分，某些COM自动化
场景被无意中打破了。这些IE com对象已经
恢复到11月11日Windows的原始功能
2021“ C”更新和Windows 2022年3月10日“ B”更新。 com
IE11桌面之后，方案也将继续工作
申请在2022年6月15日之后被禁用。如果您继续
进行更新后经历问题，请联系App Assure
用于补救协助。

Answer 2

我的VBA（v7.1.1126）直接从IE询问HTML；因此，我已经使用了带有Python（v3.10.6）的Selenium将等效数据从Chrome提取，并将其保存到文本文件中，然后我的VBA可以访问和解释。 VBA可以直接致电Python。

步骤1：安装最新的稳定[Python] [1]

步骤2：安装最新的稳定[Pycharm] [2]，并从同一链接中阅读如何使用它

。单击右上方附近的三个点。单击设置，然后关于Chrome查看Chrome的版本。下载相应的驱动程序[此处。] [3]在Pycharm路径文件夹中保存驱动程序

步骤4：创建一个新项目并安装软件包Selenium和WebDriver-Manager，如PYCHARM链接上方所述，

步骤5：创建一个新的空白Python文件vba.py在下一步中由VBA更新此Willl。

步骤6：将此代码添加到新的VBA过程中，以确保它对您有效：

    Public Sub GetHtml(sURL$, sHTML$, iChannel%, sOutputFile$)
    
    'sURL - web page HTML code sought
    'sHTML - where HTML pulled is stored
    'iChannel - channel used for reading/writing output from/to textfiles
    'sOutputFile - where HTML is saved for manual interrogation when debgging e.g. \Output.txt
    
    Dim iLoopCount%
    Dim complete$, pythonexe$, script$, script2$, sFile_Path$, textline$
            
    'Python Script
    
    script = "" & _
    "from selenium import webdriver" & vbCrLf & _
    "from selenium.webdriver.chrome.service import Service" & vbCrLf & _
    "from webdriver_manager.chrome import ChromeDriverManager" & vbCrLf & _
    "from selenium.webdriver.chrome.options import Options" & vbCrLf & _
    "import time" & vbCrLf & _
    "outputFile = r""" & ActiveWorkbook.path & sOutputFile & """" & vbCrLf & _
    "completeFile = r""" & ActiveWorkbook.path & "\complete.txt""" & vbCrLf & _
    "options = Options()" & vbCrLf & _
    "options.headless = True" & vbCrLf & _
    "driver = webdriver.Chrome(service=Service(ChromeDriverManager().install()), options=options)" & vbCrLf & _
    "driver.get(""" & sURL & """)" & vbCrLf & _
    "driver.delete_all_cookies()" & vbCrLf & _
    "driver.implicitly_wait(12)" & vbCrLf & _
    "time.sleep(12)" & vbCrLf & _
    "pageSource = driver.page_source" & vbCrLf & _
    "driver.quit()" & vbCrLf & _
    "with open(outputFile, 'w', encoding='utf-8') as f:" & vbCrLf & _
    "    f.write(pageSource)" & vbCrLf & _
    "f.close()" & vbCrLf & _
    "with open(completeFile, 'w') as f2:" & vbCrLf & _
    "    f2.write('complete')" & vbCrLf & _
    "f2.close()"
    
    'Write the Script into a python file
    sFile_Path = "C:\Users\user\PycharmProjects\VbaProject1\Main\vba.py"
    Close #iChannel
    Open sFile_Path For Output As #iChannel
    Print #iChannel, script
    'closing channel forces complete write of script to python file
    Close #iChannel
    
    Close #iChannel
    Open ActiveWorkbook.path & "\complete.txt" For Output As #iChannel
    Print #iChannel, "incomplete"
    Close #iChannel
    
    pythonexe = "C:\Users\user\PycharmProjects\VbaProject1\venv\Scripts\python.exe"
    
    'restart point for python crash below
    complete = "incomplete"
    Do While complete = "incomplete"
        'Execute Script.py
        Call Shell(pythonexe & " " & sFile_Path)
        
        Application.Wait (Now + TimeValue("0:00:10"))
        
        'this loop minimises waiting time for the python run to complete
        
        iLoopCount = 1
        Do While complete = "incomplete" And iLoopCount < 7
            Application.Wait (Now + TimeValue("0:00:05"))
            
            'close textfile if python run not complete and file open
            Close #iChannel
            
            Open ActiveWorkbook.path & "\complete.txt" For Input As #iChannel
            Line Input #iChannel, complete
            
            'this is rarely true and if so it so far only happens for a python error
            ' which is resolved by running the python code from PyCharm in debug mode
            ' and then setting the next statement to the restart point above
            ' and resuming play of the VBA
            If complete = "incomplete" And iLoopCount > 5 Then Stop
            
            Close #iChannel
            iLoopCount = iLoopCount + 1
        Loop
    Loop
    
    Open ActiveWorkbook.path & sOutputFile For Input As #iChannel
    sHTML = ""
    Do Until EOF(iChannel)
        Line Input #iChannel, textline
        sHTML = sHTML & textline
    Loop
    
    End Sub

python代码将VBA插入vba.py上方，并带有其他评论：

''python

from selenium import webdriver
from selenium.webdriver.chrome.service import Service
from webdriver_manager.chrome import ChromeDriverManager
from selenium.webdriver.chrome.options import Options
import time
outputFile = r"C:\Users\user\Documents\HP Laptop\Documents\Documents\Jobs\DIT\IDMB\Output.txt"
completeFile = r"C:\Users\user\Documents\HP Laptop\Documents\Documents\Jobs\DIT\IDMB\complete.txt"
options = Options()
# headless means that browser requests solely pull the data without creating a GUI - a visual representation of a page
options.headless = True
# point driver to Chrome driver previously saved in PATH folder - Step 3
driver = webdriver.Chrome(service=Service(ChromeDriverManager().install()), options=options)
# request HTML page
driver.get("https://www.imdb.com/title/tt0097334/?ref_=adv_li_i")
driver.delete_all_cookies()
driver.implicitly_wait(12)
time.sleep(12)
# HTML
pageSource = driver.page_source
# close browser
driver.quit()

# save HTML for subsequent dissection by VBA
with open(outputFile, 'w', encoding='utf-8') as f:
    f.write(pageSource)
f.close()

# mark run as complete 
with open(completeFile, 'w') as f2:
    f2.write('complete')
f2.close()

  [1]: https://www.python.org/downloads/
  [2]: https://www.jetbrains.com/help/pycharm/installation-guide.html
  [3]: https://chromedriver.storage.googleapis.com/index.html