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