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!
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!