• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

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

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

tr00tr

Yeni Üye
Katılım
1 May 2022
Mesajlar
6
En iyi yanıt
0
Puanları
1
Yaş
28
Konum
İstanbul
Ad Soyad
Talha Azanpa
Office Vers.
Office 2020
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

Yeni Üye
Katılım
1 May 2022
Mesajlar
6
En iyi yanıt
0
Puanları
1
Yaş
28
Konum
İstanbul
Ad Soyad
Talha Azanpa
Office Vers.
Office 2020
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

Yeni Üye
Katılım
9 Tem 2019
Mesajlar
131
En iyi yanıt
5
Puanları
28
Konum
İstanbul
Ad Soyad
Murat Uzun
Office Vers.
Office 2016
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

Yeni Üye
Katılım
1 May 2022
Mesajlar
6
En iyi yanıt
0
Puanları
1
Yaş
28
Konum
İstanbul
Ad Soyad
Talha Azanpa
Office Vers.
Office 2020
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

Yeni Üye
Katılım
1 May 2022
Mesajlar
6
En iyi yanıt
0
Puanları
1
Yaş
28
Konum
İstanbul
Ad Soyad
Talha Azanpa
Office Vers.
Office 2020
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

Yeni Üye
Katılım
1 May 2022
Mesajlar
6
En iyi yanıt
0
Puanları
1
Yaş
28
Konum
İstanbul
Ad Soyad
Talha Azanpa
Office Vers.
Office 2020
1652806922997.png

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

Yeni Üye
Katılım
1 May 2022
Mesajlar
6
En iyi yanıt
0
Puanları
1
Yaş
28
Konum
İstanbul
Ad Soyad
Talha Azanpa
Office Vers.
Office 2020
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")

7f6hko5.png



selenium ile başarlı bir şekilde üye girişi yaparak istediğim verileri çekmeyi başardım :)
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst Alt