EDUCATED MONKEY
Board Regular
- Joined
- Jul 17, 2011
- Messages
- 218
Sorry that I have opened another thread I could not find how to append the original one, maybe some one could tell me how to append the original for next time also is the a way to say that you have received an answer that works and you no longer need help with that item?<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com
ffice
ffice" /><o
></o
>
<o
></o
>
XP Professional office XP 2003 IE 8 <o
></o
>
<o
></o
>
<o
></o
>
Further to my request made earlier, “controlling IE using vba from within a worksheet”<o
></o
>
<o
></o
>
having done some more research I have managed to cover the first part of opening the Internet Explorer from the sheet, <o
></o
>
can some one tell me how I go about selecting ALL and Copy the open page and closing the page after use?, during the experiment I found that I had opened most of the pages relating to the urls in the list as it proceeded down the list, I had thought as I open a new page the old one closed but not so, therefore the action required is open get content and close move down the list load next page <o
></o
>
<o
></o
>
So the parts I need help or pointers on are these<o
></o
>
<o
></o
>
1 Selecting the open page, by mimicking the control A action from the keyboard <o
></o
>
<o
></o
>
2 Once the open page has been selected I need to mimicking the control C action from the keyboard <o
></o
>
<o
></o
>
3 Once the contents of the selected page have been dropped into column A the IE window needs to be closed, mimicking click the close cross top right of open page <o
></o
>
![Eek! :o :o](https://cdn.jsdelivr.net/joypixels/assets/8.0/png/unicode/64/1f631.png)
![Eek! :o :o](https://cdn.jsdelivr.net/joypixels/assets/8.0/png/unicode/64/1f631.png)
![Stick out tongue :p :p](https://cdn.jsdelivr.net/joypixels/assets/8.0/png/unicode/64/1f61b.png)
![Stick out tongue :p :p](https://cdn.jsdelivr.net/joypixels/assets/8.0/png/unicode/64/1f61b.png)
<o
![Stick out tongue :p :p](https://cdn.jsdelivr.net/joypixels/assets/8.0/png/unicode/64/1f61b.png)
![Stick out tongue :p :p](https://cdn.jsdelivr.net/joypixels/assets/8.0/png/unicode/64/1f61b.png)
XP Professional office XP 2003 IE 8 <o
![Stick out tongue :p :p](https://cdn.jsdelivr.net/joypixels/assets/8.0/png/unicode/64/1f61b.png)
![Stick out tongue :p :p](https://cdn.jsdelivr.net/joypixels/assets/8.0/png/unicode/64/1f61b.png)
<o
![Stick out tongue :p :p](https://cdn.jsdelivr.net/joypixels/assets/8.0/png/unicode/64/1f61b.png)
![Stick out tongue :p :p](https://cdn.jsdelivr.net/joypixels/assets/8.0/png/unicode/64/1f61b.png)
<o
![Stick out tongue :p :p](https://cdn.jsdelivr.net/joypixels/assets/8.0/png/unicode/64/1f61b.png)
![Stick out tongue :p :p](https://cdn.jsdelivr.net/joypixels/assets/8.0/png/unicode/64/1f61b.png)
Further to my request made earlier, “controlling IE using vba from within a worksheet”<o
![Stick out tongue :p :p](https://cdn.jsdelivr.net/joypixels/assets/8.0/png/unicode/64/1f61b.png)
![Stick out tongue :p :p](https://cdn.jsdelivr.net/joypixels/assets/8.0/png/unicode/64/1f61b.png)
<o
![Stick out tongue :p :p](https://cdn.jsdelivr.net/joypixels/assets/8.0/png/unicode/64/1f61b.png)
![Stick out tongue :p :p](https://cdn.jsdelivr.net/joypixels/assets/8.0/png/unicode/64/1f61b.png)
having done some more research I have managed to cover the first part of opening the Internet Explorer from the sheet, <o
![Stick out tongue :p :p](https://cdn.jsdelivr.net/joypixels/assets/8.0/png/unicode/64/1f61b.png)
![Stick out tongue :p :p](https://cdn.jsdelivr.net/joypixels/assets/8.0/png/unicode/64/1f61b.png)
can some one tell me how I go about selecting ALL and Copy the open page and closing the page after use?, during the experiment I found that I had opened most of the pages relating to the urls in the list as it proceeded down the list, I had thought as I open a new page the old one closed but not so, therefore the action required is open get content and close move down the list load next page <o
![Stick out tongue :p :p](https://cdn.jsdelivr.net/joypixels/assets/8.0/png/unicode/64/1f61b.png)
![Stick out tongue :p :p](https://cdn.jsdelivr.net/joypixels/assets/8.0/png/unicode/64/1f61b.png)
<o
![Stick out tongue :p :p](https://cdn.jsdelivr.net/joypixels/assets/8.0/png/unicode/64/1f61b.png)
![Stick out tongue :p :p](https://cdn.jsdelivr.net/joypixels/assets/8.0/png/unicode/64/1f61b.png)
So the parts I need help or pointers on are these<o
![Stick out tongue :p :p](https://cdn.jsdelivr.net/joypixels/assets/8.0/png/unicode/64/1f61b.png)
![Stick out tongue :p :p](https://cdn.jsdelivr.net/joypixels/assets/8.0/png/unicode/64/1f61b.png)
<o
![Stick out tongue :p :p](https://cdn.jsdelivr.net/joypixels/assets/8.0/png/unicode/64/1f61b.png)
![Stick out tongue :p :p](https://cdn.jsdelivr.net/joypixels/assets/8.0/png/unicode/64/1f61b.png)
1 Selecting the open page, by mimicking the control A action from the keyboard <o
![Stick out tongue :p :p](https://cdn.jsdelivr.net/joypixels/assets/8.0/png/unicode/64/1f61b.png)
![Stick out tongue :p :p](https://cdn.jsdelivr.net/joypixels/assets/8.0/png/unicode/64/1f61b.png)
<o
![Stick out tongue :p :p](https://cdn.jsdelivr.net/joypixels/assets/8.0/png/unicode/64/1f61b.png)
![Stick out tongue :p :p](https://cdn.jsdelivr.net/joypixels/assets/8.0/png/unicode/64/1f61b.png)
2 Once the open page has been selected I need to mimicking the control C action from the keyboard <o
![Stick out tongue :p :p](https://cdn.jsdelivr.net/joypixels/assets/8.0/png/unicode/64/1f61b.png)
![Stick out tongue :p :p](https://cdn.jsdelivr.net/joypixels/assets/8.0/png/unicode/64/1f61b.png)
<o
![Stick out tongue :p :p](https://cdn.jsdelivr.net/joypixels/assets/8.0/png/unicode/64/1f61b.png)
![Stick out tongue :p :p](https://cdn.jsdelivr.net/joypixels/assets/8.0/png/unicode/64/1f61b.png)
3 Once the contents of the selected page have been dropped into column A the IE window needs to be closed, mimicking click the close cross top right of open page <o
![Stick out tongue :p :p](https://cdn.jsdelivr.net/joypixels/assets/8.0/png/unicode/64/1f61b.png)
![Stick out tongue :p :p](https://cdn.jsdelivr.net/joypixels/assets/8.0/png/unicode/64/1f61b.png)
Code:
Sub genurl()
'
' genurl Macro
' Macro recorded 06/08/2011 by Peter Hayward
'
' Keyboard Shortcut: Ctrl+f
'
Dim n As Integer
Dim m As Long
Dim q As Integer
Dim aurl As String
Dim EXP
Sheets("AURL").Select
q = Worksheets("AURL").Range("D1").Value ' get how many urls their are left
n = 94 'total number of urls on sheet
m = n - q + 1 ' prepair to move down the column
Worksheets("AURL").Cells(m, 1).Activate
aurl = ActiveCell.Value
q = q - 1 ' move down the list
Worksheets("AURL").Range("D1").Value = q ' store position in list
Set EXP = CreateObject("InternetExplorer.application")
EXP.Visible = True
aurl = Worksheets("AURL").Range("I1").Value ' get the current url
EXP.Navigate (aurl) 'cell I1 is where the url is construction by
' CONCATENATE the body of the url and the vairable part from the list
End Sub
Last edited: