Oude leerling
Gebruiker
- Lid geworden
- 30 aug 2010
- Berichten
- 554
Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Option Explicit
Public Sub Meterstanden()
Dim avntBR As Variant
Dim avntData As Variant
Dim iavntBR As Long
Dim iavntData As Long
Dim objTable As Object
Dim strTD As String
Cells(4, 1).CurrentRegion.Offset(1, 0).ClearContents
With GetObject("new:{D5E8041D-920F-45e9-B8FB-B1DEB82C6E5E}") ''class id of InternetExplorerMedium
.Visible = True 'false
.navigate "http://192.168.178.25/log"
Do
DoEvents
Loop While .Busy Or .ReadyState <> 4
Application.Wait DateAdd("s", 2, Now)
Set objTable = .document.getelementsbytagname("table")(0)
strTD = objTable.getelementsbytagname("td")(0).innertext
avntBR = Split(strTD, vbCrLf)
For iavntBR = LBound(avntBR) To UBound(avntBR)
avntData = Split(avntBR(iavntBR), " ")
For iavntData = LBound(avntData) To UBound(avntData)
Cells(iavntBR + 5, iavntData + 1).Value = "'" & Replace(avntData(iavntData), "*", " ")
Next
Next
.Quit
End With
End Sub
function RefreshMe(){window.location = window.location}setTimeout('RefreshMe()', 3000);
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.