title: Transferring webpage data to an Excel Worksheet using VBA
body: <p>This is my first post. I am new at VBA but I'm pretty familiar with VB6. I wrote  some code that takes the text from nasdaq and pastes it into a worksheet.  It finally works. There is a lot of extraneous data scattered around above and below The Annual Income Statement. I would like to parse out and place the important data in a place where I can automate analysis. I'm thinking that I could search the cells until I find: Annual Income Statement and extract to a different sheet. Any suggestions would be very appreciated. Here's what I've got:</p>
  
  <pre><code>Sub TransferWebData()
  Dim IE As Object
  Set IE = CreateObject("InternetExplorer.Application")
  With IE
      .Visible = True
      .Navigate "http://www.nasdaq.com/symbol/gd/financials" 
      Do Until .ReadyState = 4: DoEvents: Loop
      IE.ExecWB 17, 0 'SelectAll
      IE.ExecWB 12, 2 'Copy selection
  
      Sheets("GD").Range("A1").Select
      Sheets("GD").PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False, NoHTMLFormatting:=True
      IE.Quit
  End With
  End Sub
  </code></pre>