为什么我的代码会引发错误“ 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

Above is the code that im using. Could someone please let me know if there is something wrong with that and the reason for error? * Converted the code from imacros using iMacros Scripting Code Creator to VBS string

Answer 1

This line might have wrong quotation marks:

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

You can see it here, as the next line is marked as a string:

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

Remove the quotation mark after the equal sign and try again.