Question

我使用下面提到的宏并且找不到输出。有人可以告诉我宏是否有问题以及如何修复它？

使用iMacros Scripting Code Creator将代码从imacros转换为VBS功能，我已在VBA模块中复制/粘贴了代码

Private Function macro() As String
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 + "URL GOTO=secured web page" + vbNewLine
macro = macro + "TAG POS=1 TYPE=INPUT:TEXT ATTR=NAME:asin 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
End Function

Answer 1

1。）实际上将字符串与“＆amp;”合并会更好而不是“+”。

2。）要获得输出，您需要一个sub，它调用函数，例如

Sub Use_Macro()
 Dim macroStr as String
   macroStr=macro
End Sub

Answer 2

简而言之：iMacro与Excel宏不同。 VB Script也与Excel VBA不同。

“iMacros Scripting Code Creator”没有做任何有价值的事情。它不会将功能正常的iMacro转换为其他语言。它唯一能做的就是获取iMacro的文本值并将其放入它转换为的“语言”变量中。它转换为的语言无法识别iMacro语言，也无法执行。即使它确实转换了有价值的东西，VB Script也不能在Excel VBA中使用。

运行宏后没有找到输出

2 个答案: