İnternet sitesinden makaleleri çekmek

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

İnternet sitesinden makaleleri çekmek

İleti#1)  irfnal » 13 Oca 2022 14:33

Merhaba forumda araştırdım fakat bulamadım. Yardımcı olursanız çok sevinirim. https://engoo.com.tr/app/daily-news bu sitedeki makalelerin içindeki başlığı kelime listesini makaleyi soruları ve tartışma sorularını excelle çekmek istiyorum. Örneğin birinci makaledeki söylediğim bilgileri buttona basınca excelle çeksin. Böylece çıktı alabileceğim ve öğrencilere bu makaleleri paylaşarak ders işleyebileceğim. İnternetten kendin kopyala yapıştır diyebilirsiniz fakat birçok makale var ben bunları hepsini kaydetmek için günlerce uğraşmam gerekir. Eğer Excel dosyasına çekebilirsem kolayca çıktı alabilirim. İnternette örnek bir kod buldum fakat uyarlayamadım. Yardımlarınız için şimdiden teşekkürler

Sub PEAKUP_BLOG()

Dim ie As Object, meta As Object, i As Integer, basla As Single

Range("A2:B100").Clear

Shell "taskkill /f /im iexplore.exe"

basla = Timer: While (Timer - basla) < 1: Wend

Set ie = CreateObject("InternetExplorer.Application")

ie.Visible = False

ie.navigate "https://peakup.org/blog/"

While ie.Busy Or ie.ReadyState < 4: DoEvents: Wend

For i = 0 To ie.document.getelementsbyclassname("mk-blog-meta").Length - 1

Set meta = ie.document.getelementsbyclassname("mk-blog-meta")(i)

Range("A" & i + 2) = meta.getelementsbyclassname("the-title")(0).innertext

ActiveSheet.Hyperlinks.Add Anchor:=Range("A" & i + 2), _

Address:=meta.getelementsbytagname("a")(0).href, _

TextToDisplay:=Range("A" & i + 2).Value

Cells(i + 2, "B") = meta.getelementsbyclassname("mk-blog-meta-wrapper")(0).innertext

Next i

ie.Quit

MsgBox "Islem Tamamlandi.", vbInformation, "PEAKUP BLOG"

End Sub
Kullanıcı avatarı
irfnal
Yeni Başlamış
 
Kayıt: 02 Haz 2020 04:03
Meslek: Öğretmen
Yaş: 28
İleti: 53
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Sakarya/Karapürçek

Yıllık Maaş Bordrosu Hesaplama 2022

Cevap: İnternet sitesinden makaleleri çekmek

İleti#2)  irfnal » 16 Oca 2022 18:38

Konu güncel. Yardım edebilecek kimse yok mu? Bu benim için çok önemli.
Kullanıcı avatarı
irfnal
Yeni Başlamış
 
Kayıt: 02 Haz 2020 04:03
Meslek: Öğretmen
Yaş: 28
İleti: 53
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Sakarya/Karapürçek

Cevap: İnternet sitesinden makaleleri çekmek

İleti#3)  askmadige34 » 16 Oca 2022 22:11

İlgili site explorer ile açılmıyor. Chrome ile almak için selenium araştırabilirsiniz.
askmadige34
Forum Moderatörü
 
Kayıt: 20 Kas 2015 13:04
Meslek: memur
Yaş: 41
İleti: 1775
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kayseri

Cevap: Cevap: İnternet sitesinden makaleleri çekmek

İleti#4)  irfnal » 16 Oca 2022 23:04

askmadige34 yazdı:İlgili site explorer ile açılmıyor. Chrome ile almak için selenium araştırabilirsiniz.

Çok teşekkür ederim cevabınız için fakat selenium ile chromedan nasıl alabileceğimi de bilmiyorum. Umarım biri görür ve yardımcı olur. İçinde birçok makale var öğrencilerin gelişimine yardımcı olabilecek ve farklı kelimeler öğretebilecek. Eğer bunu yapabilirsem büyük bir ilerleme kaydedeceğim.
Kullanıcı avatarı
irfnal
Yeni Başlamış
 
Kayıt: 02 Haz 2020 04:03
Meslek: Öğretmen
Yaş: 28
İleti: 53
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Sakarya/Karapürçek

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Bing[Bot] ve 4 misafir

Bumerang - Yazarkafe