View Single Post
  #7   Report Post  
Posted to microsoft.public.excel.programming
Don Guillett Don Guillett is offline
external usenet poster
 
Posts: 10,124
Default Automatic Update links to web query


As I said, feel free to send your workbook to my address below so I can
understand what is going on.

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Alfredo_CPA" .(donotspam) wrote in message
...
My code now looks like:

Sub UpdateWeb()
application.goto Worksheets("NFL Link").Range("J30")
Selection.QueryTable.Refresh BackgroundQuery:=False
End Sub

Now I need a code to go back to the original sheet (which name will
change -
i.e. the name will not be always the same). In this way I can update the
links from a different sheet with just one click.

Thanks

--
I''''''''m not a looser, I keep trying€¦


"Don Guillett" wrote:

You must either select the sheet and THEN select the range or use
application.goto

application.goto Worksheets("NFL Link").Range("J30")
If desired, send your workbook to me and I'll have a look.

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Alfredo_CPA" .(donotspam) wrote in message
...
This code gives me an error message:
Worksheets("NFL Link").Range("J30").Select
I Can't figure out what is wrong...

--



"Excel.Instructor" wrote:

On Sep 16, 3:24 pm, Alfredo_CPA .(donotspam)
wrote:
1. Are there any way to Automatic Update links to web query.
Let say, I want to simulate clicking the refresh button every 60
seconds.

2. My web query is in sheet2 (showed as raw data). My usefull
(already
manipulated data) with links to sheet 2 is in sheet1. I noticed the
refresh
option is available just when I'm in sheet2. Are there any way to
refresh the
web query from sheet1

--
I'm not a looser, I keep trying€¦

Alfredo-

Here is a macro that will do the job. You'll need to replace the
"B15" cell reference with any cell on your Sheet2 that contains data
from the web query. Basically, if you can right click that cell and
the Refresh option appears, it's usable in this macro.

Sub UpdateWeb()
Worksheets("Sheet2").Range("B15").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
End Sub

Regards,
Excel.Instructor (Ed2go.com/Advanced Excel)