vba - Saving embedded OLE Object (Excel doc) to file in Excel 2010 vs 2013 -


i trying save embedded ole object (excel doc) current/open workbook location on users pc. ole object template/dashboard gets populated during execution of macro. goal of portion of macro first test if file exists on users c drive. if exist, opens file , sets workbook variable newly opened document. far can tell, works flawlessly between both excel 2010 , excel 2013. in case user not have file saved c drive, macro needs open ole object , save drive. once complete, macro points location , opens file.

the below code works 100% in excel 2013, in excel 2010, macro crashes excel whenever try save file drive. if run macro in break mode, saving works fine, during run-time in cause crash. there possible use of doevents or application.wait here? i'm bit unfamiliar technicalities of saving documents , computer resources.

some things i've noticed:

  1. the crash not generate error code. gives "has stopped responding"
  2. i've tried multiple versions of .saveas fileformat:=52 vs .savecopyas. both methods produce same crash in 2010.
  3. the ole object opens "worksheet in", nice if somehow have open in entirely new workbook. i'm thinking crash related how object opened "worksheet in" rather it's own workbook.

code: 

dim uname string dim fname string dim wbk workbook dim sumwb workbook dim cbrwb workbook  set cbrwb = workbooks("previouslyset")      uname = left(environ("appdata"), len(environ("appdata")) - 16) fname = uname & "\otpreport"  & ".xlsm"  if dir(fname) = ""      set oembfile = cbrwb.worksheets("cbrdata").oleobjects("otpreport")     oembfile.verb 0      each wbk in workbooks         if instr(1, wbk.name, "worksheet in", vbtextcompare) > 0 , instr(1, wbk.name, left(cbrwb.name, round(len(cbrwb.name) / 2)), vbtextcompare) > 0             set sumwb = workbooks(wbk.name)         end if     next wbk      sumwb         .activate         .application.displayalerts = false          '==issue exists here==         .savecopyas (fname)          .close     end     set sumwb = nothing     set sumwb = workbooks.open(fname) else:     set sumwb = workbooks.open(fname) end if

use actual embedded com object instead of default action .verb 0 gives you.

oleobjects expose reference underlying object if being administered com server (it's .object property). in case, since have embedded workbook, it's workbook object other workbook object you'd encounter in vba. should need call .saveas on it:

oembfile.object.saveas fname

then can skip rest of gymnastics related trying find in current excel server.


-

Comments

Post a Comment

Popular posts from this blog

javascript - Thinglink image not visible until browser resize -

Image
i trying repurpose pre-existing theme, includes drop down menu displays image. trying embed thinglink drop down menu's content section, not visible until resize browser window. here menu looks like: then when clicked, can see empty space image should show: then when browser resized, image appears: this code content of menu: <div class="ajax_accordion_content" style="display: none;"> <div class="report-detail"> <table border="0" cellpadding="0" cellspacing="0" width="100%" class="table_basic"> <tbody> <!-- thinglink image embedded --> <img style="max-width: 100%;" src="http://cdn.thinglink.me/api/image/832705713204625409/1024/10/scaletowidth#tl-832705713204625409;1043138249'" class="alwaysthinglink"/> <script async charset="utf-8" src="http://cdn.thinglink.me/jse/embed.j...
Read more

firebird - Error "invalid transaction handle (expecting explicit transaction start)" executing script from Delphi -

i'm developing update app delphi 10. i'm running windows 7 64x, firebird 2.5.1.26351 32x. execution order: checks current version(select statement firebird database) downloads update(via ftp) apply it(.exe files, , execute .sql) error code -901 pops out when try execute .sql files. know there incompatibility issue w7 64x , fdb 32x, but, can everything: backup , restore(gbak), db commands(all). tried fdb 64x instead, , not working. code: //components fdwaitcursor: tfdguixwaitcursor; fddriverlink: tfdphysfbdriverlink; fdconnection:tfdconnection; fdscript: tfdscript; function tthr_script.createcomponents:boolean; begin try fddriverlink := tfdphysfbdriverlink.create(fddriverlink); fdwaitcursor := tfdguixwaitcursor.create(fdwaitcursor); fdconnection := tfdconnection.create(fdconnection); fdconnection begin drivername := 'fb'; params.username := thrbanco.bduser; params.password := thrbanco.bdpass; params.database := ...
Read more

Sound is not coming out while implementing Text-to-speech in Android activity -

i using texttospeak in 1 of app. while adding speech string texttospeech object instance, doesn't produce sound. though not getting error in log still sound not coming out. want device speak value of textview gets set resultmsg.settext() method. public class resultactivity extends activity { @override protected void oncreate(bundle savedinstancestate){ ............ resultmsg.settext(resultmsg_str); texttospeech = new texttospeech(getapplicationcontext(),newtexttospeech.oninitlistener(){ @override public void oninit(int status) { system.out.println("txt speech status = "+status); system.out.println("txt speech error status = "+texttospeech.error); system.out.println("txt speech success status = "+texttospeech.success); if(status == texttospeech.success){ texttospeech.setlanguage(locale.english); ...
Read more