excel - Issue in Running imported Macros in VBA -


i want import macro files specified location in workbooks in specified folders , want run macros on each workbook, able import in workbooks through code mentioned below can not able run macros.

sub recursivefolders()     dim filesys object     dim objfolder object     dim objsubfolder object     dim objfile1 scripting.file     dim wkbopen workbook     dim szimportpath string     dim objfso scripting.filesystemobject     dim cmpcomponents vbide.vbcomponents      set objfso = new scripting.filesystemobject     set filesys = createobject("scripting.filesystemobject")     set objfolder = filesys.getfolder("c:\users\yashika vaish\desktop\testform")      application.screenupdating = false      each objsubfolder in objfolder.subfolders         each objfile in objsubfolder.files              set wkbopen = workbooks.open(filename:=objfile)             szimportpath = folderwithvbaprojectfiles & "c:\macros"             set cmpcomponents = wkbopen.vbproject.vbcomponents              each objfile1 in objfso.getfolder(szimportpath).files                  if (objfso.getextensionname(objfile1.name) = "cls") or _                    (objfso.getextensionname(objfile1.name) = "frm") or _                    (objfso.getextensionname(objfile1.name) = "bas")                     cmpcomponents.import objfile1.path                 end if             next objfile1              application.displayalerts = false              msgbox "import ready"             application.run "headerchange_user_financial_input"             application.run headerchange_user_financial_input             application.run headerchange_user_operation_input             application.run selectrangeunitmap             application.run reportingunitmap             application.run headerchange_finacial_standard             application.run headerchange_operation_standard             wkbopen.close savechanges:=true         next     next      application.screenupdating = true     application.displayalerts = true end sub

this code gives me pop can't run macros,

it may not available or macros disabled

but there no password , protection why not able run macros, kindly help.

you need include workbook name when calling macro (not tested):

strfile = activeworkbook application.run "'" & strfile.name & "'!headerchange_user_financial_input"

Comments

Post a Comment

Popular posts from this blog

networking - Vagrant-provisioned VirtualBox VM is not reachable from Ubuntu host -

this question exact duplicate of: puphpet/vagrant: unable access lamp vm ip address 1 answer i following basic vagrant tutorial , vagrant provisions box on ubuntu without complaining. moreover, can vagrant ssh vm. however, vm not reachable host: it's not possible ping it's ip address. what have achieved: installed virtualbox (5.1.24 r117012 (qt5.5.1)) , vagrant (1.9.7) onto ubuntu (16.04.2 lts) machine. provisioned vm vagrant up , vagrant finishes job , not complain. vagrant ssh works. i have manually installed lighttpd on guest vm , can ping/curl address: localhost within guest vm. this when trying reach guest vm host: ~/tmp/myfirstvagrantproject$ ping 172.22.22.22 ping 172.22.22.22 (172.22.22.22) 56(84) bytes of data. ... icmp_seq=4 destination net unreachable ... 171 packets transmitted, 0 received, +21 errors, 100% packet loss, time 173
Read more

c# - ASP.NET Core - There is already an object named 'AspNetRoles' in the database -

i'm receiving error applicationdbcontext database when trying update entity framework. i've googled, tried fixes here on so, no avail. i'm deleting database each time make change, once deploy, not option. here's error: pm> update-database -context applicationdbcontext system.data.sqlclient.sqlexception: there object named 'aspnetroles' in database. @ system.data.sqlclient.sqlconnection.onerror(sqlexception exception, boolean breakconnection, action 1 wrapcloseinaction) @ system.data.sqlclient.tdsparser.throwexceptionandwarning(tdsparserstateobject stateobj, boolean callerhasconnectionlock, boolean asyncclose) @ system.data.sqlclient.tdsparser.tryrun(runbehavior runbehavior, sqlcommand cmdhandler, sqldatareader datastream, bulkcopysimpleresultset bulkcopyhandler, tdsparserstateobject stateobj, boolean& dataready) @ system.data.sqlclient.sqlcommand.runexecutenonquerytds(string methodname, boolean async, int32 timeout, boolean
Read more

ruby on rails - ArgumentError: Missing host to link to! Please provide the :host parameter, set default_url_options[:host], or set :only_path to true -

i have built module in solidus , ruby on rails , try create tests. i trying create integration tests , have error: e error: prescriptionphotostest#test_/prescription_photos_post_endpoint_throws_an_error_when_wrong_params: argumenterror: missing host link to! please provide :host parameter, set default_url_options[:host], or set :only_path true test/integration/prescription_photos_test.rb:6:in `block in ' i read this , this , doesn't make difference. my code returning error on line: @user = factorygirl.create(:user) here code files. prescription_photos_rest.rb require 'test_helper' class prescriptionphotostest < actiondispatch::integrationtest setup spree::auth::config[:confirmable] = false @user = factorygirl.create(:user) end def authenticated_header token = knock::authtoken.new(payload: { sub: @user.id }).token { 'authorization': "bearer #{token}" } end test '/prescription_p
Read more