vba - How to open Excel if not already open -


i'm trying find way open excel using outlook vba, if it's not open. managed find code on internet opens excel, changes , closes it, doesn't behave nicely if excel workbook open(it apply changes, no longer closes excel workbook, , leaves grey interior; also, doesn't show in explorer anymore , have close task manager). appreciate if explain of code does.

public xlapp object public xlwb object public xlsheet object sub exporttoexcel()     dim enviro string     dim strpath string      'get excel set enviro = cstr(environ("userprofile")) 'the path of workbook  strpath = enviro & "\documents\test2.xlsx"      on error resume next      set xlapp = getobject(, "excel.application")      if err <> 0          application.statusbar = "please wait while excel source opened ... "          set xlapp = createobject("excel.application")          bxstarted = true      end if      on error goto 0      'open workbook input data      set xlwb = xlapp.workbooks.open(strpath)      set xlsheet = xlwb.sheets("sheet1")     ' process message record     on error resume next      xlwb.close 1      if bxstarted          xlapp.quit      end if end sub

i know xlwb , xlsheet objects do, , how they're declared, , understand environ function , strpath string do, don't undestand why need bxstarted boolean, set xlapp = getobject does, why application.statusbar message doesn't displayed, difference between getobject , createobjectand why many error tests needed. in advance.

the difference between object , create object in title, 1 open excel.application, if there error err<>0 creates excel.application. think you'll getting saveas message, file may not saving, open, , you're instructing save, error resume next skipping . try saving before .close if remove on error resume next error wont skipped , shown.

sub explaination()  dim blndidicreateexcel boolean           '   please read msdn on boolean dim objtoholdexcelcreatedornot object    '   please read msdn on objects create/get  '   user have excel open, if try it, there error logically if not set objtoholdexcelcreatedornot = getobject(, "excel.application")  '   there error if err <> 0     '   there was, need create 1     set objtoholdexcelcreatedornot = createobject("excel.application")     blndidicreateexcel = true       '   yes, created end if  '   neccessary  '   close workbook  '   did create excel, if tidy  if blndidicreateexcel objtoholdexcelcreatedornot.quit  end sub

Comments

Post a Comment

Popular posts from this blog

Is there a better way to structure post methods in Class Based Views -

i'm using class based views in django , never specify url in ajax calls , omit action parameter in form because know these requests go through post method of class based view. notice view - profile page make many requests depending on user updating on page - post method become convoluted , if/else mess example: def post(self, request, *args, **kwargs): # handle user changing available date if request.post.get('availabledate') != none: self.updateavailabledate(request) return jsonresponse({'result':'success'}) if request.post.get('newprojectname') != none: creative_user = creativeuserprofile.objects.get(id = request.user.id) project = project.create_project(creative_user, request.post['newprojectname']) project.save() return jsonresponse({'projectid': project.id }) if request.post.get('projectimage') != none , request.files['file']: proj
Read more

performance - Why is XCHG reg, reg a 3 micro-op instruction on modern Intel architectures? -

i'm doing micro-optimization on performance critical part of code , came across sequence of instructions (in at&t syntax): add %rax, %rbx mov %rdx, %rax mov %rbx, %rdx i thought had use case xchg allow me shave instruction , write: add %rbx, %rax xchg %rax, %rdx however, dimay found agner fog's instruction tables , xchg 3 micro-op instruction 2 cycle latency on sandy bridge, ivy bridge, broadwell, haswell , skylake. 3 whole micro-ops , 2 cycles of latency! 3 micro-ops throws off 4-1-1-1 cadence , 2 cycle latency makes worse original in best case since last 2 instructions in original might execute in parallel. now... cpu might breaking instruction micro-ops equivalent to: mov %rax, %tmp mov %rdx, %rax mov %tmp, %rdx where tmp anonymous internal register , suppose last 2 micro-ops run in parallel latency 2 cycles. given register renaming occurs on these micro-architectures, though, doesn't make sense me done way. why wouldn't register renamer
Read more

jquery - Responsive Navbar with Sub Navbar -

good day, forgive me nav vocabulary not best. if question confusing apologize. i'm working on navigation bar needs centered on page @ 768px , above. items in nav open (or perhaps toggle) subnav lives directly below. these nav should appear centered on page. i have been able work through responsive portion of nav bar, having main items align vertically , sub nav menu of each item roll out below, , gave them indent separation. working well. however, issue not responsive side, behavior @ width greater 768px. happens toggling menu's sub navigation pushes other main items down page below sub nav. here's code: $(document).ready(function () { //stick in fixed 100% height behind navbar don't wrap $('#slide-nav.navbar-inverse').after($('<div class="inverse" id="navbar-height-col"></div>')); $('#slide-nav.navbar-default').after($('<div id="navbar-height-col"></d
Read more