Çözüldü Excel Macro - Otomatik üye girişi yaparak fiyat verisi çekme

tr00tr · 1 May 2022

Merhabalar,
e-ticaret işi ile uğraşıyorum bazı aldığım ürünler site üzerinden toptan alıyorum. Ortalama 150-200 kara ürünü takip etmem gerekiyor. Youtube üzerinde trendyol hepsiburada gibi sitelerden otomatik ürün takibi videolarından esinlenerek makro yazmak istedim. Ancak kullandığım site üye girişi yapılmadan stok takibi ve fiyat bilgisini ekrana yansıtmıyor.

takip yaptığım ürünlerin sitesi : Üye Giriş

makroya nasıl otomatik üye girişi yapıp fiyat bilgisi çekebilirim. Üye giriş komutları hariç hepsini yapabildim.

tr00tr · 1 May 2022


Private Sub CommandButton1_Click()

On Error Resume Next

Dim objIE As InternetExplorer
Dim HTMLdoc As MSHTML.HTMLDocument
Dim htmlInput As MSHTML.HTMLInputElement
Dim htmlColl As MSHTML.IHTMLElementCollection

sat = ActiveWindow.RangeSelection.Row
If Sayfa1.Cells(sat, "d") = "" Then
MsgBox "hatali satir sectiniz.."
Exit Sub
End If

Set objIE = New InternetExplorerMedium
objIE.navigate "https://www.tekbirsilver.com/uye-girisi-sayfasi" 'url

objIE.Visible = 1

Do While objIE.readyState <> READYSTATE_COMPLETE: DoEvents: Loop

Set HTMLdoc = objIE.document

HTMLdoc.getElementById("ug-email").Value = Sayfa1.Cells(sat, "d") 'kullanıcı adı

HTMLdoc.getElementById("ug-password").Value = Sayfa1.Cells(sat, "e") 'şifre

    Set htmlColl = HTMLdoc.getElementsByTagName("div")
    Set a = HTMLdoc.getElementsByClassName("btn col-12 btn-custom-pink text-upper text-center login")
    
    For Each htmlInput In a
        If Trim(htmlInput.Type) = "submit" Then
            htmlInput.Click 'giriş butonuna tıklandı
            Exit For
        End If
    Next htmlInput
    
End Sub

böyle denedim ama çalıştıramadım malesef

wexplorerx · 12 May 2022

Merhaba aşağıdaki gibi deneyebilirsiniz.

Sub Login()

Set ie = CreateObject("InternetExplorer.Application")
With ie
.Visible = True
.navigate "Üye Giriş"
Do Until .readyState = 4
DoEvents
Loop
.document.all.Item("ug-email").Value = "kullanıcı_adı_girildi"
.document.all.Item("ug-password").Value = "Parola:_12345678"
.document.all.Item("member-login-btn").Click

End With

End Sub

tr00tr · 15 May 2022

wexplorerx' Alıntı:
Merhaba aşağıdaki gibi deneyebilirsiniz.

Sub Login()

Set ie = CreateObject("InternetExplorer.Application")
With ie
.Visible = True
.navigate "Üye Giriş"
Do Until .readyState = 4
DoEvents
Loop
.document.all.Item("ug-email").Value = "kullanıcı_adı_girildi"
.document.all.Item("ug-password").Value = "Parola:_12345678"
.document.all.Item("member-login-btn").Click

End With

End Sub

ilginiz için teşekkür ederim, ıd pass yazması başarılı ancak sanırım click komutu çalışmıyor. id doğru ama neden tıklama yapmadığını anlamadım

tr00tr · 16 May 2022

giriş yap hariç bütün tuşlara tıklıyor, acaba manuel bir şekilde giriş yapsak öyle veri almamız mümkün müdür?

tr00tr · 17 May 2022

google e-tablodan farklı yöntemle fiyat almaya çalıştım ama, bir türlü fiyatı çekemiyorum. Site giriş yapmadan fiyatı göstermiyor, yukarıdaki kodla internet expoler olduğundan kaynaklı sanırım giriş yap komutu çalışmıyordu. Google chrome veya opera, edge gibi tarayıcıdan açmaya çalıştım internet expoler dışında açamadım kodu.

tr00tr · 20 May 2022

Kod:

Option Explicit

Dim MyBrowser As Selenium.ChromeDriver
Sub TestSelenium()

    Dim i, sonsat As Integer
    Dim Url As String
    'Dim FindBy As New Selenium.By
    Dim price As Selenium.WebElement
    Dim productname As Selenium.WebElement
    Dim currtime As Date
        
    sonsat = Sheets("Sheet1").Range("B100000").End(xlUp).Row
    Debug.Print sonsat
    Set MyBrowser = New Selenium.ChromeDriver
    
    currtime = Time()
    MyBrowser.AddArgument "--headless"
    MyBrowser.Start
    MyBrowser.Get "websitesi"
    MyBrowser.FindElementById("ug-email").SendKeys "kullanıcıadı"
    MyBrowser.FindElementById("ug-password").SendKeys "sifre"
    MyBrowser.FindElementById("member-login-btn").Click
    MyBrowser.Wait (1500)
    For i = 3 To sonsat
        MyBrowser.ExecuteScript "window.open();"
        'MyBrowser.Get "https://www.hepsiburada.com/"
        MyBrowser.SwitchToNextWindow
        Url = Sheets("Sheet1").Range("B" & i)
        MyBrowser.Get Url
        Set price = MyBrowser.FindElementByClass("product-price")
        Set productname = MyBrowser.FindElementById("productName")
        Range("C" & i).Value = productname.Text
        Range("F" & i).Value = price.Text
        Range("G" & i).Value = Now()
        MyBrowser.ExecuteScript "window.close();"
        MyBrowser.SwitchToPreviousWindow
        'Debug.Print xda.Text
    Next
    MyBrowser.Quit
    Range("C1").Value = Format(Now() - currtime, "hh:mm:ss")

selenium ile başarlı bir şekilde üye girişi yaparak istediğim verileri çekmeyi başardım

Murat OSMA · 22 May 2022

Ellerinize emeklerinize sağlık.