Pulling tables from web

[srija]

Hello Guys,

I'm able to pull all the tables from any outside public websites using below VBA Code but I'm not able to pull tables from my company site. It is showing that it is unable to open the site.

Is there any code to open my company site(protected) to pull tables.

Please help me that how can I pull tables from my company site.

Sub GetCourseList()

Dim URL As String

Dim qt As QueryTable

Dim ws As Worksheet

URL = "XXXXXXXXXXXXXXXXX "
Set ws = ActiveSheet

Set qt = ws.QueryTables.Add( _
Connection:="URL;" & URL, _
Destination:=Range("A1"))

qt.RefreshOnFileOpen = True

qt.Name = "Excel"

qt.FieldNames = True

qt.WebSelectionType = xlAllTables

qt.Refresh BackgroundQuery:=False

End Sub

Thank You

 

[srija]

Do I need to check/select any references to open secured web pages? Please help me

 

[srija]

I'm able to open the web page using below VBA code. Is there any way to pull table using below code? Can we merge above mentioned code and below to scrape?

Dim objShell
Set objShell = CreateObject("WScript.Shell")
    objShell.Run ("""C:\Program Files\Mozilla Firefox\firefox""" & " xyz.com")