Excel İnternetten Veri Çekme

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

Excel İnternetten Veri Çekme

İleti#1)  hasan_55 » 16 Ağu 2019 13:58

internet URL link adres:Kesinleşmiş Günlük Üretim Planı - Planlama - Üretim | EPİAŞ Şeffaflık Platformu
link girerseniz ordaki girmek istediğim şu şekilde olacak.
başlangıç tarih 25.08.2019 ve bitiş tarih 08.08.2019 ve
Organizasyon Adı: HAMİTABAT ELEKTRİK ÜRETİM VE TİCARET A.Ş.
UEVÇB Adı:HAMİTABAT ÜNİTE-10 yazdıktan sonra buton tıklayarak veriler excele vba ile veri çekmek istiyorum.
nasıl yapabilirim?

Yardım edersiniz şimdiden teşekkür ediyorum.
Kullanıcı avatarı
hasan_55
Yeni Başlamış
 
Kayıt: 09 Arl 2017 17:38
Meslek: bilgisayar
Yaş: 24
İleti: 10
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ordu/Ünye

Cevap: Excel İnternetten Veri Çekme

İleti#2)  Yasin KURT » 19 Ağu 2019 07:48

Dosyadaki excelin içinde makro kayıtlı. Çalıştırınca tek tarihe göre veriler çekiyor.

Daha önce bir kere bu siteden veri çekmiştim ama geliştirmek için uğraşmadım.

Deneyin.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
yasinkurt06@ gmail.com
Ankara 0506 669 1079
Yasin KURT
Forum Moderatörü
 
Adı Soyadı:Yasin KURT
Kayıt: 08 Arl 2008 00:18
Konum: ANKARA
Yaş: 38
İleti: 3241
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara



Cevap: Excel İnternetten Veri Çekme

İleti#3)  hasan_55 » 19 Ağu 2019 08:34

Yasin Bey,

Çok teşekkür ederim.
Kullanıcı avatarı
hasan_55
Yeni Başlamış
 
Kayıt: 09 Arl 2017 17:38
Meslek: bilgisayar
Yaş: 24
İleti: 10
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ordu/Ünye

Cevap: Cevap: Excel İnternetten Veri Çekme

İleti#4)  hasan_55 » 19 Ağu 2019 09:07

Yasin KURT yazdı:Dosyadaki excelin içinde makro kayıtlı. Çalıştırınca tek tarihe göre veriler çekiyor.

Daha önce bir kere bu siteden veri çekmiştim ama geliştirmek için uğraşmadım.

Deneyin.


yasin bey bir sorum daha varda yardımcı olursanız 08.08.2019 tarihinde alabiliyor. ancak 01.08.2019 dan itibaren 08.08.2019 kadar hücreler nasıl alabilirim.?
Kullanıcı avatarı
hasan_55
Yeni Başlamış
 
Kayıt: 09 Arl 2017 17:38
Meslek: bilgisayar
Yaş: 24
İleti: 10
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ordu/Ünye

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

Cevap: Excel İnternetten Veri Çekme

İleti#5)  Yasin KURT » 19 Ağu 2019 09:17

Kodların içine döngü kurmak gerek. Üzerinde de çalışmak gerek. :(
yasinkurt06@ gmail.com
Ankara 0506 669 1079
Yasin KURT
Forum Moderatörü
 
Adı Soyadı:Yasin KURT
Kayıt: 08 Arl 2008 00:18
Konum: ANKARA
Yaş: 38
İleti: 3241
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara



Cevap: Excel İnternetten Veri Çekme

İleti#6)  hasan_55 » 19 Ağu 2019 09:46

Sub verT()
'Referanslara eklenmesi gerekenler
'Microsoft internet controls
'Microsoft HTML Object Library
Dim html As HTMLDocument
Dim tables As IHTMLElementCollection
Dim ie As InternetExplorer

Cells.Delete

Set ie = New InternetExplorer
ie.Visible = True
ie.Navigate ("https://seffaflik.epias.com.tr/transparency/uretim/planlama/kgup.xhtml")

Do While ie.ReadyState <> READYSTATE_COMPLETE: DoEvents: Loop
While ie.Busy: DoEvents: Wend

ie.Document.getElementById("j_idt191:date1_input").Value = "07.08.2019"
ie.Document.getElementById("j_idt191:date2_input").Value = "08.08.2019"

Set psize = ie.Document.getElementById("j_idt191:distributionId_input")
psize.Value = "378"
Set EVNT = ie.Document.createEvent("HTMLEvents")
EVNT.initEvent "change", True, False
ie.Document.getElementById("j_idt191:distributionId_input").dispatchEvent EVNT

ie.Document.getElementById("j_idt191:goster").Click

Do While ie.ReadyState <> READYSTATE_COMPLETE: DoEvents: Loop
While ie.Busy: DoEvents: Wend

ie.Document.getElementById("j_idt191:uevcb_input").selectedIndex = 3
'psize.Value = "378"
Set EVNT = ie.Document.createEvent("HTMLEvents")
EVNT.initEvent "change", True, False
ie.Document.getElementById("j_idt191:uevcb_input").dispatchEvent EVNT

ie.Document.getElementById("j_idt191:goster").Click

Do While ie.ReadyState <> READYSTATE_COMPLETE: DoEvents: Loop
While ie.Busy: DoEvents: Wend

Set html = ie.Document
Set tables = html.getElementsByTagName("table")

Dim table As HTMLTable
Dim lrow As Long
Dim lcolumn As Long
Dim cell As HTMLTableCell

lcolumn = 0
For Each table In tables
lrow = 0
For Each Row In table.Rows
lcolumn = 0
For Each cell In Row.Cells
Sheets(1).Cells(lrow + 1, lcolumn + 1).Value = cell.innerText
lcolumn = lcolumn + 1
Next
lrow = lrow + 1
Next
Next
ie.Quit

Sheets(1).Columns.AutoFit
Sheets(1).Rows.AutoFit
Dim formattable As ListObject

For i = 1 To 100
Set formattable = Sheets(1).ListObjects.Add(xlSrcRange, Sheets(1).Range("a1").CurrentRegion, xlYes)
formattable.TableStyle = "TableStyleMedium14"
Next
End Sub

for döngü ekledim ancak hata veriyor ne yapmam gerek ben davamını eklemek istiyorum. yani a1 den başlayıp sonuna kadar gitmesini istiyorum.
Kullanıcı avatarı
hasan_55
Yeni Başlamış
 
Kayıt: 09 Arl 2017 17:38
Meslek: bilgisayar
Yaş: 24
İleti: 10
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ordu/Ünye

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Excel İnternetten Veri Çekme

İleti#7)  Yasin KURT » 19 Ağu 2019 10:14

Döngüyü tarihler için ayarlamak lazım.
Her tarihte 24 satır listeleniyor.
Tarih aralığı girmek yerine hep tek tarih sorgusu yapıp alt alta listelenebilir.
yasinkurt06@ gmail.com
Ankara 0506 669 1079
Yasin KURT
Forum Moderatörü
 
Adı Soyadı:Yasin KURT
Kayıt: 08 Arl 2008 00:18
Konum: ANKARA
Yaş: 38
İleti: 3241
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara



Cevap: Excel İnternetten Veri Çekme

İleti#8)  hasan_55 » 19 Ağu 2019 10:50

kodları nerde yazcam tarif ederminiz
Kullanıcı avatarı
hasan_55
Yeni Başlamış
 
Kayıt: 09 Arl 2017 17:38
Meslek: bilgisayar
Yaş: 24
İleti: 10
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ordu/Ünye

Cevap: Excel İnternetten Veri Çekme

İleti#9)  hasan_55 » 20 Ağu 2019 08:58

tek tarih sorgusu yaptım ancak listelenemiyor. hangi kodları düzeltmem gerek?
Kullanıcı avatarı
hasan_55
Yeni Başlamış
 
Kayıt: 09 Arl 2017 17:38
Meslek: bilgisayar
Yaş: 24
İleti: 10
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ordu/Ünye

Cevap: Excel İnternetten Veri Çekme

İleti#10)  Yasin KURT » 21 Ağu 2019 09:13

Bu kodu bi deneyin.
Her sayfa için tekrar sorgu yaptırıyor ve ona göre verileri excele alıyorum.

Kod içinde iki tane tarih var oraya deneme için iki tarih girip çalıştırın.

ie.visible false yazan satırı da dilerseniz true olarak deneyebilirsiniz.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
yasinkurt06@ gmail.com
Ankara 0506 669 1079
Yasin KURT
Forum Moderatörü
 
Adı Soyadı:Yasin KURT
Kayıt: 08 Arl 2008 00:18
Konum: ANKARA
Yaş: 38
İleti: 3241
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara



Cevap: Excel İnternetten Veri Çekme

İleti#11)  hasan_55 » 21 Ağu 2019 12:23

Yasin Bey Bey,

Çoook teşekkür ederim.
Kullanıcı avatarı
hasan_55
Yeni Başlamış
 
Kayıt: 09 Arl 2017 17:38
Meslek: bilgisayar
Yaş: 24
İleti: 10
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ordu/Ünye

Cevap: Cevap: Excel İnternetten Veri Çekme

İleti#12)  Bl0oDy » 23 Ağu 2019 07:46

Yasin KURT yazdı:Dosyadaki excelin içinde makro kayıtlı. Çalıştırınca tek tarihe göre veriler çekiyor.

Daha önce bir kere bu siteden veri çekmiştim ama geliştirmek için uğraşmadım.

Deneyin.



Merhaba,

Dosya hasar görmüş olabilir mi ? İndirdikten sonra açamadım ben.

Kullanıcı avatarı
Bl0oDy
 
Kayıt: 29 Mar 2019 09:29
Meslek: Raporlamacı Biyolog
Yaş: 31
İleti: 1
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Türkiye


Forum Excel ile Web Sayfaları Veri İşlemleri

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe