vba - Excel Macro - Search Google for Phone number -


i build macro in excel opens google chrome , searches contents (which company names) of column f, , saves phone number of company column g. phone number of many companies pops in results. if phone number cannot found, (at least) have excel open google , search information without me having copy , past hundreds of times. also, keep system crashing or many google tabs opening, macro search selection have made... attempting implement code found below. have admit, inexperienced vba user. can give great... , apologize ignorance.

sub xmlhttp()  dim url string, lastrow long dim xmlhttp object, html object, objresultdiv object, objh3     object, link object  dim start_time date  dim end_time date  lastrow = range("f" & rows.count).end(xlup).row  dim cookie string dim result_cookie string  start_time = time debug.print "start_time:" & start_time  = 2 lastrow     url = "https://www.google.co.in/search?q=" & cells(i, 1) & "&rnd=" & worksheetfunction.randbetween(1, 10000)     set xmlhttp = createobject("msxml2.serverxmlhttp")   xmlhttp.open "get", url, false   xmlhttp.setrequestheader "content-type", "text/xml"   xmlhttp.setrequestheader "user-agent", "mozilla/5.0 (windows nt 6.1; rv:25.0) gecko/20100101 firefox/25.0"   xmlhttp.send    set html = createobject("htmlfile")   html.body.innerhtml = xmlhttp.responsetext   set objresultdiv = html.getelementbyid("rso")   set objh3 = objresultdiv.getelementsbytagname("h3")(0)   set link = objh3.getelementsbytagname("a")(0)     str_text = replace(link.innerhtml, "<em>", "")   str_text = replace(str_text, "</em>", "")    cells(i, 2) = str_text   cells(i, 3) = link.href   doevents next  end_time = time debug.print "end_time:" & end_time  debug.print "done" & "time taken : " & datediff("n", start_time, end_time) msgbox "done" & "time taken : " & datediff("n", start_time, end_time) end sub


Comments

Post a Comment

Popular posts from this blog

Magento/PHP - Get phones on all members in a customer group -

i working on custom magento extension. working around adminhtml part , i've created custom form there. here form code: <?php class vivasindustries_smsnotification_block_adminhtml_sms_sendmass_edit_form extends mage_adminhtml_block_widget_form { public function _preparelayout() { $extensionpath = mage::getmoduledir('js', 'vivasindustries_smsnotification'); $head = $this->getlayout()->getblock('head'); $head->addjs('jquery.js'); $head->addjs('vivas.js'); return parent::_preparelayout(); } protected function _prepareform() { $form = new varien_data_form(array( 'id' => 'edit_form', 'action' => $this->geturl('*/*/save', array('id' => $this->getrequest()->get...
Read more

php - Bypass Geo Redirect for specific directories -

i'm trying bypass redirect specific url within site. wondering if might able help. the code below code use, original urls replaces example.com i'd able access http://example.com/admin without redirect occuring. is there way this, , there way using own ip? function country_geo_redirect() { $country = getenv('http_geoip_country_code'); if ($country == "us" ) { wp_redirect("http://usa.example.com/"); exit; } else if ($country == "gb" ) { wp_redirect("http://uk.example.com/"); exit; } } add_action('init', 'country_geo_redirect'); you can bypass redirection code if server found ip address. if ip address == <my ip address> ' nothing here else country_georedirect() end if
Read more

php - .htaccess mod_rewrite for dynamic url which has domain names -

i want convert url ex:( example.com/link.php?url=facebook.com ) ( example.com/facebook.com.php ) how can using .htaccess. or there other process make job easier ? i tried adding script .htaccess file options +followsymlinks rewriteengine on rewriterule url-(.*)\.htm$ link.php?url=$1 but converting url adding "url-" ( example.com/url-facebook.com.php ) i want remove "url-" , want make ( example.com/facebook.com.php ) rewriteengine on rewritecond %{the_request} ^get.*link\.php\?url\= [nc] rewritecond %{request_uri} !/system/.* [nc] rewriterule (.*?)link\.php\?url\=/*(.*) /$1$2 [r=301,ne,l] not sure how above work edit of used use remove index.php url
Read more