Paste string on a cell to New Web Query URL
Hi! I want to be able to copy an URL address to the New Web Query address bar, by editing this macro: --------------------------------- With ActiveSheet.QueryTables.Add(Connection:= _ _-\"URL;http://finance.yahoo.com/q?s=SSL\"-_, Destination:=Range("H15")) .Name = "q?s=SSL_7" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = True .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .WebSelectionType = xlSpecifiedTables .WebFormatting = xlWebFormattingNone .WebTables = "15" .WebPreFormattedTextToColumns = True .WebConsecutiveDelimitersAsOne = True .WebSingleBlockTextImport = False .WebDisableDateRecognition = False .WebDisableRedirections = False .Refresh BackgroundQuery:=False End With -------------- I want to be able to change the URL according to a string on a cell... -- vovlov ------------------------------------------------------------------------ vovlov's Profile: http://www.excelforum.com/member.php...o&userid=34596 View this thread: http://www.excelforum.com/showthread...hreadid=543901 |
All times are GMT +1. The time now is 01:02 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com