feeding url from activeCell doesn't work

[avathar]

Hi,
i'm trying to write simple script to check webpage status. And i have a problem with feeding url address from active cell.

Public Function GetServerResponse(url As String) As Integer

    On Error Resume Next


    With CreateObject("WinHttp.WinHttpRequest.5.1")
        .Open "GET", url
        .send
        GetServerResponse = .Status
    End With
Debug.Print GetServerResponse


ActiveCell.Offset(0, 1).Value = GetServerResponse
ActiveCell.Offset(1, 0).Select


End Function


Sub checkURLstatus()


'GetServerResponse "http://google.com/"
GetServerResponse ActiveCell.Value




End Sub

So if i put "http://google.com/" to active cell, script won't work.
if i use GetServerResponse "http://google.com/" instead, script will work.

Can some one please tell me, why url address in active cell isn't recognized properly ?

 

[Rick Rothstein]

I don't know for sure (because I do not do code that interacts with the web), but I think this is a limitation of formulas in Excel... they cannot take any action, only return a value to the cell they are in. I believe opening a web page would be considered an action. I think you will have to use a macro and call it when you need to do what you want.

 

[avathar]

hmm it looks like i made mistake in a url format in cell. It is working now...