[Yardım]  Resmigazete duyurularını çekme hk.

Excel programınıza Web Sayfalarından veri alarak çalışabileceğiniz bölüm.

Resmigazete duyurularını çekme hk.

İleti#1)  bhcn » 18 Kas 2020 15:25

Merhabalar,
http://www.resmigazete.gov.tr adresinde, ana sayfada yer alan içeriği excel'e çekmek istiyorum.
Aşağıdaki kod ile içeriği tek bir hücreye alabiliyorum. (örnek A1 hücresi)
İçerik fazla değilse problem olmuyor ancak içerik fazla olunca; satır yüksekliği max 409 olmasından dolayı tüm yazılar çıkmıyor.
Bu durumu aşabilmenin bir yolu var mıdır?

ikinci sorum ise;
İçeriği tek hücreye değil de , satır satır almayı sağlayabilir miyiz?

Desteklerinizi rica ediyorum.


Kod: Tümünü seç
Sub Resmigazete()

Dim oHtml       As HTMLDocument
Dim oElement    As Object

Set oHtml = New HTMLDocument

With CreateObject("WINHTTP.WinHTTPRequest.5.1")
    .Open "GET", "https://www.resmigazete.gov.tr/", False
    .send
    oHtml.body.innerHTML = .responseText
End With

For Each oElement In oHtml.getElementsByClassName("html-content")
      Cells(1, 1).Value = oElement.innerText
Next oElement

End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
bhcn
Yeni Başlamış
 
Kayıt: 20 Nis 2015 13:28
Meslek: analist
Yaş: 38
İleti: 86
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İzmir

Cevap: Resmigazete duyurularını çekme hk.

İleti#2)  Erkan Akayay » 19 Kas 2020 00:46

Kod: Tümünü seç
Sub Resmigazete()

Dim oHtml       As HTMLDocument
Dim oElement    As Object

Set oHtml = New HTMLDocument

With CreateObject("WINHTTP.WinHTTPRequest.5.1")
    .Open "GET", "https://www.resmigazete.gov.tr/", False
    .send
    oHtml.body.innerHTML = .responseText
End With
i = 1
For Each oElement In oHtml.getElementsByClassName("html-content")
    For Each oChild In oElement.ChildNodes
        If oChild.nodeName = "DIV" Then
            Cells(i, 1).Value = oChild.innerText
            i = i + 1
        End If
    Next oChıld
Next oElement

End Sub
Sorularınızı düzgün bir Türkçe ile, detay vererek ve örnek dosyayla destekleyerek sorunuz.
Örnek dosyalarınızda Application.Visible veya hide gibi sayfa gizlemelerini iptal ediniz.
Kullanıcı avatarı
Erkan Akayay
Site Dostu
 
Kayıt: 20 Ağu 2008 11:59
Konum: YALOVA
Meslek: Bilgi İşlem
Yaş: 50
İleti: 4133
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İSTANBUL

Cevap: Resmigazete duyurularını çekme hk.

İleti#3)  bhcn » 19 Kas 2020 08:37

Çok teşekkür ederdim.
Kullanıcı avatarı
bhcn
Yeni Başlamış
 
Kayıt: 20 Nis 2015 13:28
Meslek: analist
Yaş: 38
İleti: 86
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İzmir


Forum Excel ile Web Sayfaları Veri İşlemleri

Online Kullanıcılar

Bu forumu görüntüleyenler: mustinba ve 1 misafir

Bumerang - Yazarkafe