hgenc545
Altın Üye
- Katılım
- 17 Aralık 2012
- Mesajlar
- 133
- Excel Vers. ve Dili
- Microsoft 365
- Altın Üyelik Bitiş Tarihi
- 21-08-2025
Değerli üstatlar
Aşağıdaki kodun eksik noktalarını tamamlar mısınız...
Sub VeriCek()
Dim XMLHTTP As Object
Dim html As Object
Dim i As Integer
Dim str As String
Set XMLHTTP = CreateObject("MSXML2.XMLHTTP.6.0")
XMLHTTP.Open "GET", "https://www.mgm.gov.tr/?il=ankara", False
XMLHTTP.send
Set html = CreateObject("htmlfile")
html.body.innerHTML = XMLHTTP.responseText
' Veri çekmek istediğiniz elementin yordamını kullanarak veriyi çekin
str = html.getElementById("element_id").innerText
' Veriyi seçtiğiniz hücreye yerleştirin
ActiveCell.Value = str
End Sub
Aşağıdaki kodun eksik noktalarını tamamlar mısınız...
Sub VeriCek()
Dim XMLHTTP As Object
Dim html As Object
Dim i As Integer
Dim str As String
Set XMLHTTP = CreateObject("MSXML2.XMLHTTP.6.0")
XMLHTTP.Open "GET", "https://www.mgm.gov.tr/?il=ankara", False
XMLHTTP.send
Set html = CreateObject("htmlfile")
html.body.innerHTML = XMLHTTP.responseText
' Veri çekmek istediğiniz elementin yordamını kullanarak veriyi çekin
str = html.getElementById("element_id").innerText
' Veriyi seçtiğiniz hücreye yerleştirin
ActiveCell.Value = str
End Sub