Web den Excele veri aktarırken sorun çıkıyor.

[kadird]

Merhaba

http://www.bigpara.com/analiz/performans-analizi/?ilktar=26-5-2013&sontar=2-6-2013

Yukarıdaki linkten excele tablodaki verileri ekrandaki formata uygun bir şekilde aktarmak istiyorum. Fakat hata mesajı veriyor.



Eskiden kopyala yapıştır ile bile verileri alabiliyordum. Ekrandaki tablo kısmını seçip kopyala/ yapıştır ile excele yapıştırıp sonra excele yapıştırdığım tabloyu kopyala/özel yapıştır/değerleri diyerek yeni bir sayfaya alıyordum istediğim hesaplamaları yapabiliyordum.

Bu tabloyu kolay pratik bir şekilde nasıl excele alıp hesaplama yaptırabilirim.

Şimdiden teşekkür ederim.

 

[kadird]

Bu sorunun cevabı yok mu arkadaşlar.

 

[Zeki Gürsoy]

Biraz bekleyin. Hem soruyu herkesin görmesi açısından, hem de sayfanın incelenip üretilecek çözümün test edilmesi açısından.

 

[Zeki Gürsoy]

Örnek dosya ektedir... Ancak explorer popup pencere getirdiği için butona basmanız gerekir. (Şu an için bunu aşacak yöntem bilemiyorum) İş bittiğinde explorer kendiliğinden kapanır.

Sub bigpara()
    
    Range("A3:I65536").ClearContents
    
    Set IE = CreateObject("InternetExplorer.Application")
    
    IE.Visible = True
    
    IE.navigate "http://www.bigpara.com/analiz/performans-analizi"
    
    Do Until IE.ReadyState = 4: DoEvents: Loop
    Do While IE.Busy: DoEvents: Loop
    
    Set doc = IE.document
    
    doc.all.IlkTarih.Value = CStr([b2])
    doc.all.SonTarih.Value = CStr([c2])
    
    doc.getElementById("frm_filter").submit
    
    Do Until IE.ReadyState = 4: DoEvents: Loop
    Do While IE.Busy: DoEvents: Loop
    
    For Each div In doc.getElementsByTagName("div")
        If div.className = "dataList" Then
            Set d = div
            Exit For
        End If
    Next
    
    sat = 2
    
    For Each v In d.getElementsByTagName("ul")
        arr1 = Split(v.innerText, " ")
        
        sat = sat + 1
        
        Cells(sat, 1) = arr1(0)
        Cells(sat, 2) = CDbl(arr1(1))
        Cells(sat, 3) = CDbl(arr1(2))
        Cells(sat, 4) = CDbl(arr1(3))
        
        arr2 = Split(arr1(4), vbNewLine)
            
        Cells(sat, 5) = CDbl(arr2(0))
        Cells(sat, 6) = CDbl(arr2(1))
        Cells(sat, 7) = CDbl(arr2(2))
        
        Cells(sat, 8) = CDbl(arr1(5))
        Cells(sat, 9) = CDbl(arr1(6))
    Next
    
    [b2] = doc.all.IlkTarih.Value
    [c2] = doc.all.SonTarih.Value
    
    IE.Quit
End Sub

 

[kadird]

Sn. Zeki Gürsoy öncelikle alakanız ve emekleriniz için çok teşekkür ederim.

Fakat dosyayı çalıştıramadım.
Dosyayı açmaya çalışırken karşılaştığım durumları sırasıyla resimledim.
Nerede yanlış yaptığım konusunda tekrar yardımcı olursanız sevinirim.

Sağolun.

 

[Zeki Gürsoy]

Merhaba,
Şimdi tekrar denedim; çalışıyor. IE versiyonundan olabileceğini tahmin ediyorum. Bendeki versiyon : IE8 ve işletim sistemi Win7.

Dosyayı başka bir makinede çalıştırıp test eder misiniz?

 

[kadird]

Zeki Bey

Tekrar teşekkür ederim.

Benim bilgisayarımda IE10 WİN7 ULTİMATE yüklü.

İE8 yüklemeye çalıştım. Kabul etmiyor.

Excelde Makro güvenlik ayarlarını düşürdüm.

Bigpara.xlsm dosyasını bilgisayarıma indirdim.Üzerinde ünlem işareti var.

Dosyayı açıp SORGULA dediğimde İE de bigpara sitesi açılıyor.

Fakat verileri excele aktarmıyor.

Önceki gibi herhangi bir hata uyarısı da vermiyor.

 

[kadird]

 

[kadird]

Zeki Bey

İE versiyonu 8 e düşürdüm.

Dosyayı tekrar çalıştırdım.

Bu sefer verileri tam almaya başladı derken yine hata verdi.

Görüntüleri aşağıya ekliyorum.

Lütfen ilgilenirseniz sevinirim.

 

[Zeki Gürsoy]

İzin verme hatası şimdi aldım. Ancak debug modundayken tekrar çalıştır komutu verildiğinde kaldığı yerden devam ediyor.

Prosedurun başına "on error resume next" ekleyin:

Sub bigpara()
    [COLOR=Blue][B]On Error Resume Next[/B][/COLOR]
.
.
.

 

[kadird]

Zeki Bey

Prosedürün başına"On Error Resum Next" ekledim.

Bu sefer hafa mesajı vermiyor. Fakat liste hatalı çıkıyor. Belli bir yerden sonra hep aynı senet verileri listeleniyor.

 

[Zeki Gürsoy]

Borsa verileri çekebileceğiniz başka bir sayfa belirleyin. Oradan deneyelim.

 

[kadird]

Zeki Bey herşey için tekrar tekrar teşekkür ederim.

Fakat benim bildiğim bu raporu alabileceğim başka bir site yok.

Sağolun.

 

[kadird]

Zeki Bey

Javayı güncelleyip dosyayı tekrar çalıştırdım. Bütün verileri çekti. Fakat alt alta tek sütüna aldı. Bunun bir çaresi varmı. Siz Javanın hangi sürümünü kullanıyorsunuz.

 

[Zeki Gürsoy]

Sürümü bilmiyorum ama "jre7" isimli klasörde bulunuyor.

Tek satırda gelmemesi gerekiyordu. Problem hakkında şu an fikrim yok.