controlling IE using vba from within a worksheet

EDUCATED MONKEY

Board Regular
Joined
Jul 17, 2011
Messages
218
Win xp office xp 2003 IE 8<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:eek:ffice:eek:ffice" /><o:p></o:p>
<o:p></o:p>
Object to open IE by clicking a url on worksheet and then select all the copy then past data into column A<o:p></o:p>
<o:p></o:p>
<o:p></o:p>
At the moment I am doing this manually by click the hyperlink on the worksheet then clicking on the page that is displayed then typing control A to select it all then control C to copy it then move back to the worksheet click at button that pasts the selected content in to column A what happens next is reforming of the data in column A.

<o:p></o:p>
This is a very time consuming process and I wish to remain at the worksheet while the necessary processes happen in the background thus saving the time moving from worksheet to IE then back to worksheet<o:p></o:p>
<o:p></o:p>
As I am not sure what you would call this process I have skipped through the site for ideas as yet nothing the seems to be what I need <o:p></o:p>
<o:p></o:p>
Below is part of the button click event that I use to accomplish this manually I can supply the code for the sub that it calls if required <o:p></o:p>
<o:p></o:p>
<o:p></o:p>
Private Sub BtnClear_Click()<o:p></o:p>
Columns("A:A").Select<o:p></o:p>
Selection.ClearContents<o:p></o:p>
Worksheets("PROCESS_ISBN").Activate<o:p></o:p>
Worksheets("PROCESS_ISBN").Range("A1").Select<o:p></o:p>
Dim col As String<o:p></o:p>
<o:p></o:p>
<o:p></o:p>
ActiveSheet.PasteSpecial Format:="Text", LINK:=False, DisplayAsIcon:= _<o:p></o:p>
False<o:p></o:p>
Rows("1:8").Select<o:p></o:p>
Range("A8").Activate<o:p></o:p>
Selection.delete Shift:=xlUp<o:p></o:p>
Call SUPERCOPY<o:p></o:p>
Call MoveIsbnsV2<o:p></o:p>
<o:p></o:p>
Worksheets("ISBNs").Activate<o:p></o:p>
<o:p></o:p>
col = Worksheets("ISBNs").Range("GF1").Value<o:p></o:p>
<o:p></o:p>
<o:p></o:p>
If col <> "" Then<o:p></o:p>
Btntransfer.Enabled = True<o:p></o:p>
Btntransfer.Visible = True<o:p></o:p>
BtnClear.Enabled = False<o:p></o:p>
BtnClear.Visible = False<o:p></o:p>
<o:p></o:p>
End If<o:p></o:p>
Worksheets("PROCESS_ISBN").Activate<o:p></o:p>
<o:p></o:p>
End Sub<o:p></o:p>
 
Last edited:

Excel Facts

Wildcard in VLOOKUP
Use =VLOOKUP("Apple*" to find apple, Apple, or applesauce

Forum statistics

Threads
1,214,622
Messages
6,120,585
Members
448,972
Latest member
Shantanu2024

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top