Excel Web Query
what are you trying to get from Yahoo!
if stock data please send email to
spreadsheethelp
at
iinet
dot
net
dot
au
and I might have something for you.....
bdm3 wrote:
Hi,
I am trying to write a web query in vba using the following code:
---------------------------------------
sheets("Sheet1").select
varconnection = "http://www.yahoo.com"
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;" & varconnection, Destination:=Range( _
"A1"))
.FieldNames = False
.RefreshStyle = xlInsertDeleteCells
.RowNumbers = False
.FillAdjacentFormulas = False
.RefreshOnFileOpen = False
.HasAutoFormat = True
.BackgroundQuery = True
.TablesOnlyFromHTML = True
.Refresh BackgroundQuery:=False
.SavePassword = False
.SaveData = True
End With
sheets("Sheet2").select
varconnection = "http://www.yahoo.com"
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;" & varconnection, Destination:=Range( _
"A1"))
.FieldNames = False
.RefreshStyle = xlInsertDeleteCells
.RowNumbers = False
.FillAdjacentFormulas = False
.RefreshOnFileOpen = False
.HasAutoFormat = True
.BackgroundQuery = True
.TablesOnlyFromHTML = True
.Refresh BackgroundQuery:=False
.SavePassword = False
.SaveData = True
End With
-------------------------------------------------------------
However, when the code gets to the .Refresh in the 2nd With block, it errors out with 1004 - Application-defined or object-defined error. What I can't figure out is this: This code works on my friend's laptop but not mine. This code works on my laptop when I connect to the internet via dial up, but not when I am on cable. I can't figure out why this would work in some of these situations but not others. Any help anyone can offer would be a life saver!
Thanks!
|