Hi,
I have this web query.
Is there a way I can replace the part of the URL that says "E40DPL" to a cell that contains "E40DPL"?![]()
Sub engines() ' ' engines Macro ' ' With ActiveSheet.QueryTables.Add(Connection:= _ "URL;http://www.duskyonline.com/dsc/engine_details.php?EngineName=E40DPL", _ Destination:=Range("$A$1")) .Name = "engine_details.php?EngineName=E40DPL" .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 = "9" .WebPreFormattedTextToColumns = True .WebConsecutiveDelimitersAsOne = True .WebSingleBlockTextImport = False .WebDisableDateRecognition = False .WebDisableRedirections = False .Refresh BackgroundQuery:=False End With End Sub
So the URL would read somthing like this:
http://www.duskyonline.com/dsc/engin...hp?EngineName=["C1"]
I know that's not the correct way to write it, but that's what I'm trying to accomplish.
Thanks for any help.











LinkBack URL
About LinkBacks
Register To Reply
Bookmarks