Find XML node with vba userform

zodiaceuk

Board Regular
Joined
Nov 20, 2011
Messages
103
Hi Guys,

I’m hoping someone can help me with this.

I’m trying to find a xml node,
I can find the node, however, I need to look for the node from what’s entered in a userform textbox.

Here is the code I’m using:
Code:
Private sub commandbutton1_click()
Dim xmlObj As Object
Dim singlenode As Object
Dim test1 As String

Set xmlObj = CreateObject(“msxlm2.domdocument”)
XmlObj.async = False
XmlObj.valdateOnParse = False
XmlObj.Load (“c:/myfolder/test.xml”)

Test1 = me.txtbox1.value

Set singlenode = XmlObj.SelectSingleNode(“//ContactInfo[EmpID=Test1”]

Debug.print singlenode.xml

End sub
If I change test1 to an actual employee I’d, it works.
Is there anyway to get this to work with the userform box please? Have I missed something?
 

Some videos you may like

Excel Facts

Save Often
If you start asking yourself if now is a good time to save your Excel workbook, the answer is Yes

Domenic

MrExcel MVP
Joined
Mar 10, 2004
Messages
19,204
Try...

Code:
Set singlenode = XmlObj.SelectSingleNode("//ContactInfo[EmpID=" & Test1 & "]")
Hope this helps!
 

Watch MrExcel Video

Forum statistics

Threads
1,101,894
Messages
5,483,550
Members
407,397
Latest member
HerbA

This Week's Hot Topics

  • Finding issue in If elseif else with For each Loop
    Finding issue in If elseif else with For each Loop I have tried this below code but i'm getting in Y column filled with W005. Colud you please...
  • MsgBox Error
    Hi Guys, I have the below error show up when i try and run my macro in File1 but works fine if i copy and paste the same code into file2. [ATTACH...
  • CELL FORMAT - IF CONDITION
    My Cell Format is [B]""0.00" Cr". [/B]But in the cell, it is showing 123.00 for editing. (123 is entry figure). (Data imported from other...
  • Show numbers nearly the same
    Is this possible. I have a number that can change very time eg 0.00001234 Then I have a lot of numbers 0.0000001, 0.0000002, 0.00000004...
  • Please i need your help to create formula
    I need a formula in cell B8 to do this >>if b1=1 then multiply ( cell b8) by 10% ,if b1=2 multiply by 20%,if=3 multiply by 30%. Thank you in...
  • Got error while adding column and filter
    Got error while adding column and filter In column Z has some like "Success" and "Error". I want to add column in AA if the Z cell value is...
Top