为什么我的代码会抛出一个错误“ActiveX组件无法创建对象”

Question

Sub imacros() 
Dim iim1, iret 

    Set iim1 = CreateObject("imacros") 
    iret = iim1.iimInit("", True) 

Dim macro 
macro = "CODE:" 
macro = macro + "'Uses a Windows script to submit several datasets to a website, e. g. for filling an online database" + vbNewLine 
macro = macro + "' Specify input file (if !COL variables are used, IIM automatically assume a CSV format of the input file" + vbNewLine 
macro = macro + "'CSV = Comma Separated Values in each line of the filE" + vbNewLine 
macro = macro + "TAB T=1" + vbNewLine 
macro = macro + "SET !DATASOURCE C:\Users\Desktop\test\test.csv" + vbNewLine 
macro = macro + "'Start at line 2 to skip the header in the file" + vbNewLine 
macro = macro + "'Increase the current position in the file with each loop " + vbNewLine 
macro = macro + "' Fill web form " + vbNewLine 
macro = macro + "TAB T=1" + vbNewLine 
macro = macro + "TAB CLOSEALLOTHERS" + vbNewLine 
macro = macro + "SET !PLAYBACKDELAY 0.2" + vbNewLine 
macro = macro + "URL GOTO=secured URL here" + vbNewLine 
macro = macro + "TAG POS=1 TYPE=INPUT:TEXT ATTR=NAME:name CONTENT={{!COL1}}" + vbNewLine 
macro = macro + "TAG POS=1 TYPE=INPUT:SUBMIT ATTR=TYPE:submit" + vbNewLine 
macro = macro + "TAG POS=1 TYPE=TABLE ATTR=CLASS:standardTable EXTRACT=TXT" + vbNewLine 
macro = macro + "SAVEAS TYPE=EXTRACT FOLDER=""C:\Users\Desktop\test"" FILE=""test_image.csv""" + vbNewLine 
macro = macro + "" + vbNewLine 

iret = iim1.immPlay(macro) 

End Sub 

上面是我使用的代码。 有人可以让我知道，如果有什么问题和错误的原因？ *转换的代码使用iMacros的脚本代码造物主VBS串

Answer 1

此行可能有错误的引号的iMacros：

macro = macro + "URL GOTO="secured URL here" + vbNewLine 

你可以在这里看到它，下一行被标记为一个字符串：

macro = macro + "URL GOTO="secured URL here" + vbNewLine 
macro = macro + "TAG POS=1 TYPE=INPUT:TEXT ATTR=NAME:name CONTENT={{!COL1}}" + vbNewLine 

删除等号后面的引号，然后重试。