title: Pulling Data from an embedded web page with VBA Excel
body: <p>I am trying to use VBA in Excel to access data in a webpage that is embedded in a webpage. I know how to do this if the table is on a non-embedded page. I also know how to navigate to this product's page using VBA. I cannot just navigate to the embedded page because there is a product id look up that converts a part number to an id and i don't have access to that database.</p>
  
  <p>Here is the link to the page: <a href="http://support.automation.siemens.com/WW/view/en/7224052" rel="nofollow">http://support.automation.siemens.com/WW/view/en/7224052</a></p>
  
  <p>I would have posed a picture of the element for clarity but I don't have 10 rep points...</p>
  
  <p>The table I need to get information from is the "Product Life Cycle" table.</p>
  
  <p>I can see the correct url in a property called src under the corresponding item if I save the page as an HTMLDocument in VBA using the following code:</p>
  
  <pre><code>For Each cell In Selection
      link = "http://support.automation.siemens.com/US/llisapi.dll?func=cslib.csinfo&amp;lang=en&amp;objid=" &amp; cell &amp; "&amp;caller=view"
      ie.navigate link
      Do
          DoEvents
      Loop Until ie.readyState = READYSTATE_COMPLETE
      Dim doc As HTMLDocument
  </code></pre>
  
  <p>Is there a way to index this table with VBA or will I have to contact the company and attempt to get access to the product ID so I can navigate to the page directly?</p>
  
  <p>Regarding my comment below, here is the code that a recorded macro yeilds:</p>
  
  <pre><code>ActiveCell.FormulaR1C1 = _
      "http://support.automation.siemens.com/WW/llisapi.dll?func=cslib.csinfo&amp;lang=en&amp;objid=6ES7194-1AA01-0XA0&amp;caller=view"
  Range("F9").Select
  With ActiveSheet.QueryTables.Add(Connection:= _
      "URL;http://support.automation.siemens.com/WW/llisapi.dll?func=ll&amp;objid=7224052&amp;nodeid0=10997566&amp;caller=view&amp;lang=en&amp;siteid=cseus&amp;aktprim=0&amp;objaction=csopen&amp;extranet=standard&amp;viewreg=WW" _
      , Destination:=Range("$F$9"))
      .FieldNames = True
      .RowNumbers = False
  </code></pre>
  
  <p>I know where to find the string: <code>URL;http://support.automation.siemens.com/WW/llisapi.dll?func=ll&amp;objid=7224052&amp;nodeid0=10997566&amp;caller=view&amp;lang=en&amp;siteid=cseus&amp;aktprim=0&amp;objaction=csopen&amp;extranet=standard&amp;viewreg=WW</code>, but I don't know how to save it to a variable.</p>