View Single Post
  #4   Report Post  
Posted to microsoft.public.excel.programming
joel joel is offline
external usenet poster
 
Posts: 9,101
Default macro code for XML Fill

I went back to your posting on Jan 7th. what was the results of my changes?
Did you add the references to the VBA code? did it give you any results?
Did you look at this web page (listing 9)
http://msdn2.microsoft.com/en-us/lib...fice.11).aspx?

let me know what you are havving problems with and I will help. The actual
webbpage of the XML text code (use notepad to open XML page and post results).

I added activesheet in front of combox1. Also added library references as
stated below

On the Project menu, click References. Select the type libraries for
Microsoft ActiveX Data Object 2.5 (or later) and Microsoft XML 3.0.

Sub test()

Dim articleDoc As New DOMDocument
Dim sections As IXMLDOMNodeList
Dim sectionNode As IXMLDOMNode
Dim s As String
articleDoc.async = False
articleDoc.Load ("C:\temp\test\test.xml")
'Me.Caption = articleDoc.selectSingleNode("//student/name").Text

Set sections = articleDoc.selectNodes("//student")
ActiveSheet.ComboBox1.Clear

For Each sectionNode In sections
ActiveSheet.ComboBox1.AddItem
(sectionNode.selectSingleNode("name").Text)
Next
ActiveSheet.ComboBox1.ListIndex = 0

End Sub



"born2achieve" wrote:

Dear joel,
pls i am need of your code.please help me to do this