Linkovanje na sajt NBS i preuzimanje kursne liste

Posredstvom kolege Zorana Eremije dobio sam još jedan program koji radi na principu otvaranja www strane u okviru Access forme. Kada se otvori na zadatoj URL pronalazi ključnu reč na tom sajtu ka kojem ima link i kao da kliknete na taj link, otvara stranicu na kojoj su podaci i onda lepo skenira taj html fajl i uzima podatke sa njega. Problem je bio u tome što je NBS napravio tako sajt da sa njega ne može da se skine, vec pokrene link koji pokreće skript. Ovim kodom unutar forme praktično se simulira rad kliktanja na taj link iza kojeg je skript koji otvara novu stranicu.

Uđite u program sa SHIFT i u formi "KursnaListaPreuzmi" pogledajte kod na dogadjaj On Load.

Potpis

https://mzahorjanski.wixsite.com/mzahorjanski
https://www.fiverr.com/miroljubzahorja?up_rollout=true
https://www.youtube.com/@miroljubzahorjanski

Ok je sve to ali sam morao da prepravljam nbc.yu u nbs.rs i to nije problem. Meni treba kod koji će da pokupi sa tog sajta i kupovni i prodajni kurs a ne samo srednji odnosno sva tri kursa
Nešto se jako malo razumem u VBA pa nisam mogao da skontam u kodu gde treba i šta da izmenim da bi mi kupio kupovni i prodajni kurs.
Skontao sam da za to treba da se tamo negde tačnije u ovom delu:


If he.tagName = "A" Then
' If InStr(he.innerText, "Za ") = 1 Then he.Click: Exit Sub
If InStr(he.innerText, "efektivni strani novac") > 0 Then he.Click: Exit Sub i onda mi samo otvori tu stranicu ali neće da pokupi podatke zato što tamo nema stavka u tabeli srednji kurs.


NEED HELP
Nadam se da si razumeo o čemu pričam.
Znači zanima me da mi lepo ubaci sva tri kursa i kupovni i srednji i prodajni a ne samo srednji

Svojevremeno sam ovo rešavao u Excelu i koliko se sećam, bile su različite adrese za prikaz kupovnog/prodajnog i samo srednjeg, solo. Tako da sam importovao stranu sa kupovnim/prodajnim a do srednjeg sam došao formulom.

Doterao sam tabelu da isprati prelazak u rs domen. Nadam se da mi nećete zameriti što nije Access.
Aj didit maj vej.

(Usput, regionalna podešavanja moraju biti takva da je zarez decimalni separator a da tačka razdvaja hiljade.)

Potpis

Have you found helpful examples, solutions or ideas-in-work, please consider the
following:
• Citation of *actual page* you are going to using is welcome.
• Have you saw "Value Added" examples you are going to incorporate to your
profitable blog, daily job or any money making venture: How about online donation?
↗Ana & Vlade Divac Foundation
Hvala!

Imao si grešku (bar je kod mene tako iskazano,a regonalna podešavanja su mi onakva kava si naveo) u ćeliji koja preračunava sredni kurs trebalo bi da stoji a ne .Ostalo je O.K.

Potpis

Jednog dana...

Da li postiji slicno resenje koje ce,na osnovu PIB-a, pokazati da li su odredjeni kupci blokirani i iznos njihove blokade?

Ako ne postoji moze se napraviti na slican nacin. Bilo bi dobro da stavite link sa kojeg bi se preuzeli podaci i da bi moglo da se izvrsi provera.

Potpis

http://zoraneremija.wix.com/eremijacv

Evo linka:
http://www.nbs.rs/export/internet/latinica/67/rir.html
Ovde se ukuca PIB ( Poreski broj ) i dobije se uvid da li je kupac blokiran, datum blokade,ukupan iznos blokade i slicno.

Korigovao sam preuzimanje kursne liste sa sajta Narodne Banke Srbije...

Potpis

http://zoraneremija.wix.com/eremijacv

Možeš li to isto pokušati za CBBH http://www.cbbh.ba/index.php?id=4
Tamo ima i Download kursne liste: u CSV ili XLS formatu

Potpis

Kiro

Verujem da ima još puno ljudi kojima treba kurs narodne banke,
zato ako je moguće pomozite još malo !!!

Kako da dobijem kurs na određeni datum ???

Ne uspevam da prepoznam iz koda stranice narodne banke (www.nbr.rs//kursnaListaModul/naZeljeniDan.faces) kako da definišem parametar datuma!!
Ili možda to i nije prava putanja ??

Potrebno je malo strpljenja i vremena pa onda zasukati rukave za petljanje sa sourceom. Na kraju, sama putanja ti ne donosi mnogo jer moraš isprogramirati i formu za kontrolu datuma.
Nažalost, Access ne poznajem toliko pa to prepuštam majstorima. U međuvremenu, korigovao sam i ja staru xls tabelu. :)

Inače, kod mene se učitava druga, kraća lista (nazvana "devizna") pošto se tu nalaze kupovni i prodajni kursevi.
Predvideo sam izuzimanje vikenda budući da tada i nema nove liste (tj koristi se ona od petka).

Ono što bi se još moglo dodati je npr višestruko preuzimanje lista za neki vremenski opseg (ima smisla samo dok se baza na napuni);
nekakav pokazatelj procentualne promene u odnosu na kurs od prethodnog dana;
grafik valute (makar samo za evro) za neki vremenski opseg;
uporedni grafik dve valute (makar samo u odnosu na evro).

Potpis

Have you found helpful examples, solutions or ideas-in-work, please consider the
following:
• Citation of *actual page* you are going to using is welcome.
• Have you saw "Value Added" examples you are going to incorporate to your
profitable blog, daily job or any money making venture: How about online donation?
↗Ana & Vlade Divac Foundation
Hvala!

Hvala puno na brzom odgovoru.
Adresu koju sam trazio je "http://www.nbs.rs/kursnaListaM...amp;listtype=html&lang=lat"

Pozdrav

Mislim da je sve mnogo jasnije u tabeli: postavio sam kontrolni hiperlink da bi moglo odmah da se proveri koja kursna lista se učitala.

Tvoj "Zeljenidatum" mora biti u formatu DD.MM.YYYY. a broj iza "year" nije fiksiran na 2011 nego se radi o tekućoj godini. Takođe, lang=cir je za ćirilično pismo a lang=eng ispisuje kursnu listu na engleskom.

Potpis

Have you found helpful examples, solutions or ideas-in-work, please consider the
following:
• Citation of *actual page* you are going to using is welcome.
• Have you saw "Value Added" examples you are going to incorporate to your
profitable blog, daily job or any money making venture: How about online donation?
↗Ana & Vlade Divac Foundation
Hvala!

Da li gresim ili ovaj korisni alat ne radi ?

Ne znam u čemu je problem ali kod mene radi!

Potpis

http://zoraneremija.wix.com/eremijacv

OK otvara stranicu, ali ne skenira u "KursnaListaValutaTemp".

Nakon instalacije novog accessa 2016 počela su da se javljaju upozorenja oko https...
Ako još neko ima sličan problem, to može ispraviti sa dodavanjem sledeće linije koda u događaj Form_Load


Gornju liniju dodati na početak koda.

Takođe izgleda da je format kursne liste malo promenjen, pa je u proceduri ProcesKursnaLista potrebno zameniti sledeću liniju


sa