Copy webpage hyperlinks

[platesigns]

Copy webpage hyperlinks

Hi

I want to copy the hyperlinks on these pages and insert in excel - is there perhaps a macro that can do this

https://registers.cidb.org.za/Public...=1100001001000
https://registers.cidb.org.za/Public...=1100001001000
https://registers.cidb.org.za/Public...=1100001001000
https://registers.cidb.org.za/Public...=1100001001000

thanks

imtiaz

[Marc L]

Hi !

Maybe its possible if we should know what is exactly needed ‼

So attach a sample result worksheet from a webpage …

[platesigns]

hi

sample file attached with page 1 and page 2 results - I selected the hyperlinks and copied but if that cannot be done then maybe we can copy the entire page and paste in excel and thereafter delete the unnecessary parts

thanks

[Marc L]

Do you need to keep links in column CRS or just text only ?

[platesigns]

I need to keep the links in column CRS only - other columns and other info not required

[Marc L]

Try in a new workbook, must paste code to a worksheet module :

Please Login or Register  to view this content.

As the website is pretty slow, procedure needs around 30s to load 40 links …

You just have to moderate the data according to your needs …

Enjoy it and don't forget to click on bottom left button Add Reputation of this post !

[Leith Ross]

Hello platesigns,

Here is another version. It uses 2 worksheets. "Sheet2" holds all the URLs you want to return CRS lnks from. "Sheet1" displays the CRS numbers and each one is linked to its contractor page.

The worksheets and the ranges used can be easily changed if needed. The end of range for the URLs is automatically found . You only need to provide the starting cell address. Likewise, the CRS numbers are added after the starting cell for the destination address.

A blank row is inserted after the CRS numbers are copied to the worksheet. Not sure if this a feature you need. if not, it is easy to remove.

There is a button on "Sheet2" to run the macro. Have a look at the attached workbook.


Here is the code for the macro. It is commented to help you understand the code better.

Please Login or Register  to view this content.

[platesigns]

Hi

I am getting an error at line : Me.Paste [B1] - invalid key Me

also how do I do it for multiple pages i.e. page 1 to say page 5

[Marc L]

'Cause you didn't apply :

Try in a new workbook, must paste code to a worksheet module :

You can also in code place cursor on Me statement and hit F1 key and read …

And as you should read in the code, 40 lines are directly requested !
So if you need more, increase PageSize or PageNo …

[platesigns]

Hi

it works perfectly except that it is limited to 150 lines per page by the webpage itself
so there has to be a FOR loop for page numbers

[Marc L]

Hi,

yes you can increase parameter PageNo !

[platesigns]

u can do each page number on its own but can u do them in one go i.e. page 1,2,3 and 4 one after the other automatically

[platesigns]

hi

what I don't follow is how are setting the code to 4 pages and 10 results per page ?