Vbscript 获取函数的类型不匹配

我收到一条错误消息，即

Type mismatch: 'EMXWEB_IE_LAUNCH'
Line (1): "' ==============================================================================". 

功能是 选项显式

Public Function EMXWEB_IE_LAUNCH (dicArguments, sErrMsg)

Dim strVersion
Dim strExeVersion
Dim WshShell
Dim strEMXWebBrowserTitleBarText
Dim ie

Const strFunctionName = "EMXWEB_IE_LAUNCH"

Set ie = CreateObject( "InternetExplorer.Application" )
ie.Navigate "www.google.com"
ie.Visible=True

End Function

---

有人能告诉我我哪里错了，为什么会出现这个问题吗？

我在QTP中看到类似这样的错误，带有“第（1）行”，有时它与在您具有该函数的库之前加载的库有关。缺少其他库中的块结尾或函数结尾

---

也许你可以联系一下，但是当QTP保存文件的富文本格式被破坏时，我也看到了这种奇怪的东西。您可以尝试将整个代码粘贴到记事本中以获取纯文本，然后用记事本中的文本替换整个QTP文件并保存。这种疯狂已经对我起了好几次作用。

可能没有关系，但请注意函数应该返回一个值

[Set]EMXWEB\u IE\u LAUNCH=SomeValue

。否则，将其转换为Sub？是否知道我得到了“Error:Object Required:'SystemUtil'代码：800A10A8@SandyWilliams在不知道最终目标的情况下复制有点困难，您使用此函数试图实现什么？可能是因为您定义了一个常量值（EMXWEB\u IE\u LAUNCH）与函数同名？请尝试重命名或删除CONST声明，因为我看不出它有什么用途。@SandyWillams

SystemUtil

是一个特定的对象。如果只是使用vanilla VBScript，则不能使用SystemUtil对象。类型不匹配错误可能存在于函数调用中。如果调用方希望对象，然后返回

empty

或一个基元，或者如果调用方需要一个基元，而您返回一个对象或

Nothing

，则会出现这样的错误。但我只是在这里猜测，因为您提供的代码片段不足以确定错误的来源。