excel - Altering code to look through multiple workbooks -


i have below code , alter instead of going through current spreadsheet, looks through multiple workbooks stored in folder on c drive.

sub test()  dim wb1 workbook, wb2 workbook dim ws1 worksheet, ws2 worksheet dim copyfrom range dim lrow long '<~~ not integer. might give error in higher versions of excel dim strsearch string  set wb1 = thisworkbook ' application.workbooks.open("c:\sample.xlsx") set ws1 = wb1.worksheets("fca")  strsearch = activesheet.inputname.text    ws1      '~~> remove filters     .autofiltermode = false      lrow = .range("h" & .rows.count).end(xlup).row      .range("h1:h" & lrow)         .autofilter field:=1, criteria1:="=*" & strsearch & "*"         set copyfrom = .offset(1, 0).specialcells(xlcelltypevisible).entirerow     end      '~~> remove filters     .autofiltermode = false end  '~~> destination file set ws2 = wb1.worksheets("output")  ws2     if application.worksheetfunction.counta(.cells) <> 0         lrow = .cells.find(what:="*", _                       after:=.range("h1"), _                       lookat:=xlpart, _                       lookin:=xlformulas, _                       searchorder:=xlbyrows, _                       searchdirection:=xlprevious, _                       matchcase:=false).row + 1     else         lrow = 1     end if      copyfrom.copy .rows(lrow) end   end sub 

sub loopthroughfiles()     dim path string     dim filename string     dim wb workbook     path = ""  'your folder path here     filename = dir(path & "*.xls")      while (filename <> "")         set wb = workbooks.open(path & filename)         'your code goes here         wb.close         filename = dir     wend end sub

Comments

Post a Comment

Popular posts from this blog

java.util.scanner - How to read and add only numbers to array from a text file -

i'm learning java , have question regarding reading file want read numbers file contains strings well. here example of file: 66.56 "3 java 3-43 5-42 2.1 1 and here coding: public class test { public static void main (string [] args){ if (0 < args.length) { file x = new file(args[0]); try{ scanner in = new scanner( new fileinputstream(x)); arraylist<double> test = new arraylist<>(); while(in.hasnext()){ if(in.hasnextdouble()){ double f=in.nextdouble(); test.add(f);} else {in.next();} } catch(ioexception e) { system.err.println("exception during reading: " + e); } } my problem add 66.56,2.1 , 1 doesn't add 3 after "3 or ignores 3-43 , 5-42 can tell me how skip strings , add doubles here? thanks all said 3 ie; "3, 3-43 , 4-42 strings either u read string , split , check number @ " , - or put in space between characters , integers. jvm after compilation tre...
Read more

rewrite - Trouble with Wordpress multiple custom querystrings -

i'm working on adding multiple querystring , doesn't seem work. i've found codes seems work others might i'm missing something. i want like: http://mydomain.com/board/?getyear=2013&getsometext2=sometext to http://mydomain.com/board/2013/sometext/ i added code below functions.php file. doesn't seem work should though. this works. echoing querystring gets both variable without problem. http://mydomain.com/board/2013/sometext/ but doesn't. tested querystring vis isset() seems nothing being set/get http://mydomain.com/board/2013/ function add_query_vars($vars) { $vars[] = "getyear"; $vars[] = "getsometext2"; return $vars; } add_filter('query_vars', 'add_query_vars'); function add_rewrite_rules($arules) { $anewrules = array('board/([^/]+)/([^/]+)/?$' => 'index.php?pagename=board&getyear=$matches[1]&getsometext2=$matches[2]'); $arules = $a...
Read more