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