Yahoo Answers is shutting down on May 4th, 2021 (Eastern Time) and beginning April 20th, 2021 (Eastern Time) the Yahoo Answers website will be in read-only mode. There will be no changes to other Yahoo properties or services, or your Yahoo account. You can find more information about the Yahoo Answers shutdown and how to download your data on this help page.

VB- How to wait for a response from a website?

I have many CD's which I want to sell to a site and have written a VB routine to place them on.

It works but I am currently using application wait function in order to wait for the site to be ready for input. Is there a better way to replace the application wait function with a function that waits until the webpage is ready for input? (Will save me a lot of time)

Or a small routine that you can do the same thing.

Many thanks in advance

This is what I am currently using

Sub Macro1()

Const Hyper1 As String = "http://www.musicmagpie.co.uk/start-selling/basket-...

ThisWorkbook.FollowHyperlink Address:=Hyper1 ', NewWindow:=True

'Anoying wait Time

Application.Wait (Now + TimeValue("0:00:30"))

Dim Result1 As String

'Start Music Magpie

For n = 1 to 200

' This looks up the Bar Code in an excel sheet

Result1 = Application.WorksheetFunction.Vlookup(n, Range("Scan!a1:b500"),2,false)

Sendkeys""& Result1, True

Sendkeys"{Enter}", True

'Anoying wait Time:

Application.Wait (Now + TimeValue("0:00:15"))

Next

End sub

1 Answer

Relevance
  • 4 years ago

    meh

Still have questions? Get your answers by asking now.