Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Excel Web Query
Hi
I am trying to write a web query in vba using the following code -------------------------------------- sheets("Sheet1").selec varconnection = "http://www.yahoo.com With ActiveSheet.QueryTables.Add(Connection:= "URL;" & varconnection, Destination:=Range( "A1") .FieldNames = Fals .RefreshStyle = xlInsertDeleteCell .RowNumbers = Fals .FillAdjacentFormulas = Fals .RefreshOnFileOpen = Fals .HasAutoFormat = Tru .BackgroundQuery = Tru .TablesOnlyFromHTML = Tru .Refresh BackgroundQuery:=Fals .SavePassword = Fals .SaveData = Tru End Wit sheets("Sheet2").selec varconnection = "http://www.yahoo.com With ActiveSheet.QueryTables.Add(Connection:= "URL;" & varconnection, Destination:=Range( "A1") .FieldNames = Fals .RefreshStyle = xlInsertDeleteCell .RowNumbers = Fals .FillAdjacentFormulas = Fals .RefreshOnFileOpen = Fals .HasAutoFormat = Tru .BackgroundQuery = Tru .TablesOnlyFromHTML = Tru .Refresh BackgroundQuery:=Fals .SavePassword = Fals .SaveData = Tru End Wit ------------------------------------------------------------ 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! |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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! |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Excel 2007 / MS Query - editing existing query to another sheet | Excel Discussion (Misc queries) | |||
Can I use MS Query in Excel like an Append Query in Access | Excel Discussion (Misc queries) | |||
Anyone Else Use Database Query to Query Another Sheet in the Same Excel Workbook? | Excel Discussion (Misc queries) | |||
Anyone Else Use Database Query to Query Another Sheet in the Same Excel Workbook? | Excel Discussion (Misc queries) | |||
How to use a Access Query that as a parameter into Excel database query | Excel Discussion (Misc queries) |