title: Import data from multiple pages of a website into excel?
body: <p>I want to auto fetch data from various web pages of a single website . The link is the same but just the last number changes like this :  <a href="http://reo-agents.net/agents/1" rel="nofollow">http://reo-agents.net/agents/1</a>  the link remains the same just the end number changes till 953157. As there are 953157 records total.</p>
  
  <p>I just want to import the name, email &amp; phone number and format it properly LIKE separate column for name ,email &amp; cell phone . I just saw few tutorials on it and did a macro recording but was unable to get a working solution. Here is the macro for it </p>
  
  <pre><code>Sub Macro1()
  '
  ' Macro1 Macro
  '
  
  '
      With ActiveSheet.QueryTables.Add(Connection:= _
          "URL;http://reo-agents.net/agents/1", Destination:=Range("$A$1"))
          .Name = "1"
          .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
      End With
      ActiveWindow.SmallScroll Down:=21
  End Sub
  </code></pre>
  
  <p>How do I automate this?</p>