URLs in excel sheet want to open in Mozilla firefoz

[lalit_burma]

Normally I got excel sheets from clients having 100 - 115 URLs in one column to check them manually.

I do copy and paste them to mozilla firefox to check. This is manual task and time consuming as well.

Do we have any options through which 10 URLs can open in 10 tabs of one mozilla firefox.

Next 10 URLs in new mozilla firefox and 10 tabs.

I will be highly obliged if someone help me in this regard.

 

[Leith Ross]

Hello lalit_burma,

This macro may make your job easier. Since it is a UDF, you can use it like a worksheet function. Copy this code into a VBA Module in your workbook. The function will return "200 - OK" if the URL is functioning correctly.

'Written: March 15, 2011
'Author:  Leith Ross

Public PageSource As String
Public httpRequest As Object

Function GetURLStatus(ByVal URL As String)

  Const WinHttpRequestOption_UserAgentString = 0
  Const WinHttpRequestOption_EnableRedirects = 6
  
  
    On Error Resume Next
       Set httpRequest = CreateObject("WinHttp.WinHttpRequest.5.1")
         If httpRequest Is Nothing Then
            Set httpRequest = CreateObject("WinHttp.WinHttpRequest.5")
         End If
       Err.Clear
    On Error GoTo 0

    httpRequest.Option(WinHttpRequestOption_UserAgentString) = "Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0)"
    httpRequest.Option(WinHttpRequestOption_EnableRedirects) = False


  'Clear any pervious web page source information
    PageSource = ""
    
        'Add protocol if missing
          If InStr(1, URL, "://") = 0 Then
             URL = "http://" & URL
          End If

          'Launch the HTTP httpRequest synchronously
            On Error Resume Next
              httpRequest.Open "GET", URL, False
              If Err.Number <> 0 Then
                'Handle connection errors
                  GetURLStatus = Err.Description
                  Err.Clear
                  Exit Function
              End If
            On Error GoTo 0
           
          'Send the http httpRequest for server status
            On Error Resume Next
              httpRequest.Send
              httpRequest.WaitForResponse
              If Err.Number <> 0 Then
                ' Handle server errors
                  PageSource = "Error"
                  GetURLStatus = Err.Description
                  Err.Clear
              Else
                'Show HTTP response info
                  GetURLStatus = httpRequest.Status & " - " & httpRequest.StatusText
                'Save the web page text
                  PageSource = httpRequest.responsetext
              End If
            On Error GoTo 0
            
End Function

Sincerely,
Leith Ross

 

[lalit_burma]

Hey Leith

Thank you very much for the help.

But we need to check something in each URL hence we want that those URLs should open in mozilla firefox and after that we can check it.

So if there is anything which help me o open those urls in mozilla that will be very much helpful.

 

[robgoldstein]

i have been looking for the same thing. I was given one answer, but it stopped working for me for some reason.

from the developers tab, click Macro, when the dialog open, enter a name for a new macro and click Create. The <acronym title="vBulletin" style="border-width: 0px 0px 1px; border-bottom-style: dotted; border-bottom-color: rgb(0, 0, 0); cursor: help; color: rgb(51, 51, 51); font-family: Verdana, Arial, Tahoma, Calibri, Geneva, sans-serif; background-color: rgb(250, 250, 250);">VB</acronym> editor will open with a sub routine for your marco. Paste the code in there. Also there is a slight typo in the code above... it should be

Code:

For Each c In Worksheets("Sheet1").Range("A9:A11").Cells c.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=TrueNext</pre>