获取我的功能类型不匹配

Question

我收到错误消息，即

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

任何人都可以让我知道我错在哪里以及为什么我会遇到这个问题

Answer 1

我在QTP中用“line（1）”看到这样的错误，它有时与你在该函数库之前加载的库有关。在其他库中缺少块的结尾或函数的结尾。

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