Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
VBA simple one..
All I want to do is change this VBA program to look at a
cell in the worksheet for the address instead of what it is doing now. Any ideas? Brian With Selection.QueryTable .Connection = _ "URL;http://football.fantasysports.yahoo.com/f2/47 95/2?week=2&stat1=S&stat2=W" .WebSelectionType = xlSpecifiedTables .WebFormatting = xlWebFormattingNone .WebTables = "19" .WebPreFormattedTextToColumns = True .WebConsecutiveDelimitersAsOne = True .WebSingleBlockTextImport = False .WebDisableDateRecognition = False .WebDisableRedirections = False .Refresh BackgroundQuery:=False End With End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
VBA simple one..
set rng = Worksheets("sheet3").Range("A1")
With Selection.QueryTable .Connection = _ "URL;" & rng.Value & "?week=2&stat1=S&stat2=W" .WebSelectionType = xlSpecifiedTables .WebFormatting = xlWebFormattingNone .WebTables = "19" .WebPreFormattedTextToColumns = True .WebConsecutiveDelimitersAsOne = True .WebSingleBlockTextImport = False .WebDisableDateRecognition = False .WebDisableRedirections = False .Refresh BackgroundQuery:=False End With End Sub -- Regards, Tom Ogilvy "Brian" wrote in message ... All I want to do is change this VBA program to look at a cell in the worksheet for the address instead of what it is doing now. Any ideas? Brian With Selection.QueryTable .Connection = _ "URL;http://football.fantasysports.yahoo.com/f2/47 95/2?week=2&stat1=S&stat2=W" .WebSelectionType = xlSpecifiedTables .WebFormatting = xlWebFormattingNone .WebTables = "19" .WebPreFormattedTextToColumns = True .WebConsecutiveDelimitersAsOne = True .WebSingleBlockTextImport = False .WebDisableDateRecognition = False .WebDisableRedirections = False .Refresh BackgroundQuery:=False End With End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
VBA simple one..
Tom,
It is giving me an 'object required' error. hmm.. any more ideas? I need to change "URL;http://football.fantasysports.yahoo.com/f2/47 95/2?week=2&stat1=S&stat2=W" to "URL;http://football.fantasysports.yahoo.com/f2/47 95/[VARIABLE IN WORKSHEET]?week=[VARIABLE IN WORKSHEET] &stat1=S&stat2=W" -----Original Message----- set rng = Worksheets("sheet3").Range("A1") With Selection.QueryTable .Connection = _ "URL;" & rng.Value & "?week=2&stat1=S&stat2=W" .WebSelectionType = xlSpecifiedTables .WebFormatting = xlWebFormattingNone .WebTables = "19" .WebPreFormattedTextToColumns = True .WebConsecutiveDelimitersAsOne = True .WebSingleBlockTextImport = False .WebDisableDateRecognition = False .WebDisableRedirections = False .Refresh BackgroundQuery:=False End With End Sub -- Regards, Tom Ogilvy "Brian" wrote in message ... All I want to do is change this VBA program to look at a cell in the worksheet for the address instead of what it is doing now. Any ideas? Brian With Selection.QueryTable .Connection = _ "URL;http://football.fantasysports.yahoo.com/f2 /47 95/2?week=2&stat1=S&stat2=W" .WebSelectionType = xlSpecifiedTables .WebFormatting = xlWebFormattingNone .WebTables = "19" .WebPreFormattedTextToColumns = True .WebConsecutiveDelimitersAsOne = True .WebSingleBlockTextImport = False .WebDisableDateRecognition = False .WebDisableRedirections = False .Refresh BackgroundQuery:=False End With End Sub . |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
VBA simple one..
Is this what you mean?
set rng = Worksheets("sheet3").Range("A1") With Selection.QueryTable .Connection = _ "URL;http://football.fantasysports.yahoo.com/f2/4795/" & rng.Value & "?week=" & rng.Value .WebSelectionType = xlSpecifiedTables .WebFormatting = xlWebFormattingNone .WebTables = "19" .WebPreFormattedTextToColumns = True .WebConsecutiveDelimitersAsOne = True .WebSingleBlockTextImport = False .WebDisableDateRecognition = False .WebDisableRedirections = False .Refresh BackgroundQuery:=False End With End Sub -- HTH RP (remove nothere from the email address if mailing direct) wrote in message ... Tom, It is giving me an 'object required' error. hmm.. any more ideas? I need to change "URL;http://football.fantasysports.yahoo.com/f2/47 95/2?week=2&stat1=S&stat2=W" to "URL;http://football.fantasysports.yahoo.com/f2/47 95/[VARIABLE IN WORKSHEET]?week=[VARIABLE IN WORKSHEET] &stat1=S&stat2=W" -----Original Message----- set rng = Worksheets("sheet3").Range("A1") With Selection.QueryTable .Connection = _ "URL;" & rng.Value & "?week=2&stat1=S&stat2=W" .WebSelectionType = xlSpecifiedTables .WebFormatting = xlWebFormattingNone .WebTables = "19" .WebPreFormattedTextToColumns = True .WebConsecutiveDelimitersAsOne = True .WebSingleBlockTextImport = False .WebDisableDateRecognition = False .WebDisableRedirections = False .Refresh BackgroundQuery:=False End With End Sub -- Regards, Tom Ogilvy "Brian" wrote in message ... All I want to do is change this VBA program to look at a cell in the worksheet for the address instead of what it is doing now. Any ideas? Brian With Selection.QueryTable .Connection = _ "URL;http://football.fantasysports.yahoo.com/f2 /47 95/2?week=2&stat1=S&stat2=W" .WebSelectionType = xlSpecifiedTables .WebFormatting = xlWebFormattingNone .WebTables = "19" .WebPreFormattedTextToColumns = True .WebConsecutiveDelimitersAsOne = True .WebSingleBlockTextImport = False .WebDisableDateRecognition = False .WebDisableRedirections = False .Refresh BackgroundQuery:=False End With End Sub . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
IF formula-simple question; simple operator | Excel Discussion (Misc queries) | |||
Simple problem, simple formula, no FUNCTION ! | Excel Worksheet Functions | |||
Simple Simple Excel usage question | Excel Discussion (Misc queries) | |||
Make it more simple or intuitive to do simple things | Charts and Charting in Excel | |||
simple question, hopefully a simple answer! | Excel Programming |