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?