在vba中调用sub时出错

我卡住了，不能继续这个。 请在下面find我的代码。 代码基本上是通过VBAvalidation网页中是否存在元素。 我已经创build了下面的子。

Sub ele_exist(val As String, ele As String) Select Case val: Case "byid": Set verielement = doc.getElementById(ele) If verielement Is Nothing Then msgbox("something") Else msgbox("something") End If Case "byclass": Set verielement = doc.getElementsByClassName(ele) If verielement Is Nothing Then msgbox("something") Else msgbox("something") End If Case "byname": Set verielement = doc.getElementsByName(ele) If verielement Is Nothing Then msgbox("something") Else msgbox("something") End If End Select End Sub 

现在，当我调用这个子，它给出了syntax error

这就是我所说的上述子

 Sub start() Set ie = New InternetExplorer With ie .navigate "http://www.google.com" .Visible = True While .Busy Or .readyState <> READYSTATE_COMPLETE DoEvents Wend Set doc = .document DoEvents End With ***ele_exist ("byname","btnK")*** - THIS IS WHERE SYNTAX ERROR IS DISPLAYED AND THE CODE IS DISPLAYED IN RED End Sub 

我什至尝试将其转换为布尔FUnction而不是分，但没有运气。

请帮忙

Answer 1

正如我在评论中提到的，改变

 ele_exist ("byname","btnK") 

至

 ele_exist "byname","btnK" 

要么

 Call ele_exist ("byname","btnK") 

另一种可能的方法是使用命名参数：

 ele_exist val:="byname", ele:="btnK" 

有关其他解释，请查看我的另一篇文章： 以四种不同的方式input参数有什么区别