Hi Ashkaran, It seems you didn't followed the link properly, you need to set a reference to "Microsoft Internet Controls" through Tools --> References before you run the code. For full step-by-step procedure, please follow the link. http://www.excelitems.com/2009/03/access-search-engines-on-browser.html
For more tips, tricks, downloads and problem solutions: visit --> http://www.excelitems.com ------------------------------------------------------------------------ Regards *Ashish **Jain* Analyst, CSC Australia Microsoft Certified Application (Excel) Specialist Technical Trainer - Excel and VBA Author -> www.excelitems.com +91-9999-40-48-43 ---------------------------------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------------------------------- On Mar 15, 1:53 pm, "Ashkaran Badlani" <ashkaran.badl...@gmail.com> wrote: > Hi Team, > > I am also trying to do something of this sort. However when I copied this > program in my excel VB Editor. It is giving me error at the declaration > line of 'MyBrowser', system is not recognising SHDocVw.InternetExplorer > > Can anyone help me to know how to open internet explorer from Excel and then > open a webpage into it. > > Thanks & Regards > > Ashkaran Badlani > > -----Original Message----- > From: excel-macros@googlegroups.com [mailto:excel-mac...@googlegroups.com] > > On Behalf Of Mike C > Sent: 13 March 2009 05:04 > To: MS EXCEL AND VBA MACROS > Subject: $$Excel-Macros$$ Automatically paste contents of active cell into > Webpage Search box > > Someone gave the the below macro (using Microsoft Internet Controls > > via Code Editor > Tools > References) for taking the active cell in > > Excel and then automatically placing it in a search box in a new > > Explorer Webpage, and then in effect, hitting ENTER. > > It works with the website provided,www.ebay.com. But I am trying to > > change it to work with another website. I am trying to do it with > > http://www.half.ebay.com/. > > Does anyone know how I can change alter the below code, or even any > > new code, to produce the same effect athttp://www.half.ebay.com/ > > Sub Login_Website() > > 'Requires Reference to "Microsoft Internet Controls" > > 'Declare Reference to InternetExplorer Object > > Dim MyBrowser As SHDocVw.InternetExplorer > > 'Set Reference to InternetExplorer Object > > Set MyBrowser = New SHDocVw.InternetExplorer > > With MyBrowser > > 'Make the Browser visible > > .Visible = True > > ' Open Ebay.com with Active Cell Value > > .Navigate "http://shop.ebay.com/? > > _from=R40&_trksid=m38.l1313&_nkw=" _ > > & ActiveCell.Value & "&_sacat=See-All- > > Categories" > > End With > > End Sub > > Any suggestions are deeply appreciated! --~--~---------~--~----~------------~-------~--~----~ ------------------------------------------------------------------------------------- Some important links for excel users: 1. Excel and VBA Tutorials(Video and Text), Free add-ins downloads at http://www.excelitems.com 2. Excel tutorials at http://www.excel-macros.blogspot.com 3. Learn VBA Macros at http://www.vbamacros.blogspot.com 4. Excel Tips and Tricks at http://exceldailytip.blogspot.com To post to this group, send email to excel-macros@googlegroups.com If you find any spam message in the group, please send an email to: Ayush Jain @ jainayus...@gmail.com or Ashish Jain @ 26may.1...@gmail.com ------------------------------------------------------------------------------------- -~----------~----~----~----~------~----~------~--~---
