Find the count of each users questions vbs script or excel macro

Hi, bsharath.

Please see attached. The code is...

Option Explicit

Sub Check_URLS()
Dim i           As Long
Dim xResult     As Variant
Dim xCell       As Range
Dim xLast_Row   As Long

Sheets("Check URL's").Activate

xLast_Row = Range("A1").SpecialCells(xlLastCell).Row

If xLast_Row < 2 Then
    MsgBox ("No data found - run cancelled.")
    Exit Sub
End If

Range("B2:B" & xLast_Row).ClearContents

For Each xCell In Range("A2:A" & xLast_Row)
    
    If xCell <> "" Then
        i = i + 1
        xResult = Get_URL(xCell.Value)
    Else
        xResult = -1
    End If
    
    xCell.Offset(0, 1) = xResult
    
    Application.ScreenUpdating = True
    
Next

End Sub

Function Get_URL(xUrl As String) As Variant
Dim xTempSheet  As Worksheet
Dim xConnection As String
Dim xFound      As Range

Application.ScreenUpdating = False

Set xTempSheet = Sheets.Add
xConnection = "x" & Format(Now(), "hhmmss")

On Error Resume Next

    With xTempSheet.QueryTables.Add(Connection:="URL;" & xUrl, Destination:=Range("$A$1"))
        .Name = xConnection
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingAll
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With

On Error GoTo 0

If xTempSheet.Range("A1").SpecialCells(xlLastCell).Row = 1 Then
    Application.DisplayAlerts = False
        xTempSheet.Delete
    Application.DisplayAlerts = True
    Get_URL = -1
    Exit Function
End If

Set xFound = xTempSheet.Range("A:A").Find(What:="No of Questions : ", LookIn:=xlFormulas, LookAt:=xlPart _
                , SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
        
If xFound Is Nothing Then
    Get_URL = 0
Else
    Get_URL = Mid(xFound, 19, 9999)
End If

Application.DisplayAlerts = False
    xTempSheet.Delete
Application.DisplayAlerts = True

End Function

Select all Open in new window

Regards,
Brian.
Check-URL-s-V.xlsm

bsharath,

Sorry, I'm not clear about what you mean. Please post a sample entry

Edit: I tried "http://www.techyv.com/detail/Mike%20Atherton" and got 6 entries.

Thanks,
Brian.

bsharath,,

Yes, I got six as well. Did you use the same URL as I did or the Tinyurl?

Edit: Please post the file you used.

Thanks,
Brian.

bsharath,

That worked fine for me. I wonder is this possibly a log-in issue? To check this, please do the following...
 - On the Ribbon's menu bar, click on "Data".
 - On the Data tab, click on "From Web".
 - In the Address box, enter  "http://www.techyv.com/detail/Mike%20Atherton" (no quotes!) and xlixk on Import.

Do you get the user's details or a log-in prompt?

Thanks,
Brian.

Thanks, bsharath, that explains our different results.

For the moment, use that log-in prompt to enter your user-id and password and then test the file. (The log-in should last until you restart Excel.) I'll look into passing the password.

Regards,
Brian.

bsharath,

There are a number of (insecure) ways of passing user-id and password in a URL, however I can't get them to work on Techyv. I don't know whether this is caused by my web ignorance or with the site itself.

Assuming that the code is otherwise OK, you may wish to raise a new question in a more appropriate topic here or directly in Techyv.

Regards,
Brian.

bsharath,

Thanks for the interesting link. I dropped the code for creating a new question and my version successfully logs into Techyv. However, this doesn't make any difference in Excel - loading the page there still shows the user as logged off.

Consistently, if I have logged on from Excel (using "From Web") then the results are correct. However, once I've logged out from there then I get the zero results.

If it's not acceptable to you to do a manual log-on, I'd recommend that you suggest in one of your open questions in which Robert is involved that he get involved here. Not only could he give you the definitive answer on logging on, but he may also have a faster way of getting the data back.

Regards,
Brian.

bsharath,

As in this
can you run the excel and send back with the results please.
Sorry, I don't understand this.

Also i will be already logged in in IE before i run this macro
That works with some sites, but, IIRC, not your one. Unfortunately the EE-Test login no longer works so I can't check this again.

Regards,
Brian.

Thanks, bsharath.