I am trying to automate the generation of slides in powerpoint using VBA. I would like to automatically get images from the web using edge navigator through msedgedriver. When I run my code in PowerPoint VBA, I receive the following error:
我正在尝试使用VBA在PowerPoint中自动生成幻灯片。我想通过msedgedriver使用Edge Navigator从网络上自动获取图像。当我在PowerPoint VBA中运行代码时,收到以下错误:
21 - Timeout error - The driver failed to open the listening port 127.0.0.1:57850 within 10s.
21-超时错误-驱动程序未能在10s内打开侦听端口127.0.0.1:57850。
While debugging, the error is in the following line: driver.Start "edge", "C:\Users\vi\AppData\Local\SeleniumBasic\msedgedriver.exe"
调试时,错误在以下行:driver.Start“EDGE”,“C:\Users\vi\AppData\Local\SeleniumBasic\msedgedriver.exe”
While trying to solve the issue, I done the following already:
在尝试解决问题的同时,我已经做了以下工作:
1 - certified that msedgedriver.exe is for ther current version of edge I am using;
1-已认证msedgedriver.exe适用于我正在使用的当前版本的EDGE;
2 - Deactivated my firewall and antivirus software;
2-禁用我的防火墙和杀毒软件;
3 - Certified the location of the msedgedriver.exe matches the location in the code to start the driver
3-已验证msedgedriver.exe的位置与代码中启动驱动程序的位置匹配
Anybody has any ideas how to solve this? Worth pointing out that the code I am using was generated by chatGpt (i am a newbie in programming).
有谁有办法解决这个问题吗?值得一提的是,我使用的代码是由chat Gpt生成的(我是编程新手)。
Here is the VBA powerpoint code up to the point where I have the error (with auto comments generated in Portuguese by ChatGpt):
以下是出现错误的VBA PowerPoint代码(带有由ChatGpt以葡萄牙语生成的自动注释):
Sub CriarSlidesDestinosComImagens()
Dim Destinos(5) As String
Dim Acomodacoes(5) As String
Dim i As Integer
' Definir os destinos e acomodações
Destinos(1) = "Porto Seguro, Brasil"
Acomodacoes(1) = "Porto Seguro Praia Resort hotel"
' Continue definindo os outros destinos e acomodações
' Crie uma instância do WebDriver
Dim driver As New WebDriver
' Inicialize o driver do Microsoft Edge (Chromium) com o caminho correto
driver.Start "edge", "C:\Users\helvi\AppData\Local\SeleniumBasic\msedgedriver.exe"
更多回答
我是一名优秀的程序员,十分优秀!