Error while calling sub in vba

Question

Am stuck and not able to proceed with this. Please find my code below. The code is basically to verify if an element is present in a webpage through VBA. I have created the below sub.

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

Now when i call this sub it gives syntax error

This is where i call the above sub

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

I even tried converting it to a boolean FUnction rather than sub, but no luck.

Please help

change ele_exist ("byname","btnK") to ele_exist "byname","btnK" or Call ele_exist ("byname","btnK"). Also check this post: What is the difference between entering parameters in these four different ways — Dmitry Pavliv
– Dmitry Pavliv, Commented Jul 4, 2014 at 12:30
@simoco : Wow!! Please post this as answer so that i will accept and this can help people with similar query — Sriram
– Sriram, Commented Jul 4, 2014 at 12:32

Community · Accepted Answer · 2017-05-23 10:29:18Z

3

As I mentione in comments, change

ele_exist ("byname","btnK")

to

ele_exist "byname","btnK"

or

Call ele_exist ("byname","btnK")

One more possible way is to use named parameters:

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

For additional explanation check my another post: What is the difference between entering parameters in these four different ways

edited May 23, 2017 at 10:29

CommunityBot

11 silver badge

answered Jul 4, 2014 at 12:37

Dmitry Pavliv

35.9k13 gold badges84 silver badges85 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

Error while calling sub in vba

1 Answer 1

Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related