webde tablo gibi görünen yerdeki verileri aktarma

[Haluk]

Dosyanız ektedir.... eklediğiniz modulleri silip, tekrar ekledim. Başka da birşey yapmadım, şimdi çalışıyor......

.

 

[mekist]

Dosyanız ektedir.... eklediğiniz modulleri silip, tekrar ekledim. Başka da birşey yapmadım, şimdi çalışıyor......

.

Farklı dosyaya alınca yine aynı hata verdi neden olduğunu anlamadım

Bende Export ve İmport yaparak modülleri ana dosyaya aldım, sorunsuz çalıştı

Teşekkür ederim

 

[mekist]

@Haluk Hocam Merhaba

https://www.isyatirim.com.tr/_layouts/15/IsYatirim.Website/Common/Data.aspx/MaliTablo?companyCode=" & produceName & "&exchange=TRY&financialGroup=XI_29&year1=2013&period1=12&year2=2013&period2=9&year3=2013&period3=6&year4=2013&period4=3

Bu adresten şirket kodu ve dönemi değiştirerek tüm şirketlerin 10 yıllık mali tablo verilerini tek seferde tablo olarak Excele alıyorum
Bunları da makro ile almak mümkün mü

 

[mekist]

Merhaba

Mali tablolar için değiştirdim, sarı alanda hata verdi
Anladığım kadarıyla hata veren her para birim için

"json" sonrası (1) silince çalıştı, bu defada veri getirmiyor

Nerde hata yapıyorum

 

[Haluk]

Bilgisayarim yok yanimda, telefondan yaziyorum;

For each xcurrency in json(1).value

Olarak deneyin....


.

 

[mekist]

Denedim olmadı, aynı yerde hata verdi

 

[Haluk]

Sanirim "value" ifadesinde "v" kucuk harfle yazilmasi gerektigi ama VBA otomatik olarak "Value" yaptigi icin sorun oluyor.

Simdi soyle yapalim....

Bir onceki mesajda belirttigim duzenlemeyi kullanacaksiniz. Oradaki "For..next" satirindan once asagidakini ilave edip deneyin....

Dim value as object

For each xcurrency in json(1).value

.....
....

yani "value" yazimi tamami kucuk harf olmali


.
.

 

[mekist]

Eğer doğru anladım ise ekledim, yine aynı yerde hata verdi

 

[Haluk]

Hata mesajinda ne diyor?

.

 

[mekist]

bunu veriyor

 

[Haluk]

Denemek icin o For-Next dongusunu iptal edin, yerine sunu yazip bir calistirin.... bakalim ne sonuc cikacak?

Msgbox json(1)(0).value("value4")

Veya;

Msgbox json(1)(0).value.value4

.

 

[mekist]

Her ikisini de denediğimde aşağıdaki gibi hata verdi

 

[Haluk]

Hmmm.....

Peki, o satirin yerine

Msgbox htmlcode

Yazinca ne geliyor?

.

 

[mekist]

datayı okudu, ilginç bir şekilde satıra dökmüyor

 

[Haluk]

Hmmm.... JSon verileri geliyor, sikinti yok.

Son olarak, bir de bunu deneyin....

Msgbox json.value(0)("value4")

Veya

Msgbox json.value(0).value4

.

 

[mekist]

ekleyince bu hatayı verdi

 

[Haluk]

Neyse.... bilgisayar olmayinca anlamak zor oluyor.

Bayramdan sonra bakariz artik...

.

 

[mekist]

teşekkür ederim hocam

 

[Haluk]

27 No'lu mesajdaki onerimde yer alan

"Json(1)" yerine sadece "Json" olarak yazip denemismiydiniz?

.

 

[mekist]

denememiştim, şimdi denedim
method hatası veriyor