software

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 ObjectSet objWSS = CreateObject(quot;WScript.Shellquot;)
Set ie = CreateObject(quot;InternetExplorer.Applicationquot;)

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

End With
End WithEnd Sub--
gunny1979
------------------------------------------------------------------------
gunny1979's Profile: www.excelforum.com/member.php...oamp;userid=32932
View this thread: www.excelforum.com/showthread...hreadid=529161try this
Sub openurl() 'assign to a button
myurl =
quot;https://www.hilton.co.uk/Reservation/300_CheckAvailability.jsp?hid=11001804quot;
ActiveWorkbook.FollowHyperlink _
Address:=myurl
End Sub--
Don Guillett
SalesAid Software

quot;gunny1979quot; gt; wrote
in message ...
gt;
gt; Hi,
gt;
gt; I have finally managed to work out hoe to navigate to a website
gt; entering into the websites listboxes!!!
gt; Now all I need to do is to import the data I have navigated too, here
gt; is the macro I have so far can someone help me please!!
gt;
gt; Sub HiltonBracknell()
gt;
gt; Dim ie As Object
gt;
gt;
gt; Set objWSS = CreateObject(quot;WScript.Shellquot;)
gt; Set ie = CreateObject(quot;InternetExplorer.Applicationquot;)
gt;
gt; With ie
gt; Visible = True
gt; navigate
gt; quot;https://www.hilton.co.uk/Reservation/300_CheckAvailability.jsp?hid=11001804quot;
gt; Do While .busy: DoEvents: Loop
gt; Do While .ReadyState lt;gt; 4: DoEvents: Loop
gt; With .document.Forms(quot;checkavailabilityformquot;)
gt; Day1.Value = quot;12quot;
gt; monthYear1.Value = quot;200604quot;
gt; Day2.Value = quot;13quot;
gt; monthYear2.Value = quot;200604quot;
gt; submit
gt;
gt; End With
gt; End With
gt;
gt;
gt; End Sub
gt;
gt;
gt; --
gt; gunny1979
gt; ------------------------------------------------------------------------
gt; gunny1979's Profile:
gt; www.excelforum.com/member.php...oamp;userid=32932
gt; View this thread: www.excelforum.com/showthread...hreadid=529161
gt;

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--
gunny1979
------------------------------------------------------------------------
gunny1979's Profile: www.excelforum.com/member.php...oamp;userid=32932
View this thread: www.excelforum.com/showthread...hreadid=529161