[ coming_soon666 @ 23.04.2015. 18:03 ] @
Pozdrav dobri ljudi,
Trebala bi mi pomoć (tačnije rešenje), nisam u svetu programiranja već elektronike a treba mi neka vrsta automatizacije excela.
Znam da je izvodljivo jer sam našao neka polovična rešenja na youtubu.
Ovo bi trebao biti zadatak:
Imam excel fajl (2007) koji ima kolonu sa oznakama elektronskih komponenti i kolonu sa količinama.
Potrebno je da sa Visual Basicom iz excela povlacim jednu po jednu oznaku (part number) i da na sajtevima za katalosku prodaju el. komponenti kao što su DigiKey, Mouser, Schukat i Farnell izvučem odgovarajuću cenu.
Već sam našao sličan primer na youtubu ali nema rešenje za vadjenje vrednosti iz tabele i u zavisnosti od količine i da li je uopšte ima na stanju da povuče odgovarajucu cenu.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = Range("partnumber").Row And _
Target.Column = Range("partnumber").Column Then
Dim IE As New InternetExplorer
IE.Visible = True
IE.navigate "http://www.digikey.com/product-search/en?KeyWords=" & Range("partnumber").Value
Do
DoEvents
Loop Until IE.readyState = READYSTATE_COMPLETE
Dim Doc As HTMLDocument
Set Doc = IE.document
Dim sTR As String
sTR = Trim(Doc.getElementsByTagName("tr")(1).innerText)
IE.Quit
Dim aTR As Variant
aTR = Split(sTR, ",")
Range("qty").Value = aTR(1)
End If
End Sub

Ovaj primer neće da radi i prijavljuje mi grešku u redu sa linkom ka DigiKey sajtu.
Verujem da se nešto menjalo u VBA sintaksi, jer identičan primer je radio coveku na youtubu.

Evo recimo primera izgleda i organizacije tih sajtova sa kojih treba da uzimam podatke:
http://www.digikey.com/product...tm=0&fid=0&pageSize=25
http://www.mouser.de/ProductDe...52bXYfGASDnTldb2JprYtmcA%3d%3d
http://export.farnell.com/pana...tor-1206-2k-1-0-25w/dp/2057764
https://www.schukat.com/schuka...A98116198F1C64C1256D710034B762
Nadam se da sam bio jasan i da je možda neko raspoložen da pomogne.