Überprüfen des Wertes einer URL in VBA

Question

Ich schreibe ein Programm, in dem eine if-Bedingung eine URL mit einem bestimmten Text testet, aber ich bekomme einen Fehler.

Sub test() 

Dim eRow As Long 
Dim ele As Object 
Dim srlnum As String 
Dim wb As WebBrowser 

Set sht = Sheets("sheet1") 
RowCount = 1 
sht.Range("A" & RowCount) = "Serial No" 
sht.Range("B" & RowCount) = "Expiry Date" 


Dim objIE As New InternetExplorer 

Dim counter As Integer 
counter = 1 
Do While counter >= 1 

    RowCount = RowCount + 1 


    'srlnum = InputBox("Enter Serial Number") 
    srlnum = ThisWorkbook.Sheets("sheet2").Range("A" & RowCount).Value 

    With objIE 
    .Visible = True 

search: 

    .navigate "http://tallysolutions.com/tallyweb/modules/crm/accounts/intranet/CLicenseFilterCtlr.php?strInvoker=wcc&strSearchClick=yes&strCalledFromLoginMenu=1" 

    Do While .Busy Or .readyState <> 4 
    DoEvents 
    Loop 

    Set serialnum = .document.getElementById("strInputProdSerial") 
    serialnum.Value = srlnum 
    .document.getElementById("btnShow").Click 

    Do While .Busy Or .readyState <> 4 
    DoEvents 
    Loop 

    On Error GoTo search 

    If objIE.Url.toString.contains("http://tallysolutions.com/tallyweb/modules/crm/accounts/intranet/CSiteAdvanceSearchListCtlr.php") Then 
    Stop 
    End If 

    For Each ele In .document.all 
     Select Case ele.ID 
       Case "trLicenseInfoContainer" 

         sht.Range("A" & RowCount) = srlnum 
         sht.Range("B" & RowCount) = ele.innerText 

     End Select 
    Next ele 


    End With 
    wb.Quit 
    Set wb = Nothing 

    counter = counter + 1 

Loop 

End Sub 

Die Linie

If objIE.Url.toString.contains("http://tallysolutions.com/tallyweb/modules/crm/accounts/intranet/CSiteAdvanceSearchListCtlr.php") Then 

gibt einen Fehler, der besagt the object does not support this property or method, aber ich weiß nicht, was dieser Fehler bedeutet.

Answer 1

Sie müssen LocationURL, nicht URL verwenden.

PositionURL Ruft die URL der Ressource ab, die derzeit angezeigt wird.

Quelle: https://msdn.microsoft.com/en-us/library/aa752084(v=vs.85).aspx