问如何修复“运行时错误429: ActiveX组件无法创建对象”错误时使用任务计划程序运行硒vba宏在Excel？

EN

我在Excel中有一个宏，它使用来打开chrome并在Chrome浏览器中自动化一些web任务。我设置了一个VBS来运行这个宏，当我双击VBS时，它会手动地运行。

以下是流程：

任务调度程序-> RunMacroUploadAsia.vbs在WeeklyUpload.xlsm ->中启动WeekendNoRunAsia宏，完成WeekendNoRunAsia宏，并启动UploadPostAsia宏打开chrome浏览器来执行一些web任务。

当我使用Windows任务计划程序运行VBS脚本以按计划运行Excel宏时，

“运行时错误429，ActiveX组件无法创建对象”

Excel窗口出现错误。当我调试这个宏时，它会卡在UploadPostAsia宏中的这一行代码中：

Set D = New ChromeDriver

为什么VBS要手动运行而不是在任务调度程序上运行呢？

这是我处境的安排。VBA是用Excel2007编写的，我安装了SeleniumBasic (SeleniumBasic v2.0.9.0)。我的笔记本电脑运行在Windows 7家庭Basic 64位和我的Chrome浏览器v71.0.3578.98上。

1. 在之下的Actions选项卡中，我有以下内容： "C:\Users\SKhany\Google Drive\myexample\mystuff tasks\RunMacroUploadAsia.vbs"
2. 下面是RunMacroUploadAsia.vbs脚本： 选项显式显示错误恢复下一步ExcelMacroExample ExcelMacroExample() Dim xlApp Dim xlBook Set xlApp = CreateObject("Excel.Application") xlApp.Visible = True Set xlBook = xlApp.Workbooks.Open("C:\Users\SKhany\Google \my涡旋tasks\WeekdayUpload.xlsm"，0，True) xlApp.Run "WeekendNoRunAsia“xlApp.Quit Set xlBook = Nothing Set xlApp = Nothing End Sub
3. 然后宏WeekendNoRunAsia将按照UploadPostAsia运行(代码如下所示)，然后任务调度程序将停留在 集合D=新ChromeDriver

如果我不使用Task，并且我尝试将代码更改为Set D = New Selenium.Chromedriver，并且仍然有相同的错误，工作流就能工作。我需要每个工作日运行这个工作流，并且非常愿意用来解决这个问题，或者如果有其他方法来调度VBS是受欢迎的。感谢你在这方面的任何帮助。

Public Sub UploadPostAsia()
    Dim ws As Worksheet
    Dim D As WebDriver
    Dim i As Integer

    Set ws = ThisWorkbook.Worksheets("Data")
    Set D = New ChromeDriver
    Const URL = "https://www.myexample.com/login/"

    'To login to website

    With D
        .Start "Chrome"
        .Window.Maximize
        .Get URL
        .FindElementById("user_login").SendKeys(ws.Cells(2, 1)).Click
        .FindElementById("user_pass").SendKeys(ws.Cells(2, 2)).Click
        .FindElementByName("submit").Click
    End With

   'Perform some web tasks
End Sub