• Foruma hoş geldin 👋 Ziyaretçi

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak tamamen ücretsizdir.

Çözüldü amazon sitesinden fiyat bilgisi çekmek

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

VetExc

Destek Ekibi
Katılım
5 May 2021
Mesajlar
924
Çözümler
372
Aldığı beğeni
1,666
Excel V
Office 2016 TR
Deneyin.

C++:
Sub ExtractData()
    Dim http As New MSXML2.XMLHTTP
    Dim html As String
    Dim price As String

    'Send GET request to the webpage
    http.Open "GET", "https://www.amazon.com.tr/RODE-Wireless-GO-II-mikrofon/dp/B08XFQ6KP9/ref=sr_1_3?__mk_tr_TR=%C3%85M%C3%85%C5%BD%C3%95%C3%91&crid=3UONC668WJ2PL&keywords=wireless+go+ii&qid=1660821745&sprefix=wireless+go+ii%2Caps%2C138&sr=8-3", False
    http.send

    'Get the response
    html = http.responseText

    'Extract the price
    price = ExtractPrice(html)

    'Write the price to cell C3
    Range("C3").Value = price

End Sub

Function ExtractPrice(html As String) As String
    Dim doc As New HTMLDocument
    doc.body.innerHTML = html
    ExtractPrice = doc.getElementsByClassName("a-price-whole")(0).innerText
End Function

Yada şöyle deneyin.

C++:
Sub ExtractData()
    Dim http As New WinHttpRequest
    Dim html As String
    Dim price As String

    'Send GET request to the webpage
    http.Open "GET", "https://www.amazon.com.tr/RODE-Wireless-GO-II-mikrofon/dp/B08XFQ6KP9/ref=sr_1_3?__mk_tr_TR=%C3%85M%C3%85%C5%BD%C3%95%C3%91&crid=3UONC668WJ2PL&keywords=wireless+go+ii&qid=1660821745&sprefix=wireless+go+ii%2Caps%2C138&sr=8-3", False
    http.send

    'Get the response
    html = http.responseText

    'Extract the price using regular expression
    price = ExtractPrice(html)

    'Write the price to cell C3
    Range("C3").Value = price

End Sub

Function ExtractPrice(html As String) As String
    Dim price As String
    Dim regEx As New RegExp

    'Set the regular expression pattern
    regEx.Pattern = "\$\d+\.\d+"

    'Execute the regular expression
    Set regExMatches = regEx.Execute(html)

    'Check if a match was found
    If regExMatches.Count > 0 Then
        'Get the first match
        price = regExMatches(0)
    Else
        'No match found
        price = "Not found"
    End If

    ExtractPrice = price

End Function
 
Kodu hangi sayfada çalıştırdın
 
Dosya ektedir
Hepsiburada sitesine msxml işe yaramıyor
 

Ekli dosyalar

Çözüm
Yanlış gelen fiyat hangi siteden
 
Sitenin linkini atar mısın
 
Merhabalar

linke tıklanınca fiyat 7.866,48TL
7,856 fiyatı nerede yazıyor
 
tesekkür ederim o zaman,sorun çözüldü

C#:
Arkadaşlar merhaba
Böyle bir makrom var amazon,hepsiburada çalışıyor ancak diğer pazaryerleri çalışmıyor. bu makroyu nasıl düzeltirim yardımcı olurmusunuz?
şimdiden teşekkür edrim
Sub Web_Veri_Çekme()
For i = 2 To 1500
Dim request As Object
Dim response As String
Dim html As New HTMLDocument
Dim website As String
Dim tutar As Variant
Dim Line, N11 As String
Dim ie As Object, meta As Object, k As Integer, basla As Single
website = Sheets("veri").Range("E" & i)
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.setRequestHeader "If-Modified-Since", "Sat, 1 Jan 2000 00:00:00 GTM"
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
'hepsiburada için çalışıyor
If Sheets("veri").Range("E" & i).Value Like "*hepsiburada*" Then
tutar = html.getElementsByClassName("price")(0).innerText
Sheets("veri").Range("F" & i).Value = Trim(Replace(Replace(tutar, " (Adet )", ""), "TL", ""))
Sleep 300
'amazon için çalışıyor
ElseIf Sheets("veri").Range("E" & i).Value Like "*amazon*" Then
tutar = html.getElementsByClassName("a-offscreen").Item(0).innerText
Sheets("veri").Range("F" & i).Value = Trim(Replace(Replace(tutar, " (Adet )", ""), "TL", ""))
Sleep 300
'n11 için çalışıyor
ElseIf Sheets("veri").Range("E" & i).Value Like "*N11*" Then
Shell "taskkill /f /im iexplore.exe"
basla = Timer: While (Timer - basla) < 4: Wend
Line = "Madeleb 40 "
N11 = Sheets("veri").Range("E" & i)
With CreateObject("InternetExplorer.Application")
.Visible = False
.navigate N11
While .Busy Or .readyState < 1: DoEvents: Wend
Set meta = .document.getElementsByClassName("content  ")(0)
Sleep 300
Sheets("veri").Range("F" & i).Value = Trim(Replace(meta.getElementsByTagName("ins")(0).innerText, "TL", ""))
End With
'trendyol için çalışıyor
ElseIf Sheets("veri").Range("E" & i).Value Like "*trendyol*" Then
Shell "taskkill /f /im iexplore.exe"
basla = Timer: While (Timer - basla) < 4: Wend
Line = "Madeleb 40 "
N11 = Sheets("veri").Range("E" & i)
With CreateObject("InternetExplorer.Application")
.Visible = False
.navigate N11
While .Busy Or .readyState < 1: DoEvents: Wend
Set meta = .document.getElementsByClassName("product-detail-container")(0)
Sleep 300
Sheets("veri").Range("F" & i).Value = Trim(Replace(meta.getElementsByClassName("prc-dsc")(0).innerText, "TL", ""))
End With
End If
On Error Resume Next
Next
End Sub
 
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst