Copying data form website

[gunny1979]

Hi,

I have finally managed to work out hoe to navigate to a website
entering into the websites listboxes!!!
Now all I need to do is to import the data I have navigated too, here
is the macro I have so far can someone help me please!!

Sub HiltonBracknell()

Dim ie As Object


Set objWSS = CreateObject("WScript.Shell")
Set ie = CreateObject("InternetExplorer.Application")

With ie
..Visible = True
..navigate
"https://www.hilton.co.uk/Reservation/300_CheckAvailability.jsp?hid=11001804"
Do While .busy: DoEvents: Loop
Do While .ReadyState <> 4: DoEvents: Loop
With .document.Forms("checkavailabilityform")
..Day1.Value = "12"
..monthYear1.Value = "200604"
..Day2.Value = "13"
..monthYear2.Value = "200604"
..submit

End With
End With


End Sub

 

[Don Guillett]

try this
Sub openurl() 'assign to a button
myurl =
"https://www.hilton.co.uk/Reservation/300_CheckAvailability.jsp?hid=11001804"
ActiveWorkbook.FollowHyperlink _
Address:=myurl
End Sub

 

[gunny1979]

Hi Don,

Thanks for this, but I dont undertand where I put this??
I hvae the macro to navigate through several webpages to get to the one

I want, I am after a code to paste the data from the end website to
excel!!

Kev