excel - Reattaching Named Ranges in VBA -


i'm trying remove named ranges in excel workbook, store them in collection , after deleting, reattach them workbook.

my code looks this

sub resetnamedranges()     dim rname excel.name     dim cname excel.name     dim rangednames excel.names     dim collnames new collection      set rangednames = thisworkbook.names      each rname in rangednames         collnames.add rname          rname.delete     next      each cname in collnames         names.add cname.name, cname.refersto, cname.visible, cname.macrotype, cname.shortcutkey, cname.category, cname.namelocal, cname.referstolocal, cname.categorylocal, cname.referstor1c1, cname.referstor1c1local     next end sub

but isn't working. quit sure i'm missing something.

use dictionary , capture relevant properties such.

your collection method fails reasons outlined in comments above: .delete method removes reference name object put in collection. collection full of broken references, , can't restore names broken/invalid object references.

option explicit

sub foo() dim rname name dim dictnames object  set dictnames = createobject("scripting.dictionary")  each rname in names         'we're going use dict properties, also:         dictnames.add rname.name, nothing         set dictnames(rname.name) = createobject("scripting.dictionary")         dictnames(rname.name)             ' not favorite way this, properties undefined raise error             ' can work better way if prefer             on error resume next             .add "refersto", rname.refersto             .add "visible", rname.visible             .add "macrotype", rname.macrotype             .add "shortcutkey", rname.shortcutkey             .add "category", rname.category             .add "namelocal", rname.namelocal             .add "referstolocal", rname.referstolocal             .add "categorylocal", rname.categorylocal             .add "referstor1c1", rname.referstor1c1             .add "referstor1c1local", rname.referstor1c1local             on error goto 0         end         rname.delete     next  dim itm each itm in dictnames     set rname = names.add(itm, dictnames(itm)("refersto"))     on error resume next     'rname.refersto = itm("refersto")     rname.visible = itm("visible")     rname.macrotype = itm("macrotype")     rname.shortcutkey = itm("shortcutkey")     rname.category = itm("category")     rname.namelocal = itm("namelocal")     rname.referstolocal = itm("referstolocal")     rname.categorylocal = itm("categorylocal")     rname.referstor1c1 = itm("referstor1c1")     rname.referstor1c1local = itm("referstor1c1local")     on error goto 0 next end sub

Comments

Post a Comment

Popular posts from this blog

php - How to add and update images or image url in Volusion using Volusion API -

actually have store importing products store product data insert , update image or image url not insert , update. this xml code name datapro.txt. <products_joined> <productcode>3710_012t</productcode> <vendor_partno>eah5450silent/di/1gd3(lp)</vendor_partno> <productname>test product ta</productname> <hideproduct>n</hideproduct> <stockstatus>20</stockstatus> <lastmodified>1/5/2016 10:25:00 am</lastmodified> <lastmodby>2</lastmodby> <productweight>0.9</productweight> <productprice>100</productprice> <productmanufacturer>asus tek</productmanufacturer> <vendor_price>32.69</vendor_price> <numproductssharingstock>0</numproductssharingstock> <categoryids>107</categoryids> <producturl>http://tebkq.mvlce.servertrust.com/productdetails.asp?productcode=3710_012t</producturl>
Read more

javascript - jQuery UI Splitter/Resizable for unlimited amount of columns -

using jqueryui splitter or resizable functions want create layout allows unlimited amount of columns added , columns need resizable. so fiddle: https://jsfiddle.net/f3glh3mw/ but in fiddle html contains out of nested sets instead of inline. limits possibilities above fiddle can have equal widths 2,4,8,16,32 etc columns. in between shows crooked can see in fiddle. when researching came on question: jquery ui , splitter if @ top answer shows structure like: <div class="wrap"> <div class="resizable resizable1"></div> <div class="resizable resizable2"></div> </div> full fiddle: http://jsfiddle.net/8qztj/86/ which structure want javascript hardcoded 2 resizable items. so here question: how modify last fiddle works amount of .resizable divs. or know of plugin can this. thanks helping! so far found plugin: http://www.bacubacu.com/colresizable/ which says , close functionality want. in
Read more

javascript - IE9 error '$'is not defined -

Image
<!--[if lte ie 9]><html class="lte9"><![endif]--><!--[if gt ie 9]><html><![endif]--> <!--[if !ie]><!--> <html> <!--<![endif]--> blah blah <script src="https://ajax.googleapis.com/ajax/libs/jquery/1.12.1/jquery.min.js"></script> <script src="https://maxcdn.bootstrapcdn.com/bootstrap/3.3.7/js/bootstrap.min.js"></script> <script src="{{ asset('js/mypage.js') }}" type="text/javascript"></script> </body> </html> when load page, ie9 brings error '$' not defined . how can solve error? +++ mypage.js $(function(){ //when load page, //ie9 tag not moving. $(window).load(function() { $('div.mask').hide(); }); // when click , willshow show. //for not ie 9 if (!$('html').hasclass('lte9')) { var = $('ul.about > li > span.activebtn');
Read more