PDA

View Full Version : How to write myConnection(id)



clif
05-28-2015, 02:16 AM
Option Explicit
Dim oHtml, myData

Sub abc()
MsgBox myFunction(0)
End Sub

Function myFunction(id)
Call myConnection(id)
Set myData = oHtml.getElementById("lfHead")(0).getElementsByTagName("IfRowNo3")(0).getElementsByTagName("td")(1)
myFunction = myData.innerText
End Function

Public Sub myConnection(id)
Dim ie As InternetExplorer
Dim oHtml As HTMLDocument
Set ie = New InternetExplorer
Set oHtml = New HTMLDocument
ie.Visible = True
With CreateObject("WINHTTP.WinHTTPRequest.5.1")
.Open "GET", "http://example.aspx", False
.send
oHtml.body.innerHTML = .responseText
End With
End Sub






How to write myConnection(id). Thank you very much. It seems do not work!