{"id":2280,"date":"2024-11-13T15:48:52","date_gmt":"2024-11-13T07:48:52","guid":{"rendered":"https:\/\/airy.cn\/WordPress\/?p=2280"},"modified":"2024-11-13T15:48:53","modified_gmt":"2024-11-13T07:48:53","slug":"excel%e4%b8%ad%e7%9a%84vba%e5%b7%a5%e7%a8%8b%e5%af%86%e7%a0%81%e7%a0%b4%e8%a7%a3%e6%96%b9%e6%b3%95","status":"publish","type":"post","link":"https:\/\/airy.cn\/WordPress\/?p=2280","title":{"rendered":"Excel\u4e2d\u7684VBA\u5de5\u7a0b\u5bc6\u7801\u7834\u89e3\u65b9\u6cd5"},"content":{"rendered":"\n<p><\/p>\n\n\n\n<figure class=\"wp-block-image size-full\"><img loading=\"lazy\" decoding=\"async\" width=\"249\" height=\"109\" src=\"https:\/\/airy.cn\/WordPress\/wp-content\/uploads\/2024\/11\/image-9.png\" alt=\"\" class=\"wp-image-2281\"\/><\/figure>\n\n\n\n<div class=\"wp-block-group is-nowrap is-layout-flex wp-container-core-group-is-layout-ad2f72ca wp-block-group-is-layout-flex\">\n<p>1. \u5c06\u5bf9\u5e94\u7684excel \u53e6\u5b58\u4e3a<strong>excel97-2003\u5de5\u4f5c\u7c3f(*.xls)<\/strong>\uff0c\u5047\u8bbe\u53e6\u5b58\u540e\u7684\u6587\u4ef6\u540d\u4e3a\u3010\u76ee\u6807.xls\u3011 \u6ce8\u610f\u4e00\u5b9a\u8981\u662fxls\u683c\u5f0f<\/p>\n<\/div>\n\n\n\n<p>2.\u5173\u95ed \u3010\u76ee\u6807.xls\u3011\u6587\u4ef6\uff0c\u4e00\u5b9a\u8981\u5173\u95ed<\/p>\n\n\n\n<p>3.&nbsp; \u65b0\u5efa\u4e00\u4e2aexcel\u6587\u4ef6\uff0c\u8fdb\u5165VBA\u7f16\u8f91\u5668\u754c\u9762\uff0c\u8f93\u5165\u4e0b\u65b9\u7684\u4ee3\u7801\uff1a<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>Private Sub VBAPassword() '\u4f60\u8981\u89e3\u4fdd\u62a4\u7684Excel\u6587\u4ef6\u8def\u5f84\nFilename = Application.GetOpenFilename(\"Excel\u6587\u4ef6\uff08*.xls &amp; *.xla &amp; *.xlt\uff09,*.xls;*.xla;*.xlt\", , \"VBA\u7834\u89e3\")\nIf Dir(Filename) = \"\" Then\nMsgBox \"\u6ca1\u627e\u5230\u76f8\u5173\u6587\u4ef6,\u6e05\u91cd\u65b0\u8bbe\u7f6e\u3002\"\nExit Sub\nElse\nFileCopy Filename, Filename &amp; \".bak\" '\u5907\u4efd\u6587\u4ef6\u3002\nEnd If\nDim GetData As String * 5\nOpen Filename For Binary As #1\nDim CMGs As Long\nDim DPBo As Long\nFor i = 1 To LOF(1)\nGet #1, i, GetData\nIf GetData = \"CMG=\"\"\" Then CMGs = i\nIf GetData = \"&#91;Host\" Then DPBo = i - 2: Exit For\nNext\nIf CMGs = 0 Then\nMsgBox \"\u8bf7\u5148\u5bf9VBA\u7f16\u7801\u8bbe\u7f6e\u4e00\u4e2a\u4fdd\u62a4\u5bc6\u7801...\", 32, \"\u63d0\u793a\"\nExit Sub\nEnd If\n\nDim St As String * 2\nDim s20 As String * 1\n'\u53d6\u5f97\u4e00\u4e2a0D0A\u5341\u516d\u8fdb\u5236\u5b57\u4e32\nGet #1, CMGs - 2, St\n'\u53d6\u5f97\u4e00\u4e2a20\u5341\u516d\u5236\u5b57\u4e32\nGet #1, DPBo + 16, s20\n'\u66ff\u6362\u52a0\u5bc6\u90e8\u4efd\u673a\u7801\nFor i = CMGs To DPBo Step 2\nPut #1, i, St\nNext\n'\u52a0\u5165\u4e0d\u914d\u5bf9\u7b26\u53f7\nIf (DPBo - CMGs) Mod 2 &lt;&gt; 0 Then\nPut #1, DPBo + 1, s20\nEnd If\nMsgBox \"\u6587\u4ef6\u89e3\u5bc6\u6210\u529f......\", 32, \"\u63d0\u793a\"\nClose #1\nEnd Sub<\/code><\/pre>\n\n\n\n<p>3.\u8fd0\u884c\u4e0a\u8ff0\u4ee3\u7801\uff0c\u4f1a\u5f39\u51fa\u6587\u4ef6\u9009\u62e9\u6846\uff0c\u9009\u62e9\u3010\u76ee\u6807.xls\u3011\u6587\u4ef6\uff0c\u7b49\u5f85\u4e00\u4f1a\u513f\uff0c\u5982\u679c\u63d0\u793a\u6587\u4ef6\u89e3\u5bc6\u6210\u529f\uff0c\u5219\u7834\u89e3\u6210\u529f\u3002<\/p>\n\n\n\n<p>4.\u5173\u95ed\u8fd9\u4e2a\u65b0\u5efa\u7684excel\u6587\u4ef6\uff0c\u53bb\u6253\u5f00\u3010\u76ee\u6807.xls\u3011\u6587\u4ef6\uff0c\u53d1\u73b0\u53ef\u4ee5\u67e5\u770bexcel\u7684VBA\u6e90\u4ee3\u7801\u4e86<\/p>\n\n\n\n<p><\/p>\n","protected":false},"excerpt":{"rendered":"<p>1. \u5c06\u5bf9\u5e94\u7684excel \u53e6\u5b58\u4e3aexcel97-2003\u5de5\u4f5c\u7c3f(*.xls)\uff0c\u5047\u8bbe\u53e6\u5b58\u540e\u7684\u6587\u4ef6\u540d\u4e3a\u3010\u76ee\u6807.xl &#8230; <a title=\"Excel\u4e2d\u7684VBA\u5de5\u7a0b\u5bc6\u7801\u7834\u89e3\u65b9\u6cd5\" class=\"read-more\" href=\"https:\/\/airy.cn\/WordPress\/?p=2280\" aria-label=\"\u9605\u8bfb Excel\u4e2d\u7684VBA\u5de5\u7a0b\u5bc6\u7801\u7834\u89e3\u65b9\u6cd5\">\u9605\u8bfb\u66f4\u591a<\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_kadence_starter_templates_imported_post":false,"footnotes":""},"categories":[2],"tags":[],"class_list":["post-2280","post","type-post","status-publish","format-standard","hentry","category-airy-tech"],"_links":{"self":[{"href":"https:\/\/airy.cn\/WordPress\/index.php?rest_route=\/wp\/v2\/posts\/2280","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/airy.cn\/WordPress\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/airy.cn\/WordPress\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/airy.cn\/WordPress\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/airy.cn\/WordPress\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=2280"}],"version-history":[{"count":1,"href":"https:\/\/airy.cn\/WordPress\/index.php?rest_route=\/wp\/v2\/posts\/2280\/revisions"}],"predecessor-version":[{"id":2282,"href":"https:\/\/airy.cn\/WordPress\/index.php?rest_route=\/wp\/v2\/posts\/2280\/revisions\/2282"}],"wp:attachment":[{"href":"https:\/\/airy.cn\/WordPress\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=2280"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/airy.cn\/WordPress\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=2280"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/airy.cn\/WordPress\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=2280"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}