excel - Creating folders and new *.xlsx file with macro from template like xlsm file -


i have code creates folder , saves actual file in it, want saves copy 1 sheet in it. file code works template...

you write stuff , press button , saves .xlsx file 1 sheet (the sheet form) in new created folder... hundreds of files folders.

so in end should work this:

  1. you open .xlsm file code below in.
  2. you got sheets 1 form (what should "exported" later on) , list copy stuff in form.
  3. when filled form , press button , saves form sheet in new folder .xlsx , can continue in .xlsm file.

if it's unclear please ask.

the code have now

sub macro1() dim strfilename, strdirname, strpathname, strdefpath string on error resume next ' if directory exist goto next line strdirname = range("d81").value ' new directory name  strfilename = range("d8").value 'new file name strdefpath = application.activeworkbook.path 'default path name if isempty(strdirname) exit sub if isempty(strfilename) exit sub  mkdir strdefpath & "\" & strdirname strpathname = strdefpath & "\" & strdirname & "\" & strfilename 'create total string  activeworkbook.saveas filename:=strpathname & ".xlsm", _ fileformat:=xlopenxmlworkbookmacroenabled, password:="", writerespassword:="", _ readonlyrecommended:=false, createbackup:=false end sub

problem here have names forms 1102,1103 going on that. next step there files name 1102_1 , 1102_2 , both should go in folder 1102 ...

it's bit out of knownledge please me guys :) greets

now using code below problem closes xlsm file annoyes , when reopen it wants update file need remove don't know how :/... , should export/save 1 special sheet

private sub commandbutton1_click() dim strfilename string, _ strdirname string, _ strpathname string, _ strdefpath string, _ sheettoexport string, _ wbmaster workbook, _ wbcopy workbook   on error resume next ' if directory exist goto next line strdirname = range("w12").value ' new directory name strfilename = range("d8").value 'new file name  set wbmaster = application.activeworkbook sheettoexport = range("a1").value 'or specify userform output  strdefpath = wbmaster.path 'default path name  if isempty(strdirname) exit sub if isempty(strfilename) exit sub  mkdir strdefpath & "\" & strdirname strpathname = strdefpath & "\" & strdirname & "\" & strfilename 'create total string  wbmaster.sheets(sheettoexport).copy set wbcopy = application.activeworkbook  wbcopy.saveas filename:=strpathname & ".xlsx", _                 fileformat:=xlopenxmlworkbook, password:="", writerespassword:="", _                 readonlyrecommended:=false, createbackup:=false  wbcopy.close end sub

be careful on variable declaration!

the way did in op (original post) :

strfilename, strdirname , strpathname declared variant , not string.

you can still use them it'll take more memory , can issue if use them arguments.

see code :

dim strfilename string, _     strdirname string, _     strpathname string, _     strdefpath string, _     sheettoexport string, _     wbmaster workbook, _     wbcopy workbook   on error resume next ' if directory exist goto next line strdirname = range("d81").value ' new directory name strfilename = range("d8").value 'new file name  set wbmaster = application.activeworkbook sheettoexport = range("a1").value 'or specify userform output  strdefpath = wbmaster.path 'default path name  if isempty(strdirname) exit sub if isempty(strfilename) exit sub  mkdir strdefpath & "\" & strdirname strpathname = strdefpath & "\" & strdirname & "\" & strfilename 'create total string  wbmaster.sheets(sheettoexport).copy set wbcopy = application.activeworkbook  wbcopy.saveas filename:=strpathname & ".xlsx", _                 fileformat:=xlopenxmlworkbook, password:="", writerespassword:="", _                 readonlyrecommended:=false, createbackup:=false  closingwb = msgbox("do wish close exported file?",vbyesno,"close exported file") if closingwb <> vbno wbcopy.close

Comments

Post a Comment

Popular posts from this blog

html - Outlook 2010 Anchor (url/address/link) -

i'm trying link specific pdf page msoutlook'10 or msword'10, #page=... anchor particularly useful , works fine elsewhere. unfortunately when click [ctr-k] in outlook or winword, links re-formatted assuming unc path. pdf file located on shared drive. using "file:" prefix links open pdf in adobe reader (outside of browser), , "http:" open inside browser. issue seem need open in browser "file:" prefix in order anchor work. know anchors work inside browser. outlook uses windows/explorer default program (based on file extension) seems open in adobe reader neglecting anchor. is aware of solution, link specific page or bookmark of shared-pdf ms outlook and/or winword link? common references: mailermailer.com/...anchor-tags-html-emails campaignmonitor.com/...anchor-links-in-email-newsletters/ stackoverflow.com/...anchor-in-pdf-document
Read more

javascript - Why does running this loop 9 times take 100x longer than running it 8 times? -

consider code: test = function() { } t = new test(); (var = 0; < 8; i++) { result = t instanceof test; } if change number of iterations 8 9 , loop take 100 times longer complete in latest version of firefox (41.0.1). tested on 2 different pcs , magic limit 8. here jsperf test used: http://jsperf.com/instanceof-8-times-vs-9-times does have idea why might happen? seems specific instanceof . not happen if else object, example check property. note: filed bugzilla bug this. jan de mooij mozilla team has posted details in bugzilla thread . here's simplistic interpretation of highly technical answers: in i < 8 case, firefox smart enough hoist result = t instanceof test; statement out of loop (according tests, doesn't seem omit altogether). in i < 9 case, apparently doesn't optimization . why? reason not clear, related fact 9 iterations threshold above function considered "hot" enough run through jit compiler. i < 8 cas...
Read more

Getting gateway time-out Rails app with Nginx + Puma running on Digital Ocean -

following this guide setup app on digital ocean droplet, not working. site not loading , it's throwing: "gateway time-out". the puma server works, since ps aux | grep puma prints: root 15878 0.0 0.4 376832 2168 ? sl 12:50 0:00 puma 2.13.4 (unix:///var/www/myapp/shared/tmp/sockets/myapp-puma.sock) [20150930164940] root 15881 0.0 0.7 903676 3692 ? sl 12:50 0:06 puma: cluster worker 0: 15878 [20150930164940] root 24654 0.0 0.1 11748 916 pts/2 s+ 18:00 0:00 grep --color=auto puma my nginx config: user root; worker_processes 1; events { worker_connections 1024; } http { upstream puma { server unix:///var/www/myapp/shared/tmp/sockets/myapp-puma.sock; } server { listen 80; server_name myapp.com; root /var/www/myapp/current/public; access_log /var/www/myapp/current/log/access.log; error_log /...
Read more