Excel table to XML Vba converter is putting all my data rows into one tag as attributes? -

-

i asked question yesterday , got no answers. trying transform , excel table xml. below have (number of children reduced overall format repeated). issue have when increase number of rows, gives me this.

<root>  <random>   <random1 a="a2" b="b2" <random1 a='a3' b="b3" >     <cookie>      <orange c="c2" d="d2" <orange c="c3" d="d3"/>     </cookie>   </random1>  <random> <root>

i format.

<root>  <random>   <random1 a="a2" b="b2">     <cookie>      <orange c="c2" d="d2"/>     </cookie>   </random1>   <random1 a='a3' b="b3" >     <cookie>      <orange c="c3" d="d3"/>     </cookie>   </random1>  <random> <root>

basically, how data appear consecutively instead of in 1 line? code below.

sub toxml() myfile = "data.xml" fnum = freefile() dim n integer n = 2 'number of data rows dim m integer m = 104 ' number of columns  print #fnum, "<root>"  print #fnum, "  < random >"   = 2 n + 1       print #fnum, "    <random1 ";     j = 1 39         print #fnum, cells(1, j).value & "=""" & cells(i, j).value & """ ";             next j             next   print #fnum, ">"  print #fnum, "      < cookie >"       i2 = 2 n + 1              print #fnum, "        <orange ";             j2 = 40 42                 print #fnum, cells(1, j2).value & "=""" & cells(i, j2).value & """ ";                     next j2                     next i2  print #fnum, "/>"  print #fnum, "      <cookie>" print #fnum, "    random1>" print #fnum, "  </random>"  print #fnum, "</ root >" 'close root node

you should work arrays , build each attribute before writing row:

dim headers(), data(), attributes1(), attributes2(), attr$, r&, c&  ' load headers , data array ' headers = cells(1, 1).resize(1, 42).value data = cells(1, 2).resize(2, 42).value  ' set size attributes ' redim attributes1(1 39) redim attributes2(40 42)  ' open file , print header ' open "c:\temp\output.xml" output #1 print #1, "<root>" print #1, "  <random>"  ' iterate each row ' r = 1 ubound(data)    ' iterate each column '   c = 1 ubound(data, 2)      ' build each attribute '     attr = headers(1, c) & "=""" & data(r, c) & """"     if c <= 39       attributes1(c) = attr     else       attributes2(c) = attr     end if   next    ' print row '   print #1, "    <random1 " & join(attributes1, " ") & " >"   print #1, "      <cookie>"   print #1, "        <orange " & join(attributes2, " ") & " />"   print #1, "      </cookie>"   print #1, "    </random1>"  next  ' print footer , close ' print #1, "  </random>" print #1, "</root>" close #1

Comments

Post a Comment

Popular posts from this blog

java - Run spring boot application error: Cannot instantiate interface org.springframework.context.ApplicationListener -

-
i have spring project , try make use spring boot , run @ embadded tomcat following : https://spring.io/guides/gs/rest-service/ this application //@configuration //@enableaspectjautoproxy @springbootapplication @componentscan(basepackages = "gux.prome") public class application { public static void main(string[] args) { springapplication.run(application.class, args); } } if use maven command: mvn spring-boot:run , project starts fine, need debug , run main method @ intelij, exception occurs: exception in thread "main" java.lang.illegalargumentexception: cannot instantiate interface org.springframework.context.applicationlistener : org.springframework.boot.logging.classpathloggingapplicationlistener @ org.springframework.boot.springapplication.createspringfactoriesinstances(springapplication.java:414) @ org.springframework.boot.springapplication.getspringfactoriesinstances(springapplication.java:394) @ org.springframework.bo...
Read more

python - pip wont install .WHL files -

-
when try install .whl gohike typing cmd c:\users\owner\downloads>pip install ta_lib-0.4.9-cp27-none-win_amd64.whl i print out: `processing c:\users\owner\downloads\ta_lib-0.4.9-cp27-none-win_amd64.whl complete output command python setup.py egg_info: traceback <most recent call last>: file "<string>", line 1, in <module> ioerror: [errno 2] no such file or directory:'c:\\users\\owner\\appdata\\lo cal\\temp\\pip-9gwk2c-build\\setup.py' ----------------------------------------- command "python setup.py egg_info" failed error code 1 in c:\users\owner\ap pdata\local\temp\pip-9gwk2c-build\` the part between pip- , -build in pip-9gwk2c-build different on same file. i asked python 2.7.11 pip 8.0.3 can't install gohike whl of ta-lib 0.4.9 few days ago , decided ask differently. can me! you have outdated pip not understand wheels. wheels not supposed have setup.py inside. try upgrading pip pip in...
Read more

Excel VBA "Microsoft Windows Common Controls 6.0 (SP6)" Location Changes -

-
i have excel workbook used generate quotations customers. there main page user inputs data, , there buttons generate various pdfs , send them customer. however, 1 user consistently getting error preventing generating , sending pdfs. i beleive "microsoft windows common controls 6.0 (sp6)". it's installed on users' computers. on mine, location "c:\windows\syswow64\mscomctl.ocx" on others "c:\windows\system32\mscomctl.ocx" the user experiencing issues on 32-bit machine, "mscomctl.ocx" file should in system32. have manually put in there, , pointed common controls reference in vba it. issue seems keep reverting looking in syswow64. since folder doesn't exist, can't find it, , can't produce pdfs. i thought perhaps issue user running older version of office (2007) there users on 2013 , 2016. thought perhaps mixture of 64-bit , 32-bit users. user gets sent workbook other users (as quotation process goes further, gets passed ...
Read more