excel vba - How to parse an XML file and write in data then save it -


i working on following:

  1. an excel sheet cells end user asked enter required values; done
  2. code read values entered in these cells end users;
  3. load xml file; done
  4. parse , write values retrieved excel cells xml file (following rule) save it; stuck here!
  5. start application (another script use xml file values later).

i simplify as possible:

the excel file following example...

   cella     cellb 1  t1        v1 2  t2        v2 3  t3        v3 4  t4        v4 5  t5        v5 6  t6        v6

"t" refers title. end user enter values v1, v2, ... v6

the xml file structured this:

<?xml version="1.0" encoding="utf-8" standalone="no"?> <environment>     <variable>         <name></name>         <caption>t1</caption>         <type>text</type>         <value>v1</value>         <description></description>     </variable>         <variable>         <name></name>         <caption>t2</caption>         <type>text</type>         <value>v2</value>         <description></description>     </variable>         <variable>         <name></name>         <caption>t3</caption>         <type>text</type>         <value>v3</value>         <description></description>     </variable> <variable>         <name></name>         <caption>t4</caption>         <type>text</type>         <value>v4</value>         <description></description>     </variable> <variable>         <name></name>         <caption>t5</caption>         <type>text</type>         <value>v5</value>         <description></description>     </variable>     </variable> <variable>         <name></name>         <caption>t6</caption>         <type>text</type>         <value>v6</value>         <description></description>     </variable> </environment>

as can see need parse file , enter values (v1....v6) reference each one.

below vba code until line stuck:

'option explicit private sub runtest_click()  dim envfrmwrkpath string dim applicationname string dim testiterationname, serverip, login, password, traderlitelogpath  string dim objfso, app, eval object dim i, msgarea`enter code here`  dim envvarxml msxml2.domdocument60  ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''these added when trying find way parse xml --- can change them dim variable msxml2.ixmldomnode 'dim oattributes msxml.ixmldomnamednodemap dim oroot msxml2.ixmldomnode dim objuielement msxml2.ixmldomelement dim ochildren msxml2.ixmldomnodelist dim ochild msxml2.ixmldomnode dim ovariable msxml2.ixmldomnode dim oattributes msxml2.ixmldomnamednodemap 'dim objuielement object dim field object ''''''''''''''''''''''''''''''''''''''''''''''''''''   'load env variables excel  applicationname = activesheet.range("e4").value envfrmwrkpath = activesheet.range("e6").value testiterationname = activesheet.range("e8").value serverip = activesheet.range("e10").value login = activesheet.range("e12").value password = activesheet.range("e14").value traderlitelogpath = activesheet.range("e16").value  'load xml file set objparser = createobject("microsoft.xmldom") set envvarxml = new msxml2.domdocument60   ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''test_load '''''''''''''''----------------------------------------------------- 'set envvarxml = createobject("microsoft.xmldom") 'set envvarxml = new msxml2.domdocument60  'if envvarxml.load(envfrmwrkpath & "\environment\envvar.xml")   ' debug   'msgbox "file loaded correctly", vbokonly   ' debug  'else  ' debug  'msgbox "file not loaded", vbcrtical  ' debug   'end if '''''''''''''''----------------------------------------------------- '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''  'load xml file envvarxml.load (envfrmwrkpath & "\environment\envvar.xml")   'parse file , change values  '''the following may have no sense experiment 1 of  set oroot = envvarxml.documentelement  each ovariable in oroot.childnodes    set oattributes = ovariable.attributes    set ochildren = ovariable.childnodes     '''deleted many lines found no way '''''''         set envvarxml = nothing  next     envvarxml.save (envfrmwrkpath & "\environment\envvar.xml")

here code can started

dim doc domdocument set doc = new domdocument doc.load "c:\x.xml" dim variables ixmldomnodelist dim variable ixmldomnode set variables = doc.selectnodes("/environment/variable") each variable in variables     debug.print variable.selectnodes("caption").item(0).text     debug.print variable.selectnodes("type").item(0).text next

to make work, select tools - references , select microsoft xml v6.0. there many ways solve this, xpath (the language used in selectnodes) know in cases this.


-

Comments

Post a Comment

Popular posts from this blog

html - Sizing a high-res image (~8MB) to display entirely in a small div (circular, diameter 100px) -

first of all, thank being patient know simple question more couple of weeks' experience figure out. i've seen folks persevere , helpful on here , hope you're willing me. here fiddle: http://jsfiddle.net/65uzf/ here 1 of places searched answers on here: ( vertically center image thumbnails fix-sized div ) tried solutions on there , didn't work out me. i've searched ~4 or 5 others, , been unsuccessful those, too. what want take large image (what linked background-image #ysypic , #tabpic divs) , display thumbnail version of image in confines of divs have set it. is, using background properties have laid out in css, portion of image displays inside of circular divs. without these properties, display defaults smaller section of image [presumably pi*(50^2) area in top left] terrible resolution. i not care if entire image doesn't display inside of circles (it won't, given difference in shape), , overflow not being displayed fine. want able see figu
Read more

java - IntelliJ - No such instance method -

using intellij's 12 ultimate, i'm running following code in debugger: java import play.api.libs.json.jsvalue; public class foo { ... public jsvalue tojson() { ... } public class fooexample { ... foo foo = new foo(); system.out.println("...); //<-- breakpoint at breakpoint, right-clicked source code , picked "evaluate expression," typing in: foo.tojson() . but following error showed up: no such instance method: play.api.libs.json.jsvalue$class.com.foo.foo.tojson () am doing wrong? foo#tojson calls scala code, if matters. edit had breakpoint after instantiation of foo. downvoted it, deserved it. edit my answer no longer valid after op modified question (i.e. moved breakpoint actual is).. a breakpoint hit before line executed. in case foo has not yet been declared or instantiated (i.e. foo constructor has not yet been called). you'll need put breakpoint @ next line (or step on current line) if want evaluate foo .
Read more

identifier - Is it possible for an html5 document to have two ids? -

i wondering if html5 element can have 2 ids, this: <button id="thing1" id="thing2" name="button1" onclick="change()">click here</button> or this: <button id="thing1, thing2" name="button1" onclick="change()">click here</button> also, if 1 of ids said 1 thing, , other id said thing, 1 used? tl;dr : no. in versions of html, each element can have 1 id. see the spec : the id attribute specifies element's unique identifier (id). [dom] the value must unique amongst ids in element's home subtree , must contain @ least 1 character. the value must not contain space characters. note: there no other restrictions on form id can take; in particular, ids can consist of digits, start digit, start underscore, consist of punctuation , etc. note: element's unique identifier can used variety of purposes, notably way link specific parts of document usin
Read more