[ Getsbi @ 14.02.2010. 17:56 ] @
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.
[ orion92 @ 09.07.2010. 07:49 ] @
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
[ 3okc @ 09.07.2010. 09:02 ] @
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.)
[ SLOJ.1973 @ 09.07.2010. 20:45 ] @
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
Code:
=AVERAGE(E9:F9)
a ne
Code:
=AVERAGE(E9;F9)
.Ostalo je O.K.
[ loto17 @ 18.07.2010. 07:12 ] @
Da li postiji slicno resenje koje ce,na osnovu PIB-a, pokazati da li su odredjeni kupci blokirani i iznos njihove blokade?


[ Zoran.Eremija @ 18.07.2010. 08:43 ] @
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.
[ loto17 @ 18.07.2010. 09:15 ] @
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.





[ Zoran.Eremija @ 30.11.2011. 21:02 ] @
Korigovao sam preuzimanje kursne liste sa sajta Narodne Banke Srbije...
[ Kiro @ 01.12.2011. 14:29 ] @
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
[ gorancho @ 14.12.2011. 14:39 ] @
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 ??
[ 3okc @ 15.12.2011. 12:09 ] @
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).
[ gorancho @ 16.12.2011. 12:48 ] @
Hvala puno na brzom odgovoru.
Adresu koju sam trazio je "http://www.nbs.rs/kursnaListaM...amp;listtype=html&lang=lat"

Pozdrav
[ 3okc @ 16.12.2011. 13:45 ] @
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.
[ zeppelin @ 25.02.2015. 09:22 ] @
Citat:
Zoran.Eremija:
Korigovao sam preuzimanje kursne liste sa sajta Narodne Banke Srbije...


Da li gresim ili ovaj korisni alat ne radi ?
[ Zoran.Eremija @ 25.02.2015. 11:27 ] @
Ne znam u čemu je problem ali kod mene radi!
[ zeppelin @ 12.03.2015. 16:02 ] @
Citat:
Zoran.Eremija: Ne znam u čemu je problem ali kod mene radi!


OK otvara stranicu, ali ne skenira u "KursnaListaValutaTemp".
[ dr.iver @ 11.10.2020. 08:52 ] @
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

Code:
Me.WebBrowser0.Object.silent = True

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

Code:
Case 1: rs!Valuta = he.innerText
                       Valuta = he.innerText

sa
Code:
Case 2: rs!Valuta = he.innerText
                       Valuta = he.innerText


[ Branimir Maksimovic @ 11.10.2020. 09:15 ] @
Promenili su sad, nekad je bilo samo da se postuje forma i vracali csv, sad vracaju neki js uz formu.