Tweak code to copy sheet1 of a excel file to sheet1 new excel file -


i have code copy sheets 1 excel file another, have 1 sheet , when copies paste original sheet1 (2) in destination file.

i need code not create new sheet past sheet1 sheet1 of destination file

i tryed playing not it

thanks 

sub copysheets()  dim wb workbook dim sourcewb workbook dim ws worksheet dim asheet worksheet  'turns off screenupdating , events: application.screenupdating = false application.enableevents = false   'sets variables:  set wb = activeworkbook  set asheet = activesheet  set sourcewb = workbooks.open(wb.path & "\myotherworkbook.xls")  'modify match  'copies each sheet of sourcewb end of original wb: each ws in sourcewb.worksheets     ws.copy after:=wb.sheets(wb.sheets.count) next ws      sourcewb.close savechanges:=false     set ws = nothing     set sourcewb = nothing  wb.activate asheet.select     set asheet = nothing     set wb = nothing  application.enableevents = true  end sub

try below code.the below code can fail if source workbook in excel 2010 (xlsx) , destination workbook in excel 2003 (xls). may have @ rdbmerge addin.

   sub copysheets()       dim sourcewb workbook, destinwb workbook     dim sourcest worksheet     dim filepath string      'turns off screenupdating , events:     application.screenupdating = false     application.displayalerts = false       'path refers limesurvey workbook     set sourcewb = workbooks.open(thisworkbook.path & "\limesurvey.xls")     'set source sheet     set sourcest = sourcewb.sheets("management suite feedback - tri")      sourcest.copy     set destinwb = activeworkbook     filepath = createfolder      destinwb.saveas filepath     destinwb.close     set destinwb = nothing      set sourcest = nothing     sourcewb.close     set sourcewb = nothing      application.screenupdating = true     application.displayalerts = true  end sub function createfolder() string      dim fso object, myfolder string     set fso = createobject("scripting.filesystemobject")      myfolder = thisworkbook.path & "\reports"       if fso.folderexists(myfolder) = false         fso.createfolder (myfolder)     end if      myfolder = myfolder & "\" & format(now(), "mmm_yyyy")      if fso.folderexists(myfolder) = false         fso.createfolder (myfolder)     end if      createfolder = myfolder & "\data " & format(now(), "dd-mm-yy hh.mm.ss") & ".xls"     set fso = nothing  end function

Comments

Post a Comment

Popular posts from this blog

linux - Does gcc have any options to add version info in ELF binary file? -

i mean whether gcc can insert source code version infor elf binary section or similar. not want change source file, add info gcc option in makefile. you can emit version info text file, turn text file object file statically link executable. the first step simple have write code: script or write version info in format plain text file. write makefile rule produce version.o version.txt, using objcopy . you'll have object file 2 useful symbols defined in it: beginning , end of textual version info. add generated object executable, , you'll able access version 2 ways: running strings on binary, or writing code in application print version string (you'll need declare start , end symbols variables in header file).
Read more

javascript - Clean way to programmatically use CSS transitions from JS? -

as title implies, there proper way set initial css properties (or class) , tell browser transition these value? for example ( fiddle ): var el = document.queryselector('div'), st = el.style; st.opacity = 0; st.transition = 'opacity 2s'; st.opacity = 1; this not animate opacity of element in chrome 29/firefox 23. because ( source ): [...] you’ll find if apply both sets of properties, 1 after other, browser tries optimize property changes, ignoring initial properties , preventing transition. behind scenes, browsers batch property changes before painting which, while speeding rendering, can have adverse affects. the solution force redraw between applying 2 sets of properties. simple method of doing accessing dom element’s offsetheight property [...] in fact, hack work in current chrome/firefox versions. updated code ( fiddle - click run after opening fiddle run animation again): var el = document.queryselector('div'...
Read more

android - send complex objects as post php java -

is possible send contact numbers via post php class inside eclipse ? or post limited primitive types , have find work arounds send them string ? i propose: send them json in post request, befor start, have @ gson project , keep in mind set content application -> json. luck
Read more