{"id":217791,"date":"2014-04-01T10:54:02","date_gmt":"2014-04-01T06:54:02","guid":{"rendered":"http:\/\/savepearlharbor.com\/?p=217791"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-29T21:00:00","slug":"","status":"publish","type":"post","link":"https:\/\/savepearlharbor.com\/?p=217791","title":{"rendered":"<span class=\"post_title\">\u041e\u0431\u043d\u043e\u0432\u043b\u044f\u0435\u043c\u044b\u0439 \u043c\u043d\u043e\u0433\u043e\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u044c\u0441\u043a\u0438\u0439 \u043c\u0430\u043a\u0440\u043e\u0441<\/span>"},"content":{"rendered":"<div class=\"content html_format\"> \t\t\t\u042f \u043d\u0435 \u0443\u043c\u0435\u044e \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u0442\u044c, \u043d\u043e \u043e\u0447\u0435\u043d\u044c \u043b\u044e\u0431\u043b\u044e!<br \/>  \u041d\u0435\u043c\u043d\u043e\u0433\u043e \u0438\u0437\u043c\u0435\u043d\u0435\u043d\u043d\u0430\u044f \u0446\u0438\u0442\u0430\u0442\u0430 \u0445\u0443\u0434\u043e\u0436\u043d\u0438\u043a\u0430 \u0412\u0430\u0441\u0438 \u041b\u043e\u0436\u043a\u0438\u043d\u0430. <br \/>  \u0421\u0442\u0430\u0442\u044c\u0435\u0439 \u0445\u043e\u0447\u0443 \u043f\u043e\u0434\u0435\u043b\u0438\u0442\u044c\u0441\u044f \u043e\u043f\u044b\u0442\u043e\u043c \u043f\u043e\u0434\u043d\u044f\u0442\u0438\u044f \u043c\u043d\u043e\u0433\u043e\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u044c\u0441\u043a\u043e\u0439 \u0441\u0438\u0441\u0442\u0435\u043c\u044b \u043d\u0430 VBA Excel. <br \/>  \u041d\u0430 \u043c\u043e\u043c\u0435\u043d\u0442 \u043f\u0440\u0438\u043d\u044f\u0442\u0438\u044f \u0440\u0435\u0448\u0435\u043d\u0438\u044f \u043e \u0441\u043e\u0437\u0434\u0430\u043d\u0438\u0438 \u0433\u0438\u0431\u043a\u043e\u0433\u043e \u043f\u0440\u0438\u043b\u043e\u0436\u0435\u043d\u0438\u044f, \u0431\u044b\u043b\u043e \u043f\u043e\u0440\u044f\u0434\u043a\u0430 7 \u043c\u0430\u043a\u0440\u043e\u0441\u043e\u0432, \u0440\u0430\u0431\u043e\u0442\u0430\u044e\u0449\u0438\u0445 \u043f\u043e \u0431\u043e\u043b\u044c\u0448\u0438\u043c \u043e\u0431\u044a\u0435\u043c\u0430\u043c (\u043d\u0435\u0441\u043a\u043e\u043b\u044c\u043a\u043e \u0444\u0430\u0439\u043b\u043e\u0432 \u043e\u0442 20 \u0442\u044b\u0441. \u0441\u0442\u0440\u043e\u043a \u0434\u043e 370 \u0442\u044b\u0441. \u0441\u0442\u0440\u043e\u043a), \u0432\u0435\u0441\u044f\u0449\u0438\u0445 \u043e\u0442 50 \u043a\u0438\u043b\u043e\u0431\u0430\u0439\u0442 \u0434\u043e 12 \u043c\u0435\u0433\u0430\u0431\u0430\u0439\u0442, \u043a\u0430\u0436\u0434\u044b\u0439 \u0438\u0437 \u043a\u043e\u0442\u043e\u0440\u044b\u0445 \u0431\u044b\u043b \u043d\u0430\u043f\u0438\u0441\u0430\u043d \u0432 \u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0438\u0438 \u0441\u043e \u0437\u043d\u0430\u043d\u0438\u044f\u043c\u0438 \u0441\u0443\u0449\u0435\u0441\u0442\u0432\u0443\u044e\u0449\u0438\u043c\u0438 \u043d\u0430 \u043c\u043e\u043c\u0435\u043d\u0442 \u043d\u0430\u043f\u0438\u0441\u0430\u043d\u0438\u044f. \u041a\u0430\u0436\u0434\u044b\u0439 \u043c\u0430\u043a\u0440\u043e\u0441 \u0438\u0437\u043c\u0435\u043d\u044f\u043b\u0441\u044f, \u0434\u043e\u043f\u0438\u0441\u044b\u0432\u0430\u043b\u0441\u044f, \u0438\u0441\u043f\u0440\u0430\u0432\u043b\u044f\u043b\u0441\u044f \u0432 \u0447\u0430\u0441\u0442\u0438 \u043e\u0448\u0438\u0431\u043e\u043a, \u0430 \u0443\u0447\u0438\u0442\u044b\u0432\u0430\u044f, \u0447\u0442\u043e \u044d\u0442\u0438\u043c\u0438 \u043c\u0430\u043a\u0440\u043e\u0441\u0430\u043c\u0438 \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u043b\u0438\u0441\u044c \u0431\u043e\u043b\u0435\u0435 60 \u0447\u0435\u043b\u043e\u0432\u0435\u043a, \u043d\u0435 \u0432\u0441\u0435 \u0438\u0437 \u043a\u043e\u0442\u043e\u0440\u044b\u0445 \u043e\u0442\u0441\u043b\u0435\u0436\u0438\u0432\u0430\u043b\u0438 \u0438\u0437\u043c\u0435\u043d\u0435\u043d\u0438\u044f, \u043f\u043e\u0441\u0442\u043e\u044f\u043d\u043d\u043e \u0434\u0435\u0440\u0433\u0430\u043b\u0438 \u043c\u0435\u043d\u044f \u043f\u043e\u043a\u0430\u0437\u044b\u0432\u0430\u044f \u043e\u0447\u0435\u0440\u0435\u0434\u043d\u0443\u044e \u043e\u0448\u0438\u0431\u043a\u0443, \u043a\u043e\u0442\u043e\u0440\u0443\u044e \u044f \u0443\u0436\u0435 \u0438\u0441\u043f\u0440\u0430\u0432\u0438\u043b \u0438 \u0432\u044b\u0441\u043b\u0430\u043b \u043d\u0430 \u0432\u0441\u0435\u0445. \u041e\u0431\u044a\u044f\u0441\u043d\u044f\u0442\u044c \u0442\u043e\u043b\u043f\u0435 \u043d\u0430\u0440\u043e\u0434\u0443 \u043a\u0430\u043a \u043f\u0440\u0430\u0432\u0438\u043b\u044c\u043d\u043e \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c\u0441\u044f \u043c\u0430\u043a\u0440\u043e\u0441\u0430\u043c\u0438, \u044f \u0431\u0440\u043e\u0441\u0438\u043b \u0441\u0440\u0430\u0437\u0443, \u0442\u0430\u043a \u043a\u0430\u043a \u0432\u0441\u0435\u0433\u0434\u0430 \u0432\u044b\u043f\u0430\u0434\u0435\u0442 \u0438\u0437 \u0437\u0432\u0435\u043d\u0430 2-3 \u0447\u0435\u043b\u043e\u0432\u0435\u043a\u0430, \u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u0432\u043e\u0437\u044c\u043c\u0443\u0442 \u0443\u0436\u0435 \u043e\u0442\u0444\u043e\u0440\u043c\u0430\u0442\u0438\u0440\u043e\u0432\u0430\u043d\u043d\u0443\u044e \u0442\u0430\u0431\u043b\u0438\u0446\u0443 \u0432 \u0440\u0430\u0431\u043e\u0442\u0443 \u0441 \u043c\u0430\u043a\u0440\u043e\u0441\u0430\u043c\u0438 \u0438 \u0434\u043e\u0432\u043e\u0434\u044b, \u043c\u043e\u043b \u044f \u043d\u0435 \u043c\u043e\u0433\u0443 \u043f\u0440\u0435\u0434\u0443\u0433\u0430\u0434\u0430\u0442\u044c \u043a\u0442\u043e \u0438 \u043a\u0430\u043a \u0438\u0437\u043c\u0435\u043d\u044f\u0435\u0442 \u0442\u0430\u0431\u043b\u0438\u0446\u044b, \u044d\u0442\u0438 \u043b\u044e\u0434\u0438 \u043d\u0435 \u043f\u043e\u043d\u0438\u043c\u0430\u044e\u0442.<\/p>\n<p>  \u041d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u043e \u0431\u044b\u043b\u043e \u0441\u0434\u0435\u043b\u0430\u0442\u044c \u043e\u0434\u0438\u043d \u043a\u043e\u0434, \u0430 \u043d\u0435 60 \u043a\u043e\u043f\u0438\u0439 \u043a\u0430\u0436\u0434\u043e\u0433\u043e \u0438\u0437\u043c\u0435\u043d\u0435\u043d\u0438\u044f, \u0432\u044b\u0441\u043b\u0430\u043d\u043d\u043e\u0433\u043e \u043f\u043e \u043f\u043e\u0447\u0442\u0435.<br \/>  <a name=\"habracut\"><\/a><br \/>  \u0420\u0435\u0448\u0435\u043d\u0438\u0435 \u0431\u044b\u0441\u0442\u0440\u043e \u043f\u0440\u0438\u0448\u043b\u043e \u0432 \u0433\u043e\u043b\u043e\u0432\u0443, \u0430 \u0433\u0443\u0433\u043b \u0431\u044b\u0441\u0442\u0440\u043e \u0432\u044b\u0434\u0430\u043b \u043c\u043d\u0435 \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442\u044b \u043f\u043e \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u043d\u043e\u043c\u0443 \u0438\u0437\u043c\u0435\u043d\u0435\u043d\u0438\u044e \u043a\u043e\u0434\u0430 VBA, \u043a\u043e\u0442\u043e\u0440\u0430\u044f \u0432 \u043f\u043e\u0441\u043b\u0435\u0434\u0441\u0442\u0432\u0438\u0438 \u0431\u044b\u043b\u0430 \u043e\u0442\u043a\u0430\u0442\u0430\u043d\u0430 \u043d\u0430 \u043f\u0440\u0430\u043a\u0442\u0438\u043a\u0435. \u0418\u0442\u0430\u043a, \u0442\u0435\u043a\u0441\u0442 \u0431\u0435\u0437 \u043a\u0430\u0440\u0442\u0438\u043d\u043e\u043a \u043d\u0435 \u0438\u043d\u0442\u0435\u0440\u0435\u0441\u0435\u043d, \u0432\u043e\u0442 \u043f\u0435\u0440\u0432\u0430\u044f, \u044d\u0442\u043e \u0441\u0442\u0440\u0443\u043a\u0442\u0443\u0440\u0430 \u043f\u0440\u0438\u043b\u043e\u0436\u0435\u043d\u0438\u044f, \u043a\u043e\u0442\u043e\u0440\u0430\u044f \u0432\u044b\u0433\u043b\u044f\u0434\u0435\u0442 \u0442\u0430\u043a: <\/p>\n<p>  <img decoding=\"async\" src=\"http:\/\/habrastorage.org\/getpro\/habr\/post_images\/2f0\/145\/bc4\/2f0145bc4dd82f460f88bdef26538154.jpg\" alt=\"image\"\/><br \/>  \u041f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u044c \u043e\u0442\u043a\u0440\u044b\u0432\u0430\u044f \u0444\u0430\u0439\u043b, \u0430\u043a\u0442\u0438\u0432\u0438\u0440\u0443\u044f \u0441\u043e\u0431\u044b\u0442\u0438\u0435 excel \u00ab\u043e\u0442\u043a\u0440\u044b\u0442\u0438\u0435 \u043a\u043d\u0438\u0433\u0438\u00bb \u0432\u044b\u043f\u043e\u043b\u043d\u044f\u0435\u0442 \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0443, \u043d\u0430\u0445\u043e\u0434\u044f\u0449\u0443\u044e\u0441\u044f \u0432 \u0444\u0430\u0439\u043b\u0435 \u00ab\u043a\u043b\u0438\u0435\u043d\u0442\u0435\u00bb. \u041f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0430 \u0444\u043e\u0440\u043c\u0438\u0440\u0443\u0435\u0442 \u043c\u0435\u043d\u044e, \u0447\u0438\u0442\u0430\u044f \u0444\u0430\u0439\u043b\u044b \u043d\u0430 \u0441\u0435\u0442\u0438. \u041d\u0430\u0436\u0438\u043c\u0430\u044f \u043d\u0430 \u043a\u043d\u043e\u043f\u043a\u0443 \u043d\u0443\u0436\u043d\u043e\u0433\u043e \u043c\u0430\u043a\u0440\u043e\u0441\u0430, \u0432\u044b\u043f\u043e\u043b\u043d\u044f\u0435\u0442\u0441\u044f \u0434\u0435\u0439\u0441\u0442\u0432\u0438\u0435 \u043f\u043e \u0441\u043e\u0437\u0434\u0430\u043d\u0438\u044e \u043c\u043e\u0434\u0443\u043b\u044f \u0432 \u043a\u043b\u0438\u0435\u043d\u0442\u0435, \u0438\u0437 \u0444\u0430\u0439\u043b\u0430 \u043d\u0430\u0445\u043e\u0434\u044f\u0449\u0435\u0433\u043e\u0441\u044f \u043d\u0430 \u0441\u0435\u0442\u0438, \u0432\u044b\u043f\u043e\u043b\u043d\u044f\u0435\u0442 \u0434\u0435\u0439\u0441\u0442\u0432\u0438\u044f \u0438 \u0443\u043d\u0438\u0447\u0442\u043e\u0436\u0430\u0435\u0442 \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0443 \u0432\u043d\u0443\u0442\u0440\u0438 \u0441\u0435\u0431\u044f.<\/p>\n<p>  \u0427\u0442\u043e \u043c\u044b \u043f\u043e\u043b\u0443\u0447\u0430\u0435\u043c: <br \/>   \u2014 \u0444\u0430\u0439\u043b \u0434\u043b\u044f \u043b\u044e\u0431\u043e\u0433\u043e \u043c\u0430\u043a\u0440\u043e\u0441\u0430 \u0432\u0441\u0435\u0433\u0434\u0430 \u043e\u0434\u0438\u043d.<br \/>   \u2014 \u043d\u0430\u0436\u0438\u043c\u0430\u044f \u043d\u0430 \u0432\u044b\u043f\u043e\u043b\u043d\u0435\u043d\u0438\u0435 \u043a\u0430\u043a\u043e\u0433\u043e \u043b\u0438\u0431\u043e \u043c\u0430\u043a\u0440\u043e\u0441\u0430, \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u044c \u0431\u0443\u0434\u0435\u0442 \u0432\u0441\u0435\u0433\u0434\u0430 \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c\u0441\u044f \u0441\u0430\u043c\u044b\u043c \u043f\u043e\u0441\u043b\u0435\u0434\u043d\u0438\u043c \u043a\u043e\u0434\u043e\u043c, \u0447\u0442\u043e \u0443\u043f\u0440\u043e\u0449\u0430\u0435\u0442 \u043f\u043e\u0434\u0434\u0435\u0440\u0436\u043a\u0443 \u043c\u0430\u043a\u0440\u043e\u0441\u043e\u0432.<br \/>   \u2014 \u0432\u043e\u0437\u043c\u043e\u0436\u043d\u043e\u0441\u0442\u044c \u043f\u0438\u0441\u0430\u0442\u044c \u043b\u043e\u0433 \u0444\u0430\u0439\u043b \u043f\u043e \u043e\u0448\u0438\u0431\u043a\u0430\u043c, \u0441 \u0443\u043a\u0430\u0437\u0430\u043d\u0438\u0435\u043c \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u044f, \u043d\u0430 \u0441\u043b\u0443\u0447\u0430\u0439 \u043d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u043e\u0441\u0442\u0438 \u0438\u0437\u0431\u0438\u0442\u044c \u0442\u043e\u0433\u043e \u043a\u0442\u043e \u0432\u0441\u0435 \u0438\u0441\u043f\u043e\u0440\u0442\u0438\u043b.<\/p>\n<p>  \u0414\u0430\u043b\u0435\u0435 \u0431\u0443\u0434\u0435\u0442 \u043c\u043d\u043e\u0433\u043e \u043a\u043e\u043f\u0438\u043f\u0430\u0441\u0442\u0430 \u043f\u043e \u043a\u043e\u0434\u0443, \u0438\u0437\u043c\u0435\u043d\u0435\u043d\u043d\u043e\u0433\u043e \u043f\u043e\u0434 \u043c\u043e\u0438 \u0437\u0430\u0434\u0430\u0447\u0438, \u044f \u0431\u044b \u0441 \u0443\u0434\u043e\u0432\u043e\u043b\u044c\u0441\u0442\u0432\u0438\u0435\u043c \u0443\u043a\u0430\u0437\u0430\u043b \u0430\u0432\u0442\u043e\u0440\u043e\u0432, \u043d\u043e \u0447\u0435\u0441\u0442\u043d\u043e \u043d\u0435 \u0437\u043d\u0430\u044e, \u043c\u043d\u043e\u0433\u043e \u043a\u043e\u0434\u0430 \u0431\u0440\u0430\u043b \u0441 \u0431\u0443\u0440\u0436\u0443\u0439\u0441\u043a\u0438\u0445 \u0440\u0435\u0441\u0443\u0440\u0441\u043e\u0432, \u0447\u0442\u043e \u0442\u043e \u0441 \u0440\u043e\u0441\u0441\u0438\u0439\u0441\u043a\u0438\u0445, \u0447\u0442\u043e \u0442\u043e \u043f\u0440\u0438\u0434\u0443\u043c\u0430\u043d\u043e \u043c\u043d\u043e\u044e, \u0432\u0441\u0435 \u044d\u0442\u043e \u043a\u043e\u043f\u0438\u043b\u043e\u0441\u044c \u0432 \u0442\u0435\u0447\u0435\u043d\u0438\u0438 \u043f\u043e\u043b\u0443\u0433\u043e\u0434\u0430 \u043c\u0438\u043d\u0438\u043c\u0443\u043c, \u0442\u0430\u043a \u0447\u0442\u043e \u0437\u0430\u0440\u0430\u043d\u0435\u0435 \u0431\u043e\u043b\u044c\u0448\u043e\u0435 \u0441\u043e\u0440\u0440\u0438 \u043f\u0435\u0440\u0435\u0434 \u043f\u0435\u0440\u0432\u043e\u0438\u0441\u0442\u043e\u0447\u043d\u0438\u043a\u0430\u043c\u0438, \u0435\u0441\u043b\u0438 \u0447\u0435\u0433\u043e, \u043f\u0438\u0448\u0438\u0442\u0435, \u0443\u0434\u0430\u043b\u044e.<\/p>\n<p>  \u0418\u0442\u0430\u043a, \u043f\u0440\u0430\u043a\u0442\u0438\u0447\u0435\u0441\u043a\u0430\u044f \u0447\u0430\u0441\u0442\u044c. <\/p>\n<p>  \u0412\u0435\u0448\u0430\u0435\u043c \u0441\u043e\u0431\u044b\u0442\u0438\u0435 \u043d\u0430 \u043e\u0442\u043a\u0440\u044b\u0442\u0438\u0435 \u043a\u043d\u0438\u0433\u0438:<\/p>\n<pre><code class=\"vbscript\">Private Sub Workbook_Open() create_module_for_file End Sub<\/code><\/pre>\n<p>  \u041a\u043e\u0434 \u043d\u0435 \u0445\u0438\u0442\u0440\u044b\u0439, \u043a\u043e\u043d\u0446\u0435\u043f\u0446\u0438\u044f \u043e\u0434\u043d\u0430, \u0434\u0430\u0442\u044c \u043f\u0438\u043d\u043e\u043a \u0434\u043b\u044f \u0434\u0430\u043b\u044c\u043d\u0435\u0439\u0448\u0438\u0445 \u0434\u0435\u0439\u0441\u0442\u0432\u0438\u0439<br \/>  \u041f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0430 create_module_for_file:  <\/p>\n<pre><code>filemod = OpenFileModule(&quot;menu&quot;) cl_d.create_module (&quot;menu&quot;) cl_d.write_sub_for_module_action filemod, &quot;menu&quot;  filemod = OpenFileModule(&quot;list_action&quot;) cl_d.create_module (&quot;list_action&quot;) cl_d.write_sub_for_module_action filemod, &quot;list_action&quot; <\/code><\/pre>\n<p>  \u0422\u0440\u0438 \u0441\u0442\u0440\u043e\u043a\u0438 \u0442\u0440\u0438 \u0434\u0435\u0439\u0441\u0442\u0432\u0438\u044f, \u0432 \u043d\u0430\u0447\u0430\u043b\u0435 \u043d\u0430\u043c \u043d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u043e \u043f\u043e\u0434\u043e\u0431\u0440\u0430\u0442\u044c \u0444\u0430\u0439\u043b \u0441 \u043c\u043e\u0434\u0443\u043b\u0435\u043c. \u0417\u0430 \u044d\u0442\u043e \u043e\u0442\u0432\u0435\u0447\u0430\u0435\u0442 \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0430\u044f \u0444\u0443\u043d\u043a\u0446\u0438\u044f:  <\/p>\n<pre><code>Function OpenFileModule(namemodule)     Set FSO = CreateObject(&quot;Scripting.FileSystemObject&quot;)     filepath = &quot;\\\\0400cmnfscl\\usc\\\u0414\u043f\u0412\u0423\\\u041e\u041e\u0421\u0438\u041c\u041f\u0417\\\u041e\u0431\u0449\u0430\u044f\\\u041c\u0430\u043a\u0440\u043e\u0441&quot;     mSearch = &quot;.txt&quot;     OpenFileModule = FSO.GetFile(filepath & &quot;\\&quot; & namemodule & mSearch) End Function <\/code><\/pre>\n<p>  \u0414\u0430\u043b\u0435\u0435 \u0441\u043e\u0437\u0434\u0430\u0435\u043c \u043c\u043e\u0434\u0443\u043b\u044c:  <\/p>\n<pre><code>Function create_module(name_module)  ' \u0441\u043e\u0437\u0434\u0430\u0435\u043c \u043d\u043e\u0432\u044b\u0439 \u043c\u043e\u0434\u0443\u043b\u044c \u043c\u0430\u043a\u0440\u043e\u0441\u0430 \u0438 \u043f\u043e\u0434\u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c ThisWorkbook.VBProject.VBComponents.Add vbext_ct_StdModule ' \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u044f\u0435\u043c \u0438\u043d\u0434\u0435\u043a\u0441 \u0441\u043e\u0437\u0434\u0430\u043d\u043d\u043e\u0433\u043e \u043c\u043e\u0434\u0443\u043b\u044f k = ThisWorkbook.VBProject.VBComponents.Count ' \u0434\u0430\u0435\u043c \u0441\u0432\u043e\u0435 \u0438\u043c\u044f \u043c\u043e\u0434\u0443\u043b\u044f ThisWorkbook.VBProject.VBComponents.Item(k).Name = name_module End Function <\/code><\/pre>\n<p>  \u0418 \u043f\u0438\u0448\u0435\u043c \u0432 \u043c\u043e\u0434\u0443\u043b\u044c \u043a\u043e\u0434 \u0438\u0437 \u0444\u0430\u0439\u043b\u0430  <\/p>\n<pre><code>Function write_sub_for_module_action(filepath, filename)     Open filepath For Input As #1      s = &quot;&quot;     Do Until EOF(1)         Line Input #1, Data         s = s & Data & z & z     Loop      Set vbComp = ThisWorkbook.VBProject.VBComponents(filename)      With vbComp.CodeModule         .InsertLines .CountOfLines + 1, s     End With     Set vbComp = Nothing     Close #1 End Function <\/code><\/pre>\n<p>  \u041f\u043e\u043b\u0443\u0447\u0438\u0432 \u0444\u0430\u0439\u043b\u044b, \u043f\u043e\u0434\u0433\u0440\u0443\u0436\u0430\u0435\u043c \u043c\u0435\u043d\u044e.<br \/>  \u041f\u0440\u0438 \u0437\u0430\u0433\u0440\u0443\u0437\u043a\u0435 \u0444\u043e\u0440\u043c\u0438\u0440\u0443\u0435\u0442\u0441\u044f \u043c\u0435\u043d\u044e, \u043a\u043e\u0442\u043e\u0440\u043e\u0435 \u043f\u043e\u043c\u0435\u0449\u0430\u0435\u0442\u0441\u044f \u0432 \u043d\u0430\u0434\u0441\u0442\u0440\u043e\u0439\u043a\u0438<br \/>  <img decoding=\"async\" src=\"http:\/\/habrastorage.org\/getpro\/habr\/post_images\/375\/76a\/159\/37576a159567818cb6841465a5b24a87.jpg\" alt=\"image\"\/><br \/>  \u041f\u043e \u043a\u043e\u0434\u0443:<br \/>  -\u0434\u043b\u044f \u043d\u0430\u0447\u0430\u043b\u0430 \u0443\u0434\u0430\u043b\u0438\u043c, \u043d\u0430 \u0441\u043b\u0443\u0447\u0430\u0439 \u0435\u0441\u043b\u0438 \u0431\u0443\u0434\u0435\u0442 \u043e\u0431\u043d\u043e\u0432\u043b\u0435\u043d\u0438\u0435:   <\/p>\n<pre><code> Application.CommandBars(1).Controls(&quot;MTS_K&quot;).Delete - \u0441\u043e\u0437\u0434\u0430\u0435\u043c \u043f\u0430\u043d\u0435\u043b\u044c &lt;source lang=\u00abVBScript\u00bb&gt;  \u2018 \u0432\u044b\u0447\u0438\u0441\u043b\u044f\u0435\u043c \u043a\u0443\u0434\u0430 \u043f\u043e\u043b\u043e\u0436\u0438\u0442\u044c, \u043f\u043e\u0437\u0438\u0446\u0438\u044e, \u0432 \u0441\u043b\u0443\u0447\u0430\u0435 \u0435\u0441\u043b\u0438 \u0443\u0436\u0435 \u0435\u0441\u0442\u044c \u043e\u0442\u043a\u0440\u044b\u0442\u044b\u0435 \u043d\u0430\u0434\u0441\u0442\u0440\u043e\u0439\u043a\u0438 MenuPos = Application.CommandBars(1).FindControl(ID:=30010).Index + 1 \u2018 \u0434\u043e\u0431\u0430\u0432\u043b\u044f\u0435\u043c \u043f\u0430\u043d\u0435\u043b\u044c Set Menu = Application.CommandBars(1).Controls.Add(Type:=msoControlPopup, before:=MenuPos, temporary:=True) \u2018 \u0437\u0430\u0434\u0430\u0435\u043c \u0438\u043c\u044f \u0434\u043b\u044f \u043f\u0430\u043d\u0435\u043b\u0438 Menu.Caption = &quot;MTS_K&quot; <\/code><\/pre>\n<p>  \u041f\u0430\u043d\u0435\u043b\u044c \u0441\u043e\u0437\u0434\u0430\u043b\u0438, \u0442\u0435\u043f\u0435\u0440\u044c \u0441\u043e\u0437\u0434\u0430\u0435\u043c \u043d\u0435\u043f\u043e\u0441\u0440\u0435\u0434\u0441\u0442\u0432\u0435\u043d\u043d\u043e \u043c\u0435\u043d\u044e, \u043a\u043e\u0442\u043e\u0440\u043e\u0435 \u0431\u0443\u0434\u0435\u0442 \u0441\u043e\u0437\u0434\u0430\u0432\u0430\u0442\u044c \u043a\u043d\u043e\u043f\u043a\u0438 \u043d\u0435\u043f\u043e\u0441\u0440\u0435\u0434\u0441\u0442\u0432\u0435\u043d\u043d\u043e \u043f\u043e \u043a\u0430\u0436\u0434\u043e\u043c\u0443 \u0444\u0430\u0439\u043b\u0443 \u0441 \u043c\u0430\u043a\u0440\u043e\u0441\u0430\u043c\u0438.   <\/p>\n<pre><code> \u2018 \u0441\u043e\u0437\u0434\u0430\u0435\u043c \u043a\u043d\u043e\u043f\u043a\u0443 \u0434\u043b\u044f \u043f\u043e\u0434\u043c\u0435\u043d\u044e Set Menuname = Menu.Controls.Add(Type:=msoControlPopup) \u2018 \u0437\u0430\u0434\u0430\u0435\u043c \u0438\u043c\u044f \u0434\u043b\u044f \u043a\u043d\u043e\u043f\u043a\u0438 Menuname.Caption = &quot;\u041f\u0435\u0440\u0435\u0432\u043e\u0434 YES-&gt;NO&quot; <\/code><\/pre>\n<p>  \u041f\u043e\u0441\u043b\u0435 \u0442\u043e\u0433\u043e \u043a\u0430\u043a \u043c\u0435\u043d\u044e \u0441\u043e\u0437\u0434\u0430\u043d\u043e, \u0434\u043e\u0431\u0430\u0432\u043b\u044f\u044e\u0442\u0441\u044f \u043a\u043d\u043e\u043f\u043a\u0438. \u041c\u0435\u043d\u044e \u0441\u0442\u0440\u043e\u0438\u043b\u043e\u0441\u044c \u043f\u043e \u043f\u0440\u0438\u043d\u0446\u0438\u043f\u0443 \u0444\u0430\u0439\u043b -&gt; \u043e\u0434\u043d\u0430 \u043a\u043d\u043e\u043f\u043a\u0430. \u0412 \u0441\u0432\u043e\u044e \u043e\u0447\u0435\u0440\u0435\u0434\u044c \u043f\u043e \u043e\u0434\u043d\u043e\u043c\u0443 \u0444\u0430\u0439\u043b\u0443 \u0441 \u043c\u0430\u043a\u0440\u043e\u0441\u043e\u043c \u043c\u043e\u0436\u0435\u0442 \u0431\u044b\u0442\u044c \u043d\u0435\u0441\u043a\u043e\u043b\u044c\u043a\u043e \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440, \u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u043d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u043e \u0432\u044b\u0437\u044b\u0432\u0430\u0442\u044c, \u0432\u043e\u0442 \u0432 \u043f\u043e\u0434 \u043c\u0435\u043d\u044e \u0438\u0445 \u0438 \u0441\u0443\u0435\u043c. \u0414\u0430\u043d\u043d\u044b\u0439 \u043a\u043e\u0434 \u0441\u043e\u0437\u0434\u0430\u0435\u0442 3 \u043a\u043d\u043e\u043f\u043a\u0438:   <\/p>\n<pre><code> Set SubItem = MenuItem.Controls.Add(Type:=msoControlButton) \u2018 \u0434\u043e\u0431\u0430\u0432\u043b\u044f\u0435\u0442 \u043a\u043d\u043e\u043f\u043a\u0443 SubItem.Caption = &quot;\u041a\u0430\u0440\u0442\u043e\u0442\u0435\u043a\u0430 \u043a \u0432\u0438\u0434\u0443&quot; \u2018 \u043d\u0430\u0437\u0432\u0430\u043d\u0438\u0435, \u043a\u043e\u0442\u043e\u0440\u043e\u0435 \u0431\u0443\u0434\u0435\u0442 \u043e\u0442\u043e\u0431\u0440\u0430\u0436\u0430\u0442\u044c\u0441\u044f \u0432 \u043c\u0435\u043d\u044e SubItem.FaceId = &quot;801&quot; \u2018 \u0437\u0434\u0435\u0441\u044c \u0443\u043a\u0430\u0437\u044b\u0432\u0430\u0435\u043c \u0430\u0439\u0434\u0438 \u043a\u0430\u0440\u0442\u0438\u043d\u043a\u0438, \u0434\u043b\u044f \u043e\u0442\u043e\u0431\u0440\u0430\u0436\u0435\u043d\u0438\u044f \u0443 \u043a\u043d\u043e\u043f\u043a\u0438 SubItem.OnAction = &quot;action11a&quot; \u2018 \u0437\u0434\u0435\u0441\u044c \u043d\u0430\u0437\u0432\u0430\u043d\u0438\u0435 \u0432\u044b\u0437\u044b\u0432\u0430\u0435\u043c\u043e\u0439 \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u044b SubItem.Enabled = True \u2018 \u043e\u0442\u043e\u0431\u0440\u0430\u0436\u0430\u0435\u043c \u0438\u043b\u0438 \u043d\u0435\u0442  Set SubItem = MenuItem.Controls.Add(Type:=msoControlButton) SubItem.Caption = &quot;\u0421\u0444\u043e\u0440\u043c\u0438\u0440\u043e\u0432\u0430\u0442\u044c \u0444\u0430\u0439\u043b\u044b&quot; SubItem.FaceId = &quot;1038&quot; SubItem.OnAction = &quot; action12a&quot; SubItem.Enabled = True  Set SubItem = MenuItem.Controls.Add(Type:=msoControlButton) SubItem.Caption = &quot;\u0421\u0444\u043e\u0440\u043c\u0438\u0440\u043e\u0432\u0430\u0442\u044c \u0444\u0430\u0439\u043b\u044b \u0434\u043b\u044f \u043c\u043e\u0434\u0435\u0440\u043d\u0438\u0437\u0430\u0446\u0438\u0438&quot; SubItem.FaceId = &quot;1038&quot; SubItem.OnAction = &quot; action13a&quot; SubItem.Enabled = True <\/code><\/pre>\n<p>  \u0420\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442 \u043f\u0440\u0438\u043c\u0435\u0440\u043d\u043e \u0432\u043e\u0442:<br \/>  <img decoding=\"async\" src=\"https:\/\/lh4.googleusercontent.com\/CnyBNKxBVjOfC53_RP8fe0TELLuJW6HsJSSgts25wO8=w461-h192-p-no\" alt=\"image\"\/><br \/>  \u0412 \u0440\u0435\u0436\u0438\u043c\u0435 \u043d\u0430\u043f\u0438\u0441\u0430\u043d\u0438\u044f \u0438\u0437\u043c\u0435\u043d\u0438\u043b \u043a\u043e\u043d\u0446\u0435\u043f\u0446\u0438\u044e \u0440\u0430\u0431\u043e\u0442\u044b. \u0417\u0430\u0434\u0430\u0447\u0430 \u0441\u0442\u043e\u044f\u043b\u0430 \u0432 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u043d\u0438\u0438 \u043f\u043e\u0441\u043b\u0435\u0434\u043d\u0435\u0439 \u0432\u0435\u0440\u0441\u0438\u0438 \u043a\u043e\u0434\u0430 \u043f\u0440\u0438 \u043a\u0430\u0436\u0434\u043e\u043c \u043d\u0430\u0436\u0430\u0442\u0438\u0438 \u00ab\u0432\u044b\u043f\u043e\u043b\u043d\u0438\u0442\u044c \u043c\u0430\u043a\u0440\u043e\u0441\u00bb. \u0423\u0447\u0438\u0442\u044b\u0432\u0430\u044f \u044d\u0442\u0438 \u043e\u0431\u0441\u0442\u043e\u044f\u0442\u0435\u043b\u044c\u0441\u0442\u0432\u0430, \u043a \u043a\u043b\u0438\u0435\u043d\u0442\u0443 \u0431\u0443\u0434\u0443\u0442 \u0437\u0430\u0433\u0440\u0443\u0436\u0430\u0442\u044c\u0441\u044f \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d\u043d\u044b\u0435 \u0444\u0430\u0439\u043b\u044b, \u043d\u0430\u0437\u043e\u0432\u0435\u043c \u0438\u0445 \u0438\u043d\u0434\u0435\u043a\u0441\u043d\u044b\u043c \u0444\u0430\u0439\u043b\u0430\u043c, \u0442\u043e \u0435\u0441\u0442\u044c \u043f\u043e\u0441\u0442\u043e\u044f\u043d\u043d\u043e \u043f\u0440\u0438\u0441\u0443\u0442\u0441\u0442\u0432\u0443\u044e\u0449\u0438\u043c \u043f\u043e\u0441\u043b\u0435 \u043e\u0442\u043a\u0440\u044b\u0442\u0438\u044f \u0444\u0430\u0439\u043b\u0430 \u043c\u043e\u0434\u0443\u043b\u044f\u043c, \u044d\u0442\u043e \u00abmenu\u00bb \u0438 \u00ablist action\u00bb, \u0430 \u043d\u0435\u043f\u043e\u0441\u0440\u0435\u0434\u0441\u0442\u0432\u0435\u043d\u043d\u043e \u0444\u0430\u0439\u043b\u044b \u043c\u0430\u043a\u0440\u043e\u0441\u043e\u0432 \u0431\u0443\u0434\u0443\u0442 \u043f\u043e\u0434\u0433\u0440\u0443\u0436\u0430\u0442\u044c\u0441\u044f \u043f\u043e \u043d\u0430\u0436\u0430\u0442\u0438\u044e \u043a\u043d\u043e\u043f\u043a\u0438. \u0412 \u0447\u0435\u043c \u0438\u0445 \u0441\u043c\u044b\u0441\u043b: \u0444\u0430\u0439\u043b \u043c\u0435\u043d\u044e \u0444\u043e\u0440\u043c\u0438\u0440\u0443\u0435\u0442 \u043c\u0435\u043d\u044e \ud83d\ude42   <\/p>\n<pre><code>     Set MenuItem = PLEXMenu.Controls.Add(Type:=msoControlPopup)     MenuItem.Caption = &quot;\u0420\u0430\u0431\u043e\u0442\u0430 \u043f\u043e \u043a\u0430\u0440\u0442\u043e\u0442\u0435\u043a\u0435&quot;     Set SubItem = MenuItem.Controls.Add(Type:=msoControlButton)      SubItem.Caption = &quot;\u041a\u0430\u0440\u0442\u043e\u0442\u0435\u043a\u0430 \u043a \u0432\u0438\u0434\u0443&quot;     SubItem.FaceId = &quot;801&quot;     SubItem.OnAction = &quot;action11&quot;     SubItem.Enabled = True  <\/code><\/pre>\n<p>  \u0412 \u043c\u0435\u043d\u044e \u043c\u044b \u0432\u0438\u0434\u0438\u043c \u0441\u043e\u0431\u044b\u0442\u0438\u0435, \u0441\u0441\u044b\u043b\u0430\u044e\u0449\u0435\u0435\u0441\u044f \u043d\u0430 \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0443 \u00abaction1\u2026x\u00bb, \u043a\u043e\u0442\u043e\u0440\u0430\u044f \u0441\u0438\u0434\u0438\u0442 \u0432\u043e \u0432\u0442\u043e\u0440\u043e\u043c \u0444\u0430\u0439\u043b\u0435 \u00ablist_action\u00bb. \u041f\u043e\u0441\u043c\u043e\u0442\u0440\u0438\u043c \u043d\u0430 \u0435\u0433\u043e \u0441\u043e\u0434\u0435\u0440\u0436\u0438\u043c\u043e\u0435  <\/p>\n<pre><code> Sub action11()     Set cl_d = New Edit_module     On Error Resume Next     cl_d.delete_modul_full (&quot;action_yes_no&quot;)     filemod = OpenFileModule(&quot;action_yes_no&quot;)     cl_d.create_module (&quot;action_yes_no&quot;)     cl_d.write_sub_for_module_action filemod, &quot;action_yes_no&quot;     kart_view  End Sub <\/code><\/pre>\n<p>  \u0427\u0442\u043e \u043c\u044b \u0434\u0435\u043b\u0430\u0435\u043c, \u0432\u043e-\u043f\u0435\u0440\u0432\u044b\u0445 \u043d\u0430\u043c \u043d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u043e \u0443\u0434\u0430\u043b\u0438\u0442\u044c \u043c\u043e\u0434\u0443\u043b\u044c \u0434\u043b\u044f \u0442\u043e\u0433\u043e \u0447\u0442\u043e \u0431\u044b \u0435\u0433\u043e \u0437\u0430\u043d\u043e\u0433\u043e \u0437\u0430\u0433\u0440\u0443\u0437\u0438\u0442\u044c \u0438 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c, \u043c\u0430\u043b\u043e \u043b\u0438 \u043a\u043e\u0434 \u0438\u0437\u043c\u0435\u043d\u0435\u043d. \u0414\u0430\u043b\u0435\u0435 \u043c\u044b \u043e\u0442\u043a\u0440\u044b\u0432\u0430\u0435\u043c \u0444\u0430\u0439\u043b, \u0441\u043e\u0437\u0434\u0430\u0435\u043c \u043c\u043e\u0434\u0443\u043b\u044c \u0438 \u043f\u0438\u0448\u0435\u043c \u0432 \u043d\u0435\u0433\u043e \u043a\u043e\u0434 \u0438\u0437 \u0444\u0430\u0439\u043b\u0430. <br \/>  \u041f\u043e\u0441\u043b\u0435 \u044d\u0442\u0438\u0445 \u043c\u0430\u043d\u0438\u043f\u0443\u043b\u044f\u0446\u0438\u0439 \u043d\u0430\u043c \u043d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u043e \u0432\u044b\u0437\u0432\u0430\u0442\u044c \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0443, \u0432\u044b\u043f\u043e\u043b\u043d\u044f\u044e\u0449\u0443\u044e \u043c\u0430\u043d\u0438\u043f\u0443\u043b\u044f\u0446\u0438\u0438, \u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u043f\u043e\u0434\u0440\u0430\u0437\u0443\u043c\u0435\u0432\u0430\u043b\u0438\u0441\u044c \u043d\u0430\u0436\u0430\u0442\u0438\u0435\u043c \u043d\u0430 \u043a\u043d\u043e\u043f\u043a\u0443 \u0432\u044b\u043f\u043e\u043b\u043d\u0435\u043d\u0438\u044f \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u044b.<br \/>  \u0417\u0434\u0435\u0441\u044c \u0438\u043d\u0442\u0435\u0440\u0435\u0441\u043d\u043e)<br \/>  \u0415\u0441\u043b\u0438 \u043c\u044b \u0443\u043a\u0430\u0436\u0435\u043c \u0438\u043c\u044f \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u044b, \u043a\u043e\u0442\u043e\u0440\u0430\u044f \u043d\u0430\u0445\u043e\u0434\u0438\u0442\u0441\u044f \u043d\u0435\u043f\u043e\u0441\u0440\u0435\u0434\u0441\u0442\u0432\u0435\u043d\u043d\u043e \u0432 \u043a\u043e\u0434\u0435 \u0432\u044b\u0448\u0435, \u0443 \u043d\u0430\u0441 \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0430 action11 \u0440\u0443\u0433\u043d\u0435\u0442\u0441\u044f \u043d\u0430 \u0442\u043e \u0447\u0442\u043e \u043d\u0435 \u043c\u043e\u0436\u0435\u0442 \u043d\u0430\u0439\u0442\u0438 \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0443 \u00abkart_view\u00bb, \u0438 \u043f\u0440\u0430\u0432\u0438\u043b\u044c\u043d\u043e, \u0432\u0435\u0434\u044c \u043f\u043e \u0444\u0430\u043a\u0442\u0443 \u0435\u0435 \u043d\u0430 \u043c\u043e\u043c\u0435\u043d\u0442 \u043d\u0430\u0436\u0430\u0442\u0438\u044f \u043a\u043d\u043e\u043f\u043a\u0438 \u0438\u0441\u043f\u043e\u043b\u043d\u0435\u043d\u0438\u044f \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u044b \u043d\u0435\u0442, \u043d\u0430 \u044d\u0442\u043e\u0442 \u0441\u043b\u0443\u0447\u0430\u0439 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u043d \u043b\u0430\u0439\u0444\u0445\u0430\u043a, \u0441\u043e\u0437\u0434\u0430\u0435\u0442\u0441\u044f \u0444\u0443\u043d\u043a\u0446\u0438\u044f, \u043a\u043e\u0442\u043e\u0440\u0430\u044f \u0432 \u0441\u0432\u043e\u044e \u043e\u0447\u0435\u0440\u0435\u0434\u044c \u0432\u044b\u0437\u044b\u0432\u0430\u0435\u0442 \u044d\u0442\u0443 \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0443, \u043a\u043e\u0434 \u0432\u043e\u0442:   <\/p>\n<pre><code> Sub action11()     Set cl_d = New Edit_module     On Error Resume Next     cl_d.delete_modul_full (&quot;action_yes_no&quot;)     filemod = OpenFileModule(&quot;action_yes_no&quot;)     cl_d.create_module (&quot;action_yes_no&quot;)     cl_d.write_sub_for_module_action filemod, &quot;action_yes_no&quot;     action11a End Sub Function action11a()     kart_view End Function <\/code><\/pre>\n<p>  \u0422\u043e \u0435\u0441\u0442\u044c \u043d\u0430 \u043c\u043e\u043c\u0435\u043d\u0442 \u0432\u044b\u0437\u043e\u0432\u0430 \u00abkart_view\u00bb \u0438\u0437 \u00abaction11a\u00bb, \u0434\u0430\u043d\u043d\u0430\u044f \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0430 \u0443\u0436\u0435 \u0431\u0443\u0434\u0435\u0442 \u0437\u0430\u0433\u0440\u0443\u0436\u0435\u043d\u0430 \u0432 \u043c\u043e\u0434\u0443\u043b\u044c, vba \u043f\u043e\u0434\u0432\u043e\u0445\u0430 \u043d\u0435 \u0432\u0438\u0434\u0438\u0442.<br \/>  \u041f\u043e\u043b\u0443\u0447\u0430\u0435\u043c\u044b\u0439 \u0438\u0442\u043e\u0433: \u0436\u043c\u0435\u043c \u043d\u0430 \u043a\u043d\u043e\u043f\u043a\u0443, \u0437\u0430\u0433\u0440\u0443\u0436\u0430\u0435\u0442\u0441\u044f \u043a\u043e\u0434 \u0432 \u043c\u043e\u0434\u0443\u043b\u044c, \u0432\u044b\u043f\u043e\u043b\u043d\u044f\u0435\u0442\u0441\u044f. \u0412 \u0441\u043b\u0443\u0447\u0430\u0435 \u043f\u043e\u0432\u0442\u043e\u0440\u043d\u043e\u0433\u043e \u0432\u044b\u043f\u043e\u043b\u043d\u0435\u043d\u0438\u044f \u043c\u043e\u0434\u0443\u043b\u044c \u0443\u0434\u0430\u043b\u044f\u0435\u0442\u0441\u044f, \u0433\u0440\u0443\u0437\u0438\u0442\u0441\u044f \u0437\u0430\u043d\u043e\u0432\u043e, \u0432\u044b\u043f\u043e\u043b\u043d\u044f\u0435\u0442\u0441\u044f. \u041f\u0440\u0438 \u0437\u0430\u043a\u0440\u044b\u0442\u0438\u0438 \u0444\u0430\u0439\u043b\u0430 \u043a\u043d\u0438\u0433\u0430 \u043e\u0442\u0447\u0438\u0449\u0430\u0435\u0442\u0441\u044f \u043e\u0442 \u0432\u0441\u0435\u0433\u043e, \u0434\u043b\u044f \u0442\u043e\u0433\u043e \u0447\u0442\u043e \u0431\u044b \u043d\u0435 \u0437\u0430\u043d\u0438\u043c\u0430\u0442\u044c \u043c\u0435\u0441\u0442\u043e \u0438 \u0441\u043f\u043e\u043a\u043e\u0439\u043d\u043e \u043b\u0435\u0436\u0430\u0442\u044c \u0434\u043e \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0435\u0433\u043e \u043e\u0442\u043a\u0440\u044b\u0442\u0438\u044f.<br \/>  \u0415\u0449\u0435 \u043f\u0430\u0440\u0443 \u0441\u043b\u043e\u0432 \u043f\u043e \u043e\u0431\u0440\u0430\u0431\u043e\u0442\u043a\u0435 \u0431\u043e\u043b\u044c\u0448\u0438\u0445 \u0444\u0430\u0439\u043b\u043e\u0432, \u0434\u0443\u043c\u0430\u044e \u0431\u0443\u0434\u0435\u0442 \u0438\u043d\u0442\u0435\u0440\u0435\u0441\u043d\u043e. \u041a\u0430\u043a \u0433\u043e\u0432\u043e\u0440\u0438\u043b\u043e\u0441\u044c, \u0444\u0430\u0439\u043b\u044b \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u044e\u0442\u0441\u044f \u0431\u043e\u043b\u044c\u0448\u043e\u0433\u043e \u043e\u0431\u044a\u0435\u043c\u0430, \u0431\u043e\u043b\u0435\u0435 300 \u0442\u044b\u0441.\u0441\u0442\u0440\u043e\u043a, \u0438\u0437 \u043a\u043e\u0442\u043e\u0440\u044b\u0445 \u043d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u043e \u0432\u044b\u0431\u0440\u0430\u0442\u044c, \u043a\u0430\u043a \u043f\u0440\u0430\u0432\u0438\u043b\u043e, \u0442\u044b\u0441. 10-30 \u0438 \u0440\u0430\u0431\u043e\u0442\u0430\u0442\u044c \u0441 \u043d\u0438\u043c\u0438. <br \/>  \u0415\u0441\u043b\u0438 \u0431\u044b \u043c\u0435\u043d\u044f \u0441 \u043f\u043e\u043b \u0433\u043e\u0434\u0430 \u043d\u0430\u0437\u0430\u0434 \u0441\u043f\u0440\u043e\u0441\u0438\u043b\u0438 \u043a\u0430\u043a \u0441\u0434\u0435\u043b\u0430\u0442\u044c \u0432\u044b\u0431\u043e\u0440\u043a\u0443, \u044f \u0431\u044b \u043d\u0435 \u0432\u0435\u0434\u0430\u044f \u0441\u043a\u0430\u0437\u0430\u043b \u0431\u044b \u0446\u0438\u043a\u043b \u0441 \u0443\u0441\u043b\u043e\u0432\u0438\u0435\u043c. \u0412 \u043f\u043e\u0441\u043b\u0435\u0434\u0441\u0442\u0432\u0438\u0438 \u0431\u044b\u043b\u043e \u043f\u0435\u0440\u0435\u043f\u0440\u043e\u0431\u043e\u0432\u0430\u043d\u043e \u043c\u043d\u043e\u0433\u043e \u0441\u043f\u043e\u0441\u043e\u0431\u043e\u0432, \u043e\u043f\u0438\u0448\u0443 \u043a\u0430\u0436\u0434\u044b\u0439, \u0442\u0430\u043a, \u0434\u043b\u044f \u0438\u043d\u0444\u043e, \u043a\u0440\u043e\u043c\u0435 \u0442\u0435\u0445 \u0447\u0442\u043e \u043c\u043e\u0436\u043d\u043e \u0440\u0435\u0430\u043b\u0438\u0437\u043e\u0432\u0430\u0442\u044c \u0441\u0442\u0430\u043d\u0434\u0430\u0440\u0442\u043d\u044b\u043c\u0438 \u0444\u0443\u043d\u043a\u0446\u0438\u044f\u043c\u0438 excel.<br \/>  \u0418\u0441\u0445\u043e\u0434\u043d\u044b\u0435 \u0434\u0430\u043d\u043d\u044b\u0435: \u0435\u0441\u0442\u044c \u0442\u0430\u0431\u043b\u0438\u0446\u0430 300 \u0442\u044b\u0441 \u0441\u0442\u0440\u043e\u043a, \u0438\u0437\u0432\u0435\u0441\u0442\u043d\u043e 10 \u0442\u044b\u0441 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0439, \u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u043d\u0430\u043c \u043d\u0443\u0436\u043d\u044b.<br \/>  1) \u0412\u043d\u0430\u0447\u0430\u043b\u0435 \u044f \u043f\u043e\u043f\u044b\u0442\u0430\u043b\u0441\u044f \u0441\u0434\u0435\u043b\u0430\u0442\u044c \u0432\u044b\u0431\u043e\u0440\u043a\u0443 \u0446\u0438\u043a\u043b\u043e\u043c  <\/p>\n<pre><code> tab1 = \u0442\u0430\u0431\u043b\u0438\u0446\u0430 \u043e\u0434\u0438\u043d tab2 = \u0442\u0430\u0431\u043b\u0438\u0446\u0430 \u043e\u0434\u0438\u043d col_tab1 = tab1.Cells(Rows.Count, 1).End(xlUp).Row \u2018\u043a\u043e\u043b\u0438\u0447\u0435\u0441\u0442\u0432\u043e \u0441\u0442\u0440\u043e\u043a \u043f\u0435\u0440\u0432\u043e\u0439 \u0442\u0430\u0431\u043b\u0438\u0446\u044b (10 \u0442\u044b\u0441) col_tab2 = tab2.Cells(Rows.Count, 1).End(xlUp).Row \u2018\u043a\u043e\u043b\u0438\u0447\u0435\u0441\u0442\u0432\u043e \u0441\u0442\u0440\u043e\u043a \u0432\u0442\u043e\u0440\u043e\u0439 \u0442\u0430\u0431\u043b\u0438\u0446\u044b (300 \u0442\u044b\u0441) for i = 1 to col_tab1 for ii = 1 to col_tab2 \tif tab1.cells(ii,1) = tab2.cells(i,1) then \t\t\u0434\u0435\u0439\u0441\u0442\u0432\u0438\u044f \t\texit for \tend if next ii  next i <\/code><\/pre>\n<p>  \u0427\u0442\u043e \u043f\u043e\u043b\u0443\u0447\u0430\u0435\u043c, \u0435\u0441\u043b\u0438 \u043d\u0435 \u0437\u0430\u0432\u0435\u0440\u0448\u0430\u0442\u044c \u0446\u0438\u043a\u043b, \u043f\u043e\u043b\u0443\u0447\u0430\u0435\u0442\u0441\u044f \u0447\u0442\u043e \u043d\u0430\u043c 10000 \u0440\u0430\u0437 \u043d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u043e \u043f\u0435\u0440\u0435\u0431\u0440\u0430\u0442\u044c 300000 \u0441\u0442\u0440\u043e\u043a \u0434\u043b\u044f \u043f\u043e\u0438\u0441\u043a\u0430 \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442\u0430. \u041e\u0442\u0440\u0430\u0431\u0430\u0442\u044b\u0432\u0430 vba \u0431\u0443\u0434\u0435\u0442 \u043f\u0440\u0438\u043c\u0435\u0440\u043d\u043e 500 \u0441\u0442\u0440\u043e\u043a \u0432 \u0441\u0435\u043a\u0443\u043d\u0434\u0443, \u0438\u0442\u043e\u0433\u043e<br \/>  3000000000\/500 = 6000000 \u0441\u0435\u043a\u0443\u043d\u0434, (100000 \u043c\u0438\u043d\u0443\u0442 \u0438\u043b\u0438 1666,66 \u0447\u0430\u0441\u043e\u0432 \u0438\u043b\u0438 69 \u0434\u043d\u0435\u0439 \u0438\u043b\u0438 9 \u043d\u0435\u0434\u0435\u043b\u044c \u0438\u043b\u0438 \u2026)<br \/>  \u0410 \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442 \u043a\u0430\u043a \u043f\u0440\u0430\u0432\u0438\u043b\u043e \u043d\u0443\u0436\u0435\u043d \u0437\u0434\u0435\u0441\u044c \u0438 \u0441\u0435\u0439\u0447\u0430\u0441, \u043d\u0443 \u0438\u043b\u0438 \u0447\u0435\u0440\u0435\u0437 \u043f\u0430\u0440\u0443 \u043c\u0438\u043d\u0443\u0442 \u043c\u0430\u043a\u0441\u0438\u043c\u0443\u043c, \u0442\u0430\u043a \u0447\u0442\u043e \u0441\u0440\u0430\u0437\u0443 \u043d\u0435\u0442.<br \/>  2) \u0412\u0442\u043e\u0440\u043e\u0439 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u043c\u044b\u0439 \u043c\u043d\u043e\u044e \u0441\u043f\u043e\u0441\u043e\u0431 \u2013 \u0440\u0430\u0431\u043e\u0442\u0430 \u0441 mysql \u0441\u0435\u0440\u0432\u0435\u0440\u043e\u043c<br \/>  \u0414\u043b\u044f \u0440\u0430\u0431\u043e\u0442\u044b \u0441 mysql \u0441\u0435\u0440\u0432\u0435\u0440\u043e\u043c, \u043a\u043e\u0442\u043e\u0440\u044b\u0439 \u0443\u0436\u0435 \u0431\u044b\u043b, \u0434\u043b\u044f \u0434\u0440\u0443\u0433\u043e\u0433\u043e \u043f\u0440\u043e\u0435\u043a\u0442\u0430, \u0431\u044b\u043b \u043d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c \u0434\u0440\u0430\u0439\u0432\u0435\u0440 mysql ODBC, \u0438\u0445 \u043c\u043d\u0435 \u0431\u044b\u043b\u043e \u0438\u0437\u0432\u0435\u0441\u0442\u043d\u043e 2, \u0432\u0435\u0440\u0441\u0438\u044f 3.51, \u0438 \u0432\u0435\u0440\u0441\u0438\u044f 5.1 \u0412\u044b\u0431\u043e\u0440 \u043f\u0430\u043b \u043d\u0430 3.51, \u0442\u0430\u043a \u043a\u0430\u043a \u0432\u0442\u043e\u0440\u043e\u0439, \u043f\u043e \u043e\u0431\u0441\u0443\u0436\u0434\u0435\u043d\u0438\u044f\u043c \u0435\u0433\u043e \u0440\u0430\u0431\u043e\u0442\u044b \u043d\u0430 \u0444\u043e\u0440\u0443\u043c\u0430\u0445, \u043d\u0435 \u043e\u0447\u0435\u043d\u044c \u0445\u043e\u0440\u043e\u0448\u043e \u0440\u0430\u0431\u043e\u0442\u0430\u043b \u0441 \u043a\u043e\u0434\u0438\u0440\u043e\u0432\u043a\u0430\u043c\u0438, \u0430 \u0431\u0430\u0437\u0443 \u0445\u043e\u0442\u0435\u043b\u043e\u0441\u044c \u0432 utf8<br \/>  \u0414\u0440\u0430\u0439\u0432\u0435\u0440 \u043c\u043d\u0435 \u043f\u043e\u0441\u0442\u0430\u0432\u0438\u043b\u0438, \u0438 \u043f\u0435\u0440\u0432\u0430\u044f \u043a\u043e\u0447\u043a\u0430, \u043d\u0430 \u043a\u043e\u0442\u043e\u0440\u043e\u0439 \u044f \u0441\u043f\u043e\u0442\u043a\u043d\u0443\u043b\u0441\u044f \u2013 \u043f\u0440\u0430\u0432\u0430 \u0434\u043e\u0441\u0442\u0443\u043f\u0430<\/p>\n<p>  \u0422\u043e \u0435\u0441\u0442\u044c \u043d\u0443\u0436\u043d\u0430 \u0443\u0447\u0435\u0442\u043d\u0430\u044f \u0437\u0430\u043f\u0438\u0441\u044c \u0434\u043b\u044f \u043f\u043e\u0434\u043a\u043b\u044e\u0447\u0435\u043d\u0438\u044f \u0438\u0437 \u0432\u043d\u0435, \u0432 \u043d\u0430\u0448\u0435\u043c \u0441\u043b\u0443\u0447\u0430\u0435 \u044d\u0442\u043e \u0431\u0443\u0434\u0435\u0442 vba-\u043c\u0430\u043a\u0440\u043e\u0441 \u043a\u043e\u0442\u043e\u0440\u044b\u0439 \u043c\u0430\u0442\u0435\u0440\u0438\u043b\u0441\u044f \u0442\u0430\u043a:<br \/>  <img decoding=\"async\" src=\"https:\/\/lh4.googleusercontent.com\/h0bVMi2pRwUtJPh9_cZrZNmx1h773tPpyIGfhZZfehA=w386-h192-p-no\" alt=\"image\"\/><br \/>  \u041f\u043e\u043a\u0443\u0440\u0438\u0432 \u043c\u0430\u043d\u0443\u0430\u043b\u044b sql, \u043d\u0430\u0448\u0435\u043b \u044d\u0442\u043e  <\/p>\n<pre><code>CREATE USER '%'@'user' IDENTIFIED BY PASSWORD 'mtspass'; GRANT SELECT ON *.* TO '%'@'user';  <\/code><\/pre>\n<p>  \u0422\u043e \u0435\u0441\u0442\u044c, \u043f\u043e \u0437\u0430\u043f\u0440\u043e\u0441\u0443 \u0432\u044b\u0448\u0435, \u0441\u043e\u0437\u0434\u0430\u0435\u0442\u0441\u044f \u0443\u0447\u0435\u0442\u043d\u0430\u044f \u0437\u0430\u043f\u0438\u0441\u044c \u0434\u043b\u044f \u043b\u044e\u0431\u043e\u0433\u043e \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u044f \u0441 \u0440\u0443\u0442 \u043f\u0440\u0430\u0432\u0430\u043c\u0438. <br \/>  \u0415\u0441\u0442\u0435\u0441\u0442\u0432\u0435\u043d\u043d\u043e \u0440\u0443\u0442 \u043f\u0440\u0430\u0432 \u043c\u043d\u0435 \u043d\u0438\u043a\u0442\u043e \u043d\u0435 \u0434\u0430\u043b \u0438 \u043f\u0440\u043e\u0435\u043a\u0442 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u044e\u0449\u0438\u0439 mysql \u0441\u0435\u0440\u0432\u0435\u0440 \u0434\u043b\u044f \u0445\u0440\u0430\u043d\u0435\u043d\u0438\u044f \u0434\u0430\u043d\u043d\u044b\u0445, \u0431\u044b\u043b \u00ab\u0437\u0430\u043c\u043e\u0440\u043e\u0436\u0435\u043d\u00bb \u0442\u0430\u043a \u043a\u0430\u043a \u0432 \u043f\u0435\u0440\u0441\u043f\u0435\u043a\u0442\u0438\u0432\u0435 \u043d\u0443\u0436\u043d\u043e \u0431\u044b\u043b\u043e \u043f\u0438\u0441\u0430\u0442\u044c \u0432 \u0431\u0430\u0437\u0443 \u0434\u0430\u043d\u043d\u044b\u0435, \u0443 \u043c\u0435\u043d\u044f \u0431\u044b\u043b\u043e \u0442\u043e\u043b\u044c\u043a\u043e \u0447\u0442\u0435\u043d\u0438\u0435. <br \/>  \u0414\u043b\u044f \u043e\u0446\u0435\u043d\u043a\u0438 \u044d\u0444\u0444\u0435\u043a\u0442\u0438\u0432\u043d\u043e\u0441\u0442\u0438: \u043e\u0434\u0438\u043d \u0438 \u0442\u043e\u0442 \u0436\u0435 \u043c\u0430\u043a\u0440\u043e\u0441 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u044f \u043f\u0435\u0440\u0435\u0431\u043e\u0440\u044b \u0441 \u043f\u043e\u043c\u043e\u0449\u044c\u044e \u0446\u0438\u043a\u043b\u043e\u0432 \u0440\u0430\u0431\u043e\u0442\u0430\u043b 59 \u0441\u0435\u043a\u0443\u043d\u0434, \u0441 sql \u0443\u0434\u0430\u043b\u043e\u0441\u044c \u0441\u0434\u0435\u043b\u0430\u0442\u044c \u0432\u0441\u0435 \u0442\u043e \u0436\u0435 \u0441\u0430\u043c\u043e\u0435 \u0437\u0430 3,5-4 \u0441\u0435\u043a\u0443\u043d\u0434\u044b, \u0442\u043e \u0435\u0441\u0442\u044c \u0440\u0435\u0430\u043b\u044c\u043d\u043e \u0443\u0434\u0430\u043b\u043e\u0441\u044c \u0443\u0441\u043a\u043e\u0440\u0438\u0442\u044c\u0441\u044f \u0431\u043e\u043b\u0435\u0435 \u0447\u0435\u043c \u0432 10 \u0440\u0430\u0437.<br \/>  \u041f\u043e \u043a\u043e\u0434\u0443 \u0445\u043e\u0440\u043e\u0448\u0430\u044f \u0441\u0442\u0430\u0442\u044c\u044f \u0432\u043e\u0442 \u0437\u0434\u0435\u0441\u044c: <a href=\"http:\/\/egregors.blogspot.ru\/2013\/05\/mysql-vba-excel-mysql.html\">egregors.blogspot.ru\/2013\/05\/mysql-vba-excel-mysql.html<\/a><br \/>  3) \u041f\u0440\u043e\u0434\u043e\u043b\u0436\u0430\u044f \u043a\u0443\u0440\u0438\u0442\u044c \u0442\u0435\u043c\u0443 sql, \u043d\u0430\u0447\u0430\u043b \u0440\u0430\u0431\u043e\u0442\u0443 \u043f\u043e \u0440\u0430\u0431\u043e\u0442\u0435 \u0441 access.<br \/>  \u041a\u043e\u0434 \u043f\u043e\u043b\u0443\u0447\u0430\u0435\u0442\u0441\u044f \u0430\u0434\u043e\u0432\u044b\u0439, \u043d\u043e \u0440\u0430\u0431\u043e\u0447\u0438\u0439.   <\/p>\n<pre><code> Set cN = New ADODB.Connection \u2018\u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0430\u044f \u043f\u043e\u0434\u043a\u043b\u044e\u0447\u0435\u043d\u0438\u044f     cN.Open &quot;Provider=Microsoft.Jet.OLEDB.4.0; Data Source=\\\\0400cmnfscl05fs\\usc\\\u0414\u043f\u0412\u0423\\\u041e\u041e\u0421\u0438\u041c\u041f\u0417\\\u0413\u0423\u041e\u043f\u041e\u0421\\\u0424\u0418\u041e\\base\\base&quot; & Environ(&quot;USERNAME&quot;) & &quot;.mdb; Jet OLEDB:Database;&quot; \u2018 \u043f\u043e\u0434\u043a\u043b\u044e\u0447\u0430\u0435\u043c\u044f \u043a \u0444\u0430\u0439\u043b\u0443 \u0431\u0430\u0437\u044b       \u2018 \u0441\u043e\u0431\u0435\u0440\u0435\u043c \u043d\u0443\u0436\u043d\u044b\u0435 \u0430\u043a\u0442\u0438\u0432\u044b \u0434\u043b\u044f \u043f\u043e\u0438\u0441\u043a\u0430     for i = 1 to col_tab1         nabor_act = nabor_act & \u201c\u2019,\u2019\u201d & tab1.cells(i,1)     next i     Set RS = New ADODB.Recordset \u2018 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0430\u044f \u0432 \u043a\u043e\u0442\u043e\u0440\u0443\u044e \u0431\u0443\u0434\u0435\u0442 \u0437\u0430\u043d\u0435\u0441\u0435\u043d \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442     RS.Open &quot;SELECT * FROM kartoteka WHERE nom_act LIKE \u2018\u201d & right(nabor_act, len(nabor_act)-3) & \u201d\u2019 ;&quot;, cN, adOpenStatic, adLockOptimistic     o = 2     Do While Not RS.EOF             ter.Cells(o, 1) = &quot;\u0420\u0421\u0411\u0423&quot; & Right$(RS.Fields(1).Value, 6)             ter.Cells(o, 2) = RS.Fields(2).Value             ter.Cells(o, 3) = &quot;\u041a\u041e\u0420\u0420\u0415\u041a\u0422&quot;             ter.Cells(o, 4) = RS.Fields(6).Value             ter.Cells(o, 5) = &quot;&quot;                          o = o + 1         RS.MoveNext     Loop     cN.Close     Set cN = Nothing <\/code><\/pre>\n<p>  \u0414\u0430\u043d\u043d\u044b\u0439 \u0441\u043f\u043e\u0441\u043e\u0431 \u0440\u0430\u0431\u043e\u0442\u0430\u0435\u0442 \u043c\u0435\u0434\u043b\u0435\u043d\u043d\u0435\u0435 \u0447\u0435\u043c mysql, \u043f\u043e\u0447\u0435\u043c\u0443 \u0442\u043e, \u043d\u043e \u0432\u043f\u043e\u043b\u043d\u0435 \u043f\u0440\u0438\u0435\u043c\u043b\u0435\u043c \u0434\u043b\u044f \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u043d\u0438\u044f. \u041d\u043e \u043d\u0435 \u043c\u043d\u0435\u2026<br \/>  \u041e\u0442\u043a\u0430\u0437\u0430\u043b\u0441\u044f \u044f \u043e\u0442 \u043d\u0435\u0433\u043e \u0432 \u043f\u0435\u0440\u0432\u044b\u0439 \u0436\u0435 \u0440\u0430\u0437, \u043a\u043e\u0433\u0434\u0430 \u043d\u0443\u0436\u043d\u0430 \u0431\u044b\u043b\u0430 \u0441\u0438\u0441\u0442\u0435\u043c\u0430 \u043f\u0440\u0438 \u043a\u043e\u0442\u043e\u0440\u043e\u043c \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u044c \u0432 \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d\u043d\u043e\u0439 \u043f\u0430\u043f\u043a\u0435 \u0441\u043e\u0437\u0434\u0430\u0435\u0442 \u0431\u0430\u0437\u0443 \u0438 \u043f\u0438\u0448\u0435\u0442 \u0442\u0443\u0434\u0430 2 \u0442\u0430\u0431\u043b\u0438\u0446\u044b \u043f\u043e 300 \u0442\u044b\u0441.\u0441\u0442\u0440\u043e\u043a, \u0434\u043b\u044f \u0438\u0445 \u0441\u0440\u0430\u0432\u043d\u0435\u043d\u0438\u044f \u0438 \u0432\u044b\u0447\u0438\u0441\u043b\u0435\u043d\u0438\u044f. \u041f\u0440\u0438 \u0442\u0435\u0441\u0442\u0430\u0445 \u0443 \u043c\u0435\u043d\u044f \u043f\u043e\u043b\u0443\u0447\u0438\u043b\u0430\u0441\u044c \u0431\u0430\u0437\u0430 \u0440\u0430\u0437\u043c\u0435\u0440\u043e\u043c \u043e\u043a\u043e\u043b\u043e 600 \u043c\u0435\u0442\u0440\u043e\u0432, \u0443\u0447\u0438\u0442\u044b\u0432\u0430\u044f \u0447\u0442\u043e \u0432 \u043f\u0435\u0440\u0441\u043f\u0435\u043a\u0442\u0438\u0432\u0435 \u044d\u0442\u0438\u043c \u043c\u0430\u043a\u0440\u043e\u0441\u043e\u043c \u043e\u0434\u043d\u043e\u0432\u0440\u0435\u043c\u0435\u043d\u043d\u043e \u043c\u043e\u0436\u0435\u0442 \u0432\u043e\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c\u0441\u044f 50 \u0447\u0435\u043b\u043e\u0432\u0435\u043a, \u043f\u043e\u043b\u0443\u0447\u0430\u0435\u0442\u0441\u044f \u043f\u0430\u043f\u043a\u0430 \u0440\u0430\u0437\u043c\u0435\u0440\u043e\u043c \u0432 \u043f\u0440\u0438\u043c\u0435\u0440\u043d\u043e 25-30 \u0433\u0438\u0433\u043e\u0432, \u0437\u0430 \u043a\u043e\u0442\u043e\u0440\u0443\u044e \u043c\u0435\u043d\u044f \u0430\u0434\u043c\u0438\u043d\u044b \u0447\u0435\u0442\u0432\u0435\u0440\u0442\u043e\u0432\u0430\u043b\u0438 \u0431\u044b \u0441\u0440\u0430\u0437\u0443.<br \/>  4) \u0421\u043e\u0431\u0441\u0442\u0432\u0435\u043d\u043d\u043e \u0441\u043f\u043e\u0441\u043e\u0431 \u043d\u0430 \u043a\u043e\u0442\u043e\u0440\u043e\u043c \u044f \u043e\u0441\u0442\u0430\u043d\u043e\u0432\u0438\u043b\u0441\u044f. \u0414\u0430, \u0440\u0430\u0431\u043e\u0442\u0430\u0435\u0442 \u043c\u0435\u0434\u043b\u0435\u043d\u043d\u0435\u0435 \u0432\u0442\u043e\u0440\u043e\u0433\u043e \u0438 \u0442\u0440\u0435\u0442\u044c\u0435\u0433\u043e \u0441\u043f\u043e\u0441\u043e\u0431\u0430, \u043d\u043e \u0434\u0430\u043d\u043d\u044b\u0435 \u043d\u0435\u0434\u043e\u0441\u0442\u0430\u0442\u043a\u0438 \u043a\u043e\u043c\u043f\u0435\u043d\u0441\u0438\u0440\u0443\u044e\u0442\u0441\u044f \u0444\u0443\u043d\u043a\u0446\u0438\u043e\u043d\u0430\u043b\u044c\u043d\u043e\u0441\u0442\u044c\u044e. Sql \u0437\u0430\u043f\u0440\u043e\u0441 \u043f\u043e \u043a\u043d\u0438\u0433\u0435  <\/p>\n<pre><code> Set cn = New ADODB.Connection ' \u044d\u043a\u0437\u0435\u043c\u043f\u043b\u044f\u0440 \u043a\u043b\u0430\u0441\u0441\u0430 \u043a\u043e\u043d\u043d\u0435\u043a\u0442\u0430     cn.ConnectionString = &quot;Provider=Microsoft.ACE.OLEDB.12.0;Data Source=&quot; & ActiveWorkbook.path & &quot;\\&quot; & ActiveWorkbook.Name & &quot;;Extended Properties=Excel 12.0;&quot; ' \u043f\u043e\u0434\u043a\u043b\u044e\u0447\u0430\u0435\u043c\u0441\u044f \u043a \u0444\u0430\u0439\u043b\u0443     cn.ConnectionTimeout = 40      cn.Open \u2018 \u0441\u043e\u0431\u0435\u0440\u0435\u043c \u043d\u0443\u0436\u043d\u044b\u0435 \u0430\u043a\u0442\u0438\u0432\u044b \u0434\u043b\u044f \u043f\u043e\u0438\u0441\u043a\u0430     for i = 1 to col_tab1         nabor_act = nabor_act & \u201c\u2019,\u2019\u201d & tab1.cells(i,1)     next i          sql = &quot;SELECT * FROM [res$] WHERE [\u041d\u043e\u043c\u0435\u0440 \u0430\u043a\u0442\u0438\u0432\u0430] \u2018\u201d & right(nabor_act, len(nabor_act)-3) & \u201d\u2019 &quot;          Dim rs As New ADODB.Recordset     Set rs = New ADODB.Recordset ' \u044d\u043a\u0437\u0435\u043c\u043f\u043b\u044f\u0440 \u043a\u043b\u0430\u0441\u0441\u0430 \u0437\u0430\u043f\u0438\u0441\u0438     rs.ActiveConnection = cn ' \u0433\u043e\u0432\u043e\u0440\u0438\u043c \u043e\u0442\u043a\u0443\u0434\u0430 \u0438\u0434\u0435\u0442 \u0441\u043e\u0435\u0434\u0438\u043d\u0435\u043d\u0438\u0435     rs.LockType = adLockOptimistic ' \u044d\u0442\u043e \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u043f\u043e\u0437\u0432\u043e\u043b\u044f\u0435\u0442 \u0432\u044b\u0438\u0433\u0440\u0430\u0442\u044c \u0432 \u043f\u0440\u043e\u0438\u0437\u0432\u043e\u0434\u0438\u0442\u0435\u043b\u044c\u043d\u043e\u0441\u0442\u0438 \u0437\u0430 \u0441\u0447\u0435\u0442 \u043f\u0440\u043e\u0438\u0433\u0440\u044b\u0448\u0430 \u0432 \u043d\u0430\u0434\u0435\u0436\u043d\u043e\u0441\u0442\u0438 \u043e\u0431\u0435\u0441\u043f\u0435\u0447\u0435\u043d\u0438\u044f \u0446\u0435\u043b\u043e\u0441\u0442\u043d\u043e\u0441\u0442\u0438 \u0434\u0430\u043d\u043d\u044b\u0445. \u0417\u0430\u043f\u0438\u0441\u044c \u043d\u0430 \u0438\u0441\u0442\u043e\u0447\u043d\u0438\u043a\u0435 \u0431\u043b\u043e\u043a\u0438\u0440\u0443\u0435\u0442\u0441\u044f \u0442\u043e\u043b\u044c\u043a\u043e \u043d\u0430 \u0432\u0440\u0435\u043c\u044f \u0432\u044b\u043f\u043e\u043b\u043d\u0435\u043d\u0438\u044f \u043c\u0435\u0442\u043e\u0434\u0430 Update(). \u041e\u0441\u0442\u0430\u043b\u044c\u043d\u044b\u0435 \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u0438 \u043c\u043e\u0433\u0443\u0442 \u043e\u0434\u043d\u043e\u0432\u0440\u0435\u043c\u0435\u043d\u043d\u043e \u0441 \u0432\u0430\u043c\u0438 \u0447\u0438\u0442\u0430\u0442\u044c \u0438 \u0438\u0437\u043c\u0435\u043d\u044f\u0442\u044c \u0434\u0430\u043d\u043d\u044b\u0435 \u043d\u0430 \u0438\u0441\u0442\u043e\u0447\u043d\u0438\u043a\u0435.     rs.CursorLocation = adUseClient ' \u043a\u0443\u0440\u0441\u043e\u0440 \u043d\u0430 \u0441\u0442\u043e\u0440\u043e\u043d\u0435 \u043a\u043b\u0438\u0435\u043d\u0442\u0430     rs.source = sql ' \u0437\u0430\u043f\u0440\u043e\u0441     rs.Open               rs.MoveFirst ' \u043d\u0430\u0447\u0430\u0442\u044c \u0441 \u043f\u0435\u0440\u0432\u043e\u0439 \u0437\u0430\u043f\u0438\u0441\u0438     rew = &quot;&quot;     Do Until rs.EOF ' \u043f\u0435\u0440\u0435\u0431\u0438\u0440\u0430\u0435\u043c \u0432\u043f\u0435\u0440\u0435\u0434         rew = rew & &quot;','&quot; & rs.Fields(0).Value         rs.MoveNext ' \u043f\u0435\u0440\u0435\u0445\u043e\u0434 \u043a \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0435\u0439 \u0441\u0442\u0440\u043e\u043a\u0435     Loop     rs.Close     cn.Close <\/code><\/pre>\n<p>  \u0412\u043e\u0442\u2026 \u0415\u0441\u043b\u0438 \u0431\u0440\u0430\u0442\u044c \u0443\u0441\u043b\u043e\u0432\u0438\u044f \u043f\u0440\u0438\u043c\u0435\u0440\u0430, \u043d\u0430 \u0432\u0441\u043a\u0438\u0434\u043a\u0443 \u0433\u0434\u0435 \u0442\u043e \u0441\u0435\u043a\u0443\u043d\u0434 10 \u0441\u043e\u0431\u0435\u0440\u0435\u0442\u0441\u044f \u0441\u0442\u0440\u043e\u043a\u0430 \u0434\u043b\u044f \u0437\u0430\u043f\u0440\u043e\u0441\u0430, \u0441\u0435\u043a\u0443\u043d\u0434 25 \u043f\u043e\u0432\u0438\u0441\u0438\u0442 \u0437\u0430\u043f\u0440\u043e\u0441 \u0441 \u0432\u044b\u0431\u043e\u0440\u043a\u043e\u0439, \u0441\u0435\u043a\u0443\u043d\u0434 10 \u043d\u0430 \u043e\u0442\u0440\u0430\u0431\u043e\u0442\u043a\u0443 \u0432 \u0437\u0430\u0432\u0438\u0441\u0438\u043c\u043e\u0441\u0442\u0438 \u043e\u0442 \u043d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u043e\u0433\u043e \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442\u0430. <br \/>  \u041a\u0430\u043a \u0442\u043e \u0442\u0430\u043a. \t\t\t<\/p>\n<div class=\"clear\"><\/div>\n<\/p><\/div>\n<p> \u0441\u0441\u044b\u043b\u043a\u0430 \u043d\u0430 \u043e\u0440\u0438\u0433\u0438\u043d\u0430\u043b \u0441\u0442\u0430\u0442\u044c\u0438 <a href=\"http:\/\/habrahabr.ru\/post\/217791\/\"> http:\/\/habrahabr.ru\/post\/217791\/<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"<div class=\"content html_format\"> \t\t\t\u042f \u043d\u0435 \u0443\u043c\u0435\u044e \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u0442\u044c, \u043d\u043e \u043e\u0447\u0435\u043d\u044c \u043b\u044e\u0431\u043b\u044e!<br \/>  \u041d\u0435\u043c\u043d\u043e\u0433\u043e \u0438\u0437\u043c\u0435\u043d\u0435\u043d\u043d\u0430\u044f \u0446\u0438\u0442\u0430\u0442\u0430 \u0445\u0443\u0434\u043e\u0436\u043d\u0438\u043a\u0430 \u0412\u0430\u0441\u0438 \u041b\u043e\u0436\u043a\u0438\u043d\u0430. <br \/>  \u0421\u0442\u0430\u0442\u044c\u0435\u0439 \u0445\u043e\u0447\u0443 \u043f\u043e\u0434\u0435\u043b\u0438\u0442\u044c\u0441\u044f \u043e\u043f\u044b\u0442\u043e\u043c \u043f\u043e\u0434\u043d\u044f\u0442\u0438\u044f \u043c\u043d\u043e\u0433\u043e\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u044c\u0441\u043a\u043e\u0439 \u0441\u0438\u0441\u0442\u0435\u043c\u044b \u043d\u0430 VBA Excel. <br \/>  \u041d\u0430 \u043c\u043e\u043c\u0435\u043d\u0442 \u043f\u0440\u0438\u043d\u044f\u0442\u0438\u044f \u0440\u0435\u0448\u0435\u043d\u0438\u044f \u043e \u0441\u043e\u0437\u0434\u0430\u043d\u0438\u0438 \u0433\u0438\u0431\u043a\u043e\u0433\u043e \u043f\u0440\u0438\u043b\u043e\u0436\u0435\u043d\u0438\u044f, \u0431\u044b\u043b\u043e \u043f\u043e\u0440\u044f\u0434\u043a\u0430 7 \u043c\u0430\u043a\u0440\u043e\u0441\u043e\u0432, \u0440\u0430\u0431\u043e\u0442\u0430\u044e\u0449\u0438\u0445 \u043f\u043e \u0431\u043e\u043b\u044c\u0448\u0438\u043c \u043e\u0431\u044a\u0435\u043c\u0430\u043c (\u043d\u0435\u0441\u043a\u043e\u043b\u044c\u043a\u043e \u0444\u0430\u0439\u043b\u043e\u0432 \u043e\u0442 20 \u0442\u044b\u0441. \u0441\u0442\u0440\u043e\u043a \u0434\u043e 370 \u0442\u044b\u0441. \u0441\u0442\u0440\u043e\u043a), \u0432\u0435\u0441\u044f\u0449\u0438\u0445 \u043e\u0442 50 \u043a\u0438\u043b\u043e\u0431\u0430\u0439\u0442 \u0434\u043e 12 \u043c\u0435\u0433\u0430\u0431\u0430\u0439\u0442, \u043a\u0430\u0436\u0434\u044b\u0439 \u0438\u0437 \u043a\u043e\u0442\u043e\u0440\u044b\u0445 \u0431\u044b\u043b \u043d\u0430\u043f\u0438\u0441\u0430\u043d \u0432 \u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0438\u0438 \u0441\u043e \u0437\u043d\u0430\u043d\u0438\u044f\u043c\u0438 \u0441\u0443\u0449\u0435\u0441\u0442\u0432\u0443\u044e\u0449\u0438\u043c\u0438 \u043d\u0430 \u043c\u043e\u043c\u0435\u043d\u0442 \u043d\u0430\u043f\u0438\u0441\u0430\u043d\u0438\u044f. \u041a\u0430\u0436\u0434\u044b\u0439 \u043c\u0430\u043a\u0440\u043e\u0441 \u0438\u0437\u043c\u0435\u043d\u044f\u043b\u0441\u044f, \u0434\u043e\u043f\u0438\u0441\u044b\u0432\u0430\u043b\u0441\u044f, \u0438\u0441\u043f\u0440\u0430\u0432\u043b\u044f\u043b\u0441\u044f \u0432 \u0447\u0430\u0441\u0442\u0438 \u043e\u0448\u0438\u0431\u043e\u043a, \u0430 \u0443\u0447\u0438\u0442\u044b\u0432\u0430\u044f, \u0447\u0442\u043e \u044d\u0442\u0438\u043c\u0438 \u043c\u0430\u043a\u0440\u043e\u0441\u0430\u043c\u0438 \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u043b\u0438\u0441\u044c \u0431\u043e\u043b\u0435\u0435 60 \u0447\u0435\u043b\u043e\u0432\u0435\u043a, \u043d\u0435 \u0432\u0441\u0435 \u0438\u0437 \u043a\u043e\u0442\u043e\u0440\u044b\u0445 \u043e\u0442\u0441\u043b\u0435\u0436\u0438\u0432\u0430\u043b\u0438 \u0438\u0437\u043c\u0435\u043d\u0435\u043d\u0438\u044f, \u043f\u043e\u0441\u0442\u043e\u044f\u043d\u043d\u043e \u0434\u0435\u0440\u0433\u0430\u043b\u0438 \u043c\u0435\u043d\u044f \u043f\u043e\u043a\u0430\u0437\u044b\u0432\u0430\u044f \u043e\u0447\u0435\u0440\u0435\u0434\u043d\u0443\u044e \u043e\u0448\u0438\u0431\u043a\u0443, \u043a\u043e\u0442\u043e\u0440\u0443\u044e \u044f \u0443\u0436\u0435 \u0438\u0441\u043f\u0440\u0430\u0432\u0438\u043b \u0438 \u0432\u044b\u0441\u043b\u0430\u043b \u043d\u0430 \u0432\u0441\u0435\u0445. \u041e\u0431\u044a\u044f\u0441\u043d\u044f\u0442\u044c \u0442\u043e\u043b\u043f\u0435 \u043d\u0430\u0440\u043e\u0434\u0443 \u043a\u0430\u043a \u043f\u0440\u0430\u0432\u0438\u043b\u044c\u043d\u043e \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c\u0441\u044f \u043c\u0430\u043a\u0440\u043e\u0441\u0430\u043c\u0438, \u044f \u0431\u0440\u043e\u0441\u0438\u043b \u0441\u0440\u0430\u0437\u0443, \u0442\u0430\u043a \u043a\u0430\u043a \u0432\u0441\u0435\u0433\u0434\u0430 \u0432\u044b\u043f\u0430\u0434\u0435\u0442 \u0438\u0437 \u0437\u0432\u0435\u043d\u0430 2-3 \u0447\u0435\u043b\u043e\u0432\u0435\u043a\u0430, \u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u0432\u043e\u0437\u044c\u043c\u0443\u0442 \u0443\u0436\u0435 \u043e\u0442\u0444\u043e\u0440\u043c\u0430\u0442\u0438\u0440\u043e\u0432\u0430\u043d\u043d\u0443\u044e \u0442\u0430\u0431\u043b\u0438\u0446\u0443 \u0432 \u0440\u0430\u0431\u043e\u0442\u0443 \u0441 \u043c\u0430\u043a\u0440\u043e\u0441\u0430\u043c\u0438 \u0438 \u0434\u043e\u0432\u043e\u0434\u044b, \u043c\u043e\u043b \u044f \u043d\u0435 \u043c\u043e\u0433\u0443 \u043f\u0440\u0435\u0434\u0443\u0433\u0430\u0434\u0430\u0442\u044c \u043a\u0442\u043e \u0438 \u043a\u0430\u043a \u0438\u0437\u043c\u0435\u043d\u044f\u0435\u0442 \u0442\u0430\u0431\u043b\u0438\u0446\u044b, \u044d\u0442\u0438 \u043b\u044e\u0434\u0438 \u043d\u0435 \u043f\u043e\u043d\u0438\u043c\u0430\u044e\u0442.<\/p>\n<p>  \u041d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u043e \u0431\u044b\u043b\u043e \u0441\u0434\u0435\u043b\u0430\u0442\u044c \u043e\u0434\u0438\u043d \u043a\u043e\u0434, \u0430 \u043d\u0435 60 \u043a\u043e\u043f\u0438\u0439 \u043a\u0430\u0436\u0434\u043e\u0433\u043e \u0438\u0437\u043c\u0435\u043d\u0435\u043d\u0438\u044f, \u0432\u044b\u0441\u043b\u0430\u043d\u043d\u043e\u0433\u043e \u043f\u043e \u043f\u043e\u0447\u0442\u0435.  <\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[],"tags":[],"class_list":["post-217791","post","type-post","status-publish","format-standard","hentry"],"_links":{"self":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/posts\/217791","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=217791"}],"version-history":[{"count":0,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/posts\/217791\/revisions"}],"wp:attachment":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=217791"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=217791"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=217791"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}