vba - Error While using Macro to add google's first image link to excel -


i'm using below code input google's first images link in b1 values in a1. 

public sub test()     dim ie internetexplorer     dim htmldoc htmldocument     dim imgelements ihtmlelementcollection     dim imgelement htmlimg     dim aelement htmlanchorelement     dim n integer, integer     dim url string, url2 string     dim lastrow long     dim m, simagesearchstring      lastrow = range("a" & rows.count).end(xlup).row      = 1 lastrow         url = "http://www.google.co.in/search?q=" & cells(i, 1) & "&source=lnms&tbm=isch&sa=x&rnd=1"         set ie = new internetexplorer          ie             .visible = false             .navigate url 'swebsiteurl              until .readystate = 4: doevents: loop                 'do until ie.document.readystate = "complete": doevents: loop              set htmldoc = .document              set imgelements = htmldoc.getelementsbytagname("img")              n = 1             each imgelement in imgelements                 if instr(imgelement.src, simagesearchstring)                     if imgelement.parentnode.nodename = "a"                         set aelement = imgelement.parentnode                          url2 = imgelement.src                         n = n + 1                     end if                 end if             next              cells(i, 2) = url2              ie.quit             set ie = nothing         end     next end sub

however i'm receiving below error, can please advise?

i'm using windows 10, excel 365

enter image description here

in vba menu - tools - references - tick ms internet controls.

or

using late binding

dim ie object set ie = createobject("internetexplorer.application")

Comments

Post a Comment

Popular posts from this blog

python - Operations inside variables -

this question has answer here: evaluating mathematical expression in string 12 answers i want make python script finds maximum possible output using 2 operations. problem says there syntax error @ 2nd last line, in b in there. how can fix it? x = 0 = int(input("1st number:")) c = int(input("2nd number:" )) e = int(input("3rd number:" )) in range(4): if == 0: b = "+" elif == 1: b = "-" elif == 2: b = "/" else: b = "*" j in range(4): if j == 0: d = "+" elif j == 1: d = "-" elif j == 2: d = "/" else: d = "*" k = b c d e print(k) if you're after variables e on single line, couldn...
Read more

Generic Map Parameter java -

i having lot of methods of type: public static list<eduusers> getdetails(class c, map<string, integer> params) { list<eduusers> details = null; session session = hibernateutil.getsessionfactory().opensession(); transaction tx = null; try { tx = session.begintransaction(); criteria cr = session.createcriteria(c); (map.entry<string, integer> entry : params.entryset()) { cr.add(restrictions.eq(entry.getkey(), entry.getvalue())); } details = cr.list(); tx.commit(); } catch (exception asd) { log.debug(asd.getmessage()); if (tx != null) { tx.commit(); } } { session.close(); } return details; } i trying have generic method them , have written far: public static <t> list<t> getdetails(class<t> c, class<t> b) { l...
Read more

arrays - What causes a java.lang.ArrayIndexOutOfBoundsException and how do I prevent it? -

what arrayindexoutofboundsexception mean , how rid of it? here code sample triggers exception: string[] name = {"tom", "dick", "harry"}; for(int = 0; i<=name.length; i++) { system.out.print(name[i] +'\n'); } your first port of call should documentation explains reasonably clearly: thrown indicate array has been accessed illegal index. index either negative or greater or equal size of array. so example: int[] array = new int[5]; int boom = array[10]; // throws exception as how avoid it... um, don't that. careful array indexes. one problem people run thinking arrays 1-indexed, e.g. int[] array = new int[5]; // ... populate array here ... (int index = 1; index <= array.length; index++) { system.out.println(array[index]); } that miss out first element (index 0) , throw exception when index 5. valid indexes here 0-4 inclusive. correct, idiomatic for statement here be: for (int index = 0; index <...
Read more