Error Opening dynamic website as text stream

[bagullo]

Hi,

I am trying to write the contents of a dynamic website (I guess it's PHP or something similar) into a worksheet
I attempted to open as text stream the URL of the website, but the previous step of getFile does not work

any other way around to achieve what I am trying to do?

excel2003 by the way

'2013-10-25 / B.Agullo /
Public Sub checkDANs()
'description here
    
    Dim webSt As String
    
    webSt = GetBoiler("http://*******/DAN?OpenView")
    
End Sub

and Getboiler I got somewhere

Function GetBoiler(ByVal sFile As String) As String
'**** Kusleika http://www.rondebruin.nl/mail/folder3/signature.htm
    Dim FSO As Object
    Dim TS As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set TS = FSO.GetFile(sFile).OpenAsTextStream(1, -2)
    GetBoiler = TS.ReadAll
    TS.Close
End Function

thank you!

[ragulduy]

Not exactly sure what you are trying to get but maybe:

Function GetBoiler1(ByVal sfileURL As String) As String
With CreateObject("msxml2.xmlhttp")
    .Open "GET", sfileURL, False
    .send
    GetBoiler1 = .responsetext
End With
End Function
Sub checkDANs1()
Dim webst As String
webst = GetBoiler1("http://oem.aafgb.com/quotes/view/quote-data/")
End Sub

[bagullo]

awesome!

worked like a charm