Import data from website into excel using VBA

kipulbiu

New Member
Joined
Aug 14, 2016
Messages
37
Hello,

I was wondering if anyone could help

For each horse meeting ( Réunion 1, 2, 3 etc. ) I would like a VBA macro to be able to import into exce all the following information from this free website.

http://www.geny.com/reunions-courses-pmu?date=2018-08-29

Column A: Date
Column B: race time ( Hours )
Column C: Meeting ( Reunion R1, R2,etc.)
Column D: Horse course name ( Deauville, Vincennes etc.)
Column E: Race number ( 1ere, 2eme etc..)
Column F: Horse 1 from ( Le pronostic located under the runners list table called: Partants )
Column G: Horse 2 from ( Le pronostic located under the runners list table called: Partants )
Column H: Horse 3 from ( Le pronostic located under the runners list table called: Partants )
Column I: Horse 4 from ( Le pronostic located under the runners list table called: Partants )
Column J: Horse 5 from ( Le pronostic located under the runners list table called: Partants )


The 2 following links might be of use:

http://www.geny.com/reunions-courses-pmu/_d2018-08-29?#reunion1
http://www.geny.com/partants-pmu/2018-08-29-deauville-pmu-prix-du-bocage-normand_c998685

Example for the first 3 races in the meeting one today:

[TABLE="width: 801"]
<colgroup><col><col><col><col><col><col span="7"></colgroup><tbody>[TR]
[TD]Date[/TD]
[TD]Hours[/TD]
[TD]Reu[/TD]
[TD]Race course[/TD]
[TD]Race NB[/TD]
[TD]H1[/TD]
[TD]H2[/TD]
[TD]H3[/TD]
[TD]H4[/TD]
[TD]H5[/TD]
[TD]B1[/TD]
[TD]B2[/TD]
[/TR]
[TR]
[TD]29/08/2018[/TD]
[TD]13:47[/TD]
[TD]R1[/TD]
[TD]Deauville [/TD]
[TD]1ere[/TD]
[TD]1[/TD]
[TD]16[/TD]
[TD]14[/TD]
[TD]6[/TD]
[TD]4[/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD]29/08/2018[/TD]
[TD]14:20[/TD]
[TD]R1[/TD]
[TD]Deauville [/TD]
[TD]2me[/TD]
[TD]8[/TD]
[TD]9[/TD]
[TD]6[/TD]
[TD]3[/TD]
[TD]1[/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
</tbody>[/TABLE]

I hope the above is clear and that you are in a position to help

Thank you in advance

Bruno
 

Excel Facts

How to find 2nd largest value in a column?
MAX finds the largest value. =LARGE(A:A,2) will find the second largest. =SMALL(A:A,3) will find the third smallest

Forum statistics

Threads
1,224,746
Messages
6,180,704
Members
452,994
Latest member
Janick

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