Importing + formatting XML files into Excel -


good day

i need following vba code, want excel following:

  • open multiple xml files
  • format files reflect columns
  • paste info in columns in 1 sheet underneath each othet

the code needs remove header line in line 1 when combining in 1 sheet.

this have far

sub combined()  'updatebykutoolsforexcel20151214     dim xwb workbook     dim xswb workbook     dim xstrpath string     dim xfiledialog filedialog     dim xfile string     dim xcount long  'added dim lastrow long 'new line  on error goto errhandler set xfiledialog = application.filedialog(msofiledialogfolderpicker) xfiledialog.allowmultiselect = false xfiledialog.title = "select folder [kutools excel]"  if xfiledialog.show = -1     xstrpath = xfiledialog.selecteditems(1) end if  if xstrpath = "" exit sub  application.screenupdating = false  'probleem le die "usedrange" 'hy moet net begin copy n sekere plek, en tot n sekere plek set xswb = thisworkbook xcount = 1 'lyntjie waar hy moet paste  xfile = dir(xstrpath & "\*.xml") 'alle file met .xml in folder while xfile <> ""     set xwb = workbooks.openxml(xstrpath & "\" & xfile, loadoption:=xlxmlloadimporttolist)      'copy van xwb.sheet na ons xswb.sheet     lastrow = xwb.sheets(1).range("a1048576").end(xlup).row 'new line     'msgbox lastrow      if xcount = 1 'just copy headers if 1st file (new lines)      xwb.sheets(1).range("a1:bq1").copy xswb.sheets(1).cells(xcount, 1)      xcount = 2     end if       'xwb.sheets(1).usedrange.copy xswb.sheets(1).cells(xcount, 1) 'copy in cell 2,1 probleem hier     xwb.sheets(1).range("a2:bq" & lastrow & "").copy xswb.sheets(1).cells(xcount, 1)      xwb.close false      lastrow = xswb.sheets(1).range("a1048576").end(xlup).row 'new line - kry laaste ryjite van ons huidige werkboek     xcount = lastrow + 1 'new line     'xcount = xswb.sheets(1).usedrange.rows.count + 2 'update waar hy nou na moet copy     xfile = dir() loop  application.screenupdating = true  xswb.save exit sub errhandler:     msgbox "no files xml", , "kutools excel"  end sub

any appreciated


Comments

Post a Comment

Popular posts from this blog

Command prompt result in label. Python 2.7 -

i want put result(output) of shell command label. command works, label shows "0", however, in command prompt, result shown correctly, need showed in label. doing ubuntu. myg1 = button(root, text="rodyti informacija", command=lambda: gauti()) myg1.pack(side=bottom) def gauti(): imti = tekstas.get("1.0", "end-1c") info = subprocess.call("id '{imti}' ".format(imti=imti), shell=true) w = label(root, text= info) w.pack(side = bottom) subprocess.call() returns exit code of process created (in case 0 success). if want text output of process, should instead call subprocess.check_output() .
Read more

javascript - How do I use URL parameters to change link href on page? -

i change href value of link using url parameters. example: default <a id="dlink" href="link-1">link</a> but, when user goes https://url.com/?dlink=link-2 it swaps out link new link <a id="dlink" href="link-2">link</a> first need value url. if you're not using javascript framework can create function using jquery. please check get url parameter jquery or how query string values in js it. after that, element "a" id , set value there. $("#dlink").attr("href", hreffromparam);
Read more

amazon web services - AWS Route53 Trying To Get Site To Resolve To www -

so have domain nameservers pointed aws route 53. site hosted on ec2 instance , reachable resolves site.com, if input www.site.com. i'm curious how site resolve www.site.com. have under route53 domains hosted zone 2 additional record sets outside of ns , soa: a site.com ec2 elastic ip cname www.site.com ec2 public dns i can reach site using both site.com , www.site.com, resolve site.com. there way make if enter either, resolves www.site.com? at first, both should record set. a site.com ec2 elastic ip www.site.com ec2 elastic ip and need redirect setting in web server (nginx, apache, ..) following. (source: how redirect www non-www nginx on centos 7 ) redirect non-www www if want redirect users plain, non-www domain www domain, add server block: server { server_name example.com; return 301 $scheme://www.example.com$request_uri; } save , exit. configures nginx redirect requests "example.com" "www.example.com". not...
Read more