Info uit website halen

Status
Niet open voor verdere reacties.
Natuurlijk niet.

Als de uitkomst "4.4 #&176;C</" is, moet

replace("4.4 #&176;C</","#&176;C</",chr(176) & "C")

"4.4 °C" zijn.
 
Laatst bewerkt:
Dan maak je waarschijnlijk een typefout.
 
Laatst bewerkt:
snb ,

Alles nog eens opnieuw gekopieerd.
Kan dus geen typefout zijn.
Ik kom er niet uit.
Jaap
 
Code: 
Sub M_snb()
    With CreateObject("MSXML2.XMLhttp")
      .Open "Get", "http://www.hetweeractueel.nl/weer/alkmaar2/actueel/", False
      .send

      Do Until .readystate = 4
        DoEvents
      Loop

      Sheets(1).Cells(Rows.Count, 2).End(xlUp).Offset(1) = Split(Split(Filter(Split(.responsetext, vbLf), "'>Temperatuur")(0), "strong>")(1))(0)
    End With
End Sub

Het is slimmer de opmaak van kolom B in te stellen op "#,# °C"
Dan hoeven in kolom B alleen maar getallen gezet te worden.
Dan kun je er daarna nog mee rekenen ook. (of grafieken maken)
 
Laatst bewerkt:
snb,

Wat ben jij toch goed.
(en wat moet ik nog een boel leren)
Je advies opgevolgd wat betreft opmaak kolom B
Alles werkt perfect
Bedankt voor je geduld.
Topic nu ECHT gesloten.

Vriendelijke groet , Jaap
 
Ik heb nog een alternatief:

Code: 
Sheets(1).Cells(Rows.Count, 2).End(xlUp).Offset(1) = Split(Split(Filter(Split(.responsetext, vbLf), "'>T")(0), ">")(4))(0)
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan