• Does anyone have a macro that will search and scrape data from multiple links, provided the links are somewhat similar? ie. ES industries products (This forum won't allow me to post the link examples yet!) The only variation in the url string is underscores/numbers. It would be best if this could be done without references having to be set up! I have some code with a different concept (page numbers), but it doesn't even begin to help me. . . Thanks everyone!


    Sub Macro1()
    '
    ' Macro1 Macro
    '


    '
    Sheets("Sheet1").Select
    Range("A1").Select


    Dim i As Integer, myurl As String, shorturl As String


    i = 1
    Do While i < 4


    myurl = "URL;insertbaseurlhere" & i & "/whatman"
    shorturl = "whatman"



    With ActiveSheet.QueryTables.Add(Connection:=myurl, Destination:=Range("$A$1"))
    .Name = shorturl
    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .BackgroundQuery = True
    .RefreshStyle = xlInsertDeleteCells
    .SavePassword = False
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .WebSelectionType = xlEntirePage
    .WebFormatting = xlWebFormattingNone
    .WebPreFormattedTextToColumns = True
    .WebConsecutiveDelimitersAsOne = True
    .WebSingleBlockTextImport = False
    .WebDisableDateRecognition = False
    .WebDisableRedirections = False
    .Refresh BackgroundQuery:=False
    .WebDisableDateRecognition = False
    .WebDisableRedirections = False
    .Refresh BackgroundQuery:=False
    End With