vba - Import text files to excel and create master workbook -


i grad student , collect lot of data stored in txt files. want import text files fixed width, columns a, b , c 12, save files excel files , move them master workbook. found following code worked making master workbook not import them in numerical order.

i using microsoft 2010.

sub merge2multisheets() dim wbdst workbook dim wbsrc workbook dim wssrc worksheet dim mypath string dim strfilename string application.displayalerts = false application.enableevents = false application.screenupdating = false mypath = "c:\users\kyle\desktop\scan rate study 1-14-16" set wbdst = workbooks.add(xlwbatworksheet) strfilename = dir(mypath & "\*.xls", vbnormal) if len(strfilename) = 0 exit sub until strfilename = "" set wbsrc = workbooks.open(filename:=mypath & "\" & strfilename) set wssrc = wbsrc.worksheets(1) wssrc.copy after:=wbdst.worksheets(wbdst.worksheets.count) wbsrc.close false strfilename = dir() loop wbdst.worksheets(1).delete application.displayalerts = true application.enableevents = true application.screenupdating = true end sub

consider using fso object traverse mypath directory , copy on .xls files. currently, set importing excel files located in directory:

sub merge2multisheets()     dim mypath string     dim wbdst workbook, wbsrc workbook, wssrc worksheet     dim fso object, olfolder object, olfile object      application.displayalerts = false     application.enableevents = false     application.screenupdating = false     mypath = "c:\users\kyle\desktop\scan rate study 1-14-16"      set wbdst = workbooks.add(xlwbatworksheet)      set fso = createobject("scripting.filesystemobject")     set olfolder = fso.getfolder(mypath)      each olfile in olfolder.files         if right(olfile.name, 4) = ".xls"              set wbsrc = workbooks.open(olfile.name)             set wssrc = wbsrc.worksheets(1)             wssrc.copy after:=wbdst.worksheets(wbdst.worksheets.count)             wbsrc.close false          end if     next olfile      wbdst.worksheets(1).delete     application.displayalerts = true     application.enableevents = true     application.screenupdating = true      set olfile = nothing     set olfolder = nothing     set fso = nothing end sub

Comments

Post a Comment

Popular posts from this blog

get url and add instance to a model with prefilled foreign key :django admin -

Image
i have page in each contest shown in row. each row contains contest id , link other model names have foreign key contest. news model: class news(models.model): title = models.charfield(max_length=50, null=true) description = models.textfield() time = models.timefield( default= datetime.datetime.now().time()) contest = models.foreignkey(contest) i want use admin adding , changing these models. want when user clicks on 'news' has foreign key contest id=1, shows list of news value foreign key. use {% instance in instances %} <tr class="{% cycle 'row1' 'row2' %}"> <td>{{ instance.title }}</td> <td>{{ instance.starttime }}</td> <td>{{ instance.timespan }}</td> <td>{{ instance.date }}</td> <td><a href="/adm...
Read more

css - Make div keyboard-scrollable in jQuery Mobile? -

from can tell, although jquery-mobile-powered pages can contain divs overflow set scroll or auto, , these divs can scrolled one-screen bar or mouse wheel, cannot scrolled using arrow keys, page-up/page-down, or home/end. instead, official "page" div (with data-role="page") absorbs input. perhaps other divs can't acquire focus, i'm not sure. is there way around this? edit: jsfiddle of simple example: https://jsfiddle.net/qogz0shx/ <script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.4/jquery.min.js"></script> <script src="https://ajax.googleapis.com/ajax/libs/jquerymobile/1.4.5/jquery.mobile.min.js"> </script> <link rel="stylesheet" href="https://code.jquery.com/mobile/1.4.5/jquery.mobile-1.4.5.css"/> <style> #outer { overflow:scroll; height: 50vh; width: 50vw; } #inner { height: 500vh; width: 500vw; } ...
Read more

ruby on rails - Seeing duplicate requests handled with Unicorn -

recently upgraded our ec2 instances c3.large in order boost more unicorn workers handle increased traffic our site. (6xworkers per machine - 2 ec2 instances). when did this, started seeing duplicate records being created! looks somehow, maybe 2 unicorn workers attempting process same request? in nginx logs see 1 [post] request particular rails controller - yet 2 records being created in database. i'm hitting kind of race condition issue - have no idea how debug this. doesn't happen time, when it's frustrating well. noticed 2 database records within 5 seconds of each other. (and yes disable button when user clicks submit button). unicorn 4.8.2 ruby 1.9.3 rails 3.2.14 any great! thanks! although may not fix problem, upgrade ruby 2.0.0. there blog mentioning idea upgrade ruby 2.0.0 if using unicorn. for example: https://www.digitalocean.com/community/articles/how-to-optimize-unicorn-workers-in-a-ruby-on-rails-app specifically: if using ruby 1.9, ...
Read more