[es] - [Excel] Import podataka sa weba u Excel

anakin14

Član broj: 73683
Poruke: 862
*.dynamic.sbb.co.yu.

+133 Profil

[Excel] Import podataka sa weba u Excel

^{30.10.2007. u 18:34 - pre 200 meseci}

Da li je moguce da u jednom polju imam danasnji kurs evra koji excel fajl vuce sa sajta recimo narodne banke?
kako je moguce da recimo u jednoj bazi podataka ubacim kolonu u kojoj ce excel automatski da upisuje danasnji kurs evra
znaci on samostalno treba da formira bazu podataka od 365 redova i u svakoj automatski sa weba da povuce danasnji kurs i da upise i sve automatski.
Sam cu da uradim samo mi dajte neke smernice kako da ovo uradim?
puno hvala!

Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2268
212.200.27.*

Sajt: www.gowi.rs

+109 Profil

Re: [Excel] Import podataka sa weba u Excel

^{31.10.2007. u 07:50 - pre 200 meseci}

Uvlačenje podataka sa Weba u Excel je prilično jednostavno.
1/ Aktiviraš Data -> From Web
2/ Upišeš adresu html stranice kojojoj pristupaš (bitno je da je kursna lista čista html tabela - a ne neki aktivni element stranice) npr http://www.kursna-lista.com/
3/ Klik na Go
4/ U prozora za pregled označi pomoću deo html stranice -tabelu sa kursnom listom -koju imoportuješ (prikazaće se oskvir i strelica).
5/ Klik na import
6/ Ovako unesene podatke možeš koristiti u formulama osvežiti sa Refresh iz kontekstnog menija. Jednom formiran upit iz konteksnog menija možeš i da prilagodiš opcijom Edit Query, pa izborom Options iz prethonog dijaloga.

Podatke o kursu na određeni datum možeš pristupiti na adresi:
http://www.nbs.yu/internet/lat...&eksport=html&:langkl:

Naravno, web upite možeš koristiti i iz VBA da celu proceduru automatizuješ i olakšaš, tako da pozoveš upit sa datumom kao parametrom

Code:

Public Sub GetKurs(ByVal Datum As String)
ThisWorkbook.Sheets("Kursna Lista").QueryTables("Kursna_Lista").Connection = _
"URL;http://www.nbs.yu/internet/latinica/scripts/kl.html?datum=" & Datum & _
"&broj=br.&godina=2007&vrsta=1&eksport=html&:langkl:"
ThisWorkbook.Sheets("Kursna Lista").QueryTables("Kursna_Lista").Refresh
End Sub

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Prikačeni fajlovi

Kurs.xls - 41k

Odgovor na temu

anakin14

Član broj: 73683
Poruke: 862
*.dynamic.sbb.co.yu.

+133 Profil

Re: [Excel] Import podataka sa weba u Excel

^{01.11.2007. u 06:01 - pre 200 meseci}

hvala na odgovoru, ali kako da napravim bazu podataka koja sadrzi datum, kupovni kurs i prodajni kurs za svaki dan, znaci ta baza svakog dana automatski upisuje podatke..?

Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2268
212.200.27.*

Sajt: www.gowi.rs

+109 Profil

Re: [Excel] Import podataka sa weba u Excel

^{01.11.2007. u 07:40 - pre 200 meseci}

Kursna lista koju si na ovaj način napravio u Excelu je dinamički povezana sa kursnom listom na webu. Drugim rečima kad otvoriš tabelu/osvežiš podatke imaćeš tekuću listu za taj dan. Dalje prepišeš podatke u bazu podataka - kako ćeš to uraditi nema veze sa webom nego je obična manipulacija podacima u Excelu.
Čini mi se najbolje da koristeći VBA na događaj Workbook Open:
1/ Odrediš poslednji datum sa kursom u bazi
2/ while poslednji datum < today
3/ Aktviraš upit za prvi sledeći datum kao parametar (GetKurs)
4/ Pronađeš i prepišeš podatke iz kursne listze u bazu
5/ End while

Za neke naprednije tehnike sa upitima pogledaj http://www.mrexcel.com/tip072.shtml

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Odgovor na temu