ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   XML downlaod through visual basic - tag problem (https://www.excelbanter.com/excel-programming/355305-xml-downlaod-through-visual-basic-tag-problem.html)

Andrew Yates

XML downlaod through visual basic - tag problem
 
Hi there,

I am working my way through xml and am stuck with a small problem. I am

currently downloading all of the xml of a particular site but I only
want the tag of ("Openings").
Below is the code that I am using to download the data:


Sub stockp()
Dim oXMLDOMElement As New MSXML2.DOMDocument30
Dim nodelistOpenings As IXMLDOMNodeList
Dim TestWebService As New clsws_stocks


Set nodelistOpenings = oXMLDOMElement.getElementsByTagName("Openings")



Set nodelistOpenings = TestWebService.wsm_stocks("1234", "ASX")
Application.Goto Reference:="stockTarget"
ActiveCell.FormulaR1C1 = nodelistOpenings.Item(0).Text


End Sub


The above doesn't provide the filter that I wanted ie I only wanted
"Openings" but it provides all the data on the applicable page. Does
anybody have any ideas?


Regards,
Andrew


Chris Marlow

XML downlaod through visual basic - tag problem
 
Andrew,

I think you need to be more specific in your "Openings" - this should be a
well formed XPath query. I think you need to give the root detail (something
like "x/y/Openings"?).

Regards,

Chris.

--
Chris Marlow
MCSD.NET, Microsoft Office XP Master


"Andrew Yates" wrote:

Hi there,

I am working my way through xml and am stuck with a small problem. I am

currently downloading all of the xml of a particular site but I only
want the tag of ("Openings").
Below is the code that I am using to download the data:


Sub stockp()
Dim oXMLDOMElement As New MSXML2.DOMDocument30
Dim nodelistOpenings As IXMLDOMNodeList
Dim TestWebService As New clsws_stocks


Set nodelistOpenings = oXMLDOMElement.getElementsByTagName("Openings")



Set nodelistOpenings = TestWebService.wsm_stocks("1234", "ASX")
Application.Goto Reference:="stockTarget"
ActiveCell.FormulaR1C1 = nodelistOpenings.Item(0).Text


End Sub


The above doesn't provide the filter that I wanted ie I only wanted
"Openings" but it provides all the data on the applicable page. Does
anybody have any ideas?


Regards,
Andrew




All times are GMT +1. The time now is 12:24 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com