vba - Excel set active Workbook -

-

i searched forum , couldn't find answer fit problem. pretty new excel vba , having trouble activating workbook opened. directly below part causing me trouble.

so press button , brings me file path, , select file open. every week file has different name , not sure until open file path , @ it.

once open it, macro manipulate data in file , copy , paste workbook running code. when run macro , open file not activate newly opened workbook , runs rest of macro trying manipulate data in original file.

i think either need open file differently workbook opened active 1 or figure out how activate newly opened workbook without knowing file name. thank help.

dim filepath string filepath = environ("userprofile") & "\dropbox\on go ordering" call shell("explorer.exe" & " " & filepath, vbnormalfocus)   range("a6:e500").select 
sub on_the_go_button()      dim ranker workbook      set ranker = thisworkbook      dim filepath string     filepath = environ("userprofile") & "\dropbox\on go ordering"     call shell("explorer.exe" & " " & filepath, vbnormalfocus)       range("a6:e500").select     selection.copy     sheets.add after:=sheets(sheets.count)     activesheet.paste     application.cutcopymode = false     selection.autofilter     activesheet.range("$a$1:$e$495").autofilter field:=1, criteria1:=rgb(213, _         223, 248), operator:=xlfiltercellcolor     range("g1").select     activecell.formular1c1 = _         "=if(right(rc[-6],8)=""subtotal"",value(left(rc[-6],6)),"""")"     range("h1").select     activecell.formular1c1 = "=if(rc[-1]="""","""",rc[-4])"     range("i1").select     activecell.formular1c1 = "=if(rc[-1]="""","""",rc[-4])"     range("g1:i1").select         selection.copy     range("g1:i500").select     selection.pastespecial paste:=xlpasteformulas, operation:=xlnone, _     skipblanks:=false, transpose:=false     selection.copy     ranker.activate     range("a1").select     selection.pastespecial paste:=xlpastevalues, operation:=xlnone, skipblanks _         :=false, transpose:=false      range("p1:q74").select     selection.copy     sheets("contest").select     range("a3").select      activecell.end(xltoright).select       activecell.offset(0, 1).select      selection.pastespecial paste:=xlpastevalues, operation:=xlnone, skipblanks _         :=false, transpose:=false end sub

because op specified default path; recommend using application.filedialog(msofiledialogfilepicker)

enter image description here

usage:

dim weeklyworkbook  set weeklyworkbook = getweeklyworkbook  if weeklyworkbook nothing     msgbox "no file selected", vbinformation, "action cancelled"     exit sub end if 
function getweeklyworkbook() workbook      dim fdialog filedialog, result integer     set fdialog = application.filedialog(msofiledialogfilepicker)      'optional: filedialog properties     fdialog.allowmultiselect = false     fdialog.title = "select file"     fdialog.initialfilename = environ("userprofile") & "\dropbox\on go ordering"     'optional: add filters     fdialog.filters.clear     fdialog.filters.add "excel files", "*.xls, *.xlsx, *.xlsm"     fdialog.filters.add "all files", "*.*"      'show dialog. -1 means success!     if fdialog.show = -1         set getweeklyworkbook = workbooks.open(fdialog.selecteditems(1))     end if  end function

reference: vba filedialog – opening, selecting , saving files , folders


Comments

Post a Comment

Popular posts from this blog

mysql - Dreamhost PyCharm Django Python 3 Launching a Site -

-
i'm new python/django , created simple django website using pycharm. site works fine running on computer, i'm lost when comes taking site onto host (dreamhost). i'm able upload files correct directories fine, , believe made correct changes database on mysql. i'm not sure go there though. right now, page shows files rather site. direction appreciated. much! you should not run django application using python manage.py runserver on production. how run application on django depends on server (apache, nginx) want use for apache - https://docs.djangoproject.com/en/1.10/howto/deployment/wsgi/modwsgi/ for nginx - https://www.digitalocean.com/community/tutorials/how-to-serve-django-applications-with-uwsgi-and-nginx-on-ubuntu-14-04 the mysql database should, of course, exist , have correct credentials. or, if choose use sqlite, file should accessible, readable , writable www-user (may different depending on linux distributive)
Read more

java - Sending SMS with SMSLib and Web Services -

-
i have made rest web service send smss using hsdpa usb modem. using smslib in java send smss. every time web service invoked, create gateway start service, send message, stop service , remove gateway. takes 20 seconds each message. found starting service takes lot of time. part of code use send smss service.getinstance().addgateway(gateway); service.getinstance().startservice(); outboundmessage msg = new outboundmessage(phonenumber, message); if (service.getinstance().sendmessage(msg)) { result = "message sent successfully!!"; } else { result = "could not send message."; } service.getinstance().stopservice(); service.getinstance().removegateway(gateway);//remove gateway is there way can start service once if not started , use send message when ever web service invoked? why dont group messages , send in 1 go? service.getinstance().sendmessages(messa...
Read more

java - How to resolve The method toString() in the type Object is not applicable for the arguments (InputStream) -

-
i'm trying read json file local machine. @path("/") public class jsonparsing { file f = new file("file.json"); if (f.exists()){ inputstream = new fileinputstream("file.json"); string jsontxt = ioutils.tostring(is); system.out.println(jsontxt); jsonobject json = new jsonobject(jsontxt); string = json.getstring("1000"); system.out.println(a); } } but i'm getting error in tostring() method. possible read .txt file containing json object local machine? if possible, how done? firstly: whenever ask question- add imports well. secondly: yes possible read .txt file containing json object. steps: 1. add maven dependency in pom.xml - <dependency> <groupid>com.googlecode.json-simple</groupid> <artifactid>json-simple</artifactid> <version>1.1.1</version> </dependency> or add jar of dependency. 2.import...
Read more