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

anakin14
Milosevic Dejan
Kragujevac

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

Profil

[Excel] Import podataka sa weba u Excel

^{30.10.2007. u 18:34}

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!

^{30.10.2007. u 18:34}

Jpeca
Predrag Jovanović
Bozic i sinovi škola računara
Pančevo

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

Jabber: jpeca@elitesecurity.org

Profil

Re: [Excel] Import podataka sa weba u Excel

^{31.10.2007. u 07:50}

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

Dva u dva ide jednom ako možeš da ga ućuškaš

Prikačeni fajlovi

Kurs.xls - 41k

^{31.10.2007. u 07:50}

anakin14
Milosevic Dejan
Kragujevac

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

Profil

Re: [Excel] Import podataka sa weba u Excel

^{01.11.2007. u 06:01}

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..?

^{01.11.2007. u 06:01}

Jpeca
Predrag Jovanović
Bozic i sinovi škola računara
Pančevo

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

Jabber: jpeca@elitesecurity.org

Profil

Re: [Excel] Import podataka sa weba u Excel

^{01.11.2007. u 07:40}

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

Dva u dva ide jednom ako možeš da ga ućuškaš

^{01.11.2007. u 07:40}