İnternet Sitesinden Tablo Çekme

[Ylcnyldrm]

Merhaba herkese, ekte basit bir tablo paylaştım, yapmaya çalıştığım şey toplu konut idaresinin ihalelerini payşaltığı resmi sitesi olan " https://www.toki.gov.tr/ihale-tarihleri " adresinden İl bazlı arama yaparak yada hepsini getir diyerek çekmek, yardımcı olursanız çok sevinirim teşekkürler.

 

[Necdet]

Merhaba,
Pratik yöntem, deneyiniz.

Public Sub UseQueryTable()

Dim url As String
url = "https://www.toki.gov.tr/ihale-tarihleri"

Sayfa1.Select

ClearSheet

Dim table As QueryTable
Set table = Sayfa1.QueryTables.Add("URL;" & url, Sayfa1.Range("A1"))

With table
    .WebSelectionType = xlSpecifiedTables
    .WebTables = "1"
    .WebFormatting = xlWebFormattingAll
    .Refresh
End With

Columns("A:E").Hyperlinks.Delete

End Sub

Private Sub ClearSheet()

Dim table As QueryTable

For Each table In Sayfa1.QueryTables
    table.Delete
Next table

Range("A1").CurrentRegion.ClearContents

End Sub

 

[Ylcnyldrm]

Teşekkürler, Bu gayet tabi güzel işe yarıyor ama ben sadece istediğim illerin bilgilerini getirsin istiyorum sayfada tarama yapıp, o şekilde mümkün mü acaba?

 

[Haluk]

Ekli dosyaya bakabilirsiniz....

.

 

[Necdet]

Teşekkürler, Bu gayet tabi güzel işe yarıyor ama ben sadece istediğim illerin bilgilerini getirsin istiyorum sayfada tarama yapıp, o şekilde mümkün mü acaba?

Haluk bey il bazında veri almayı vermiş, sağolsun.
Eğer benim gibi internetten veri çekme konusunda acemi iseniz, hazır veri gelmiş, bir süz işimi görür, dimi?

 

[Ylcnyldrm]

Ekli dosyaya bakabilirsiniz....

.

Teşekkürler kısmen çalıştı birinci sorun isimler i ü tarzı harfler bozuk gözüküyor, birde tek sorgu yapabiliyorum başka il atarabilmem için dosyayı kapatıp açmam gerekiyor.

 

[Haluk]

Bende bir problem yok bilemiyorum..... siz en iyisi Necdet Beyin 2 No'lu mesajındaki kodu, yine kendisinin 5 No'lu mesajında belirttiği şekilde kullanın......

.

 

[Ylcnyldrm]

Bende bir problem yok bilemiyorum..... siz en iyisi Necdet Beyin 2 No'lu mesajındaki kodu, yine kendisinin 5 No'lu mesajında belirttiği şekilde kullanın......

.

Teşekkürler o şekilde hallederim.

 

[Murat OSMA]

Power Query ile alternatif örnek.

 

[Ylcnyldrm]

Power Query ile alternatif örnek.

Ekli dosyayı görüntüle 246080

Teşekkürler buda gayet güzel olmuş ellerinize sağlık.

 

[dost]

Sayın @Haluk merhaba,

Gerçi bu soru ile alakalı değil ama:

Dinamik verileri olan internet sitesinden "MSXML2.XMLHTTP" ile verileri nasıl alabiliriz?

ÖRNEK:

EVDS | Tüm Seriler

evds2.tcmb.gov.tr

Yukarıdaki internet sitesinden;

Aşağıdaki seçenekleri tıkladıktan sonra verileri nasıl alabiliriz?

 

[Haluk]

Selenium ile olabilir..... denemek lazım.

.

 

[dost]

Tamamdır teşekkürler.