{"id":17,"date":"2017-07-03T19:20:17","date_gmt":"2017-07-03T11:20:17","guid":{"rendered":"https:\/\/qtvz.com\/?p=17"},"modified":"2017-07-03T19:20:17","modified_gmt":"2017-07-03T11:20:17","slug":"excel%e5%ae%8f%e6%8f%90%e5%8f%96%e5%9c%a8%e4%b8%80%e4%b8%aa%e6%96%87%e4%bb%b6%e5%a4%b9%e4%b8%ad%e7%9a%84%e5%a4%9a%e4%b8%aaexcel%e8%a1%a8%e6%a0%bc%e4%b8%ad%e7%9a%84%e7%9b%b8%e5%90%8c%e4%bd%8d%e7%bd%ae","status":"publish","type":"post","link":"https:\/\/qtvz.com\/17.html","title":{"rendered":"Excel\u5b8f\u63d0\u53d6\u5728\u4e00\u4e2a\u6587\u4ef6\u5939\u4e2d\u7684\u591a\u4e2aEXCEL\u8868\u683c\u4e2d\u7684\u76f8\u540c\u4f4d\u7f6e\u7684\u6570\u636e"},"content":{"rendered":"<!--wp-compress-html--><!--wp-compress-html no compression--><pre class=\"lang:default decode:true \">Sub mysub()\r\nDim ShApp As Object, mysheet As Object\r\nDim TF As Boolean, i As Integer\r\nDim aTable As Object, n As Integer\r\nOn Error Resume Next\r\nn = 0\r\nWith Application.FileDialog(msoFileDialogFilePicker)\r\n       .Title = \"\u8bf7\u9009\u5b9a\u8981\u5904\u7406\u7684excel\u6587\u6863\"\r\n       .Filters.Add \"excel\u6587\u6863\", \"*.xls\"  '\u6682\u5b9a\u6269\u5c55\u540d\u4e3axls\u7684excel\u6587\u6863\r\n       .AllowMultiSelect = True\r\n       If .Show &lt;&gt; -1 Then Exit Sub\r\n       Set ShApp = GetObject(, \"Excel.Application\")\r\n       If Err &lt;&gt; 0 Then\r\n           TF = True\r\n           Set ShApp = CreateObject(\"Excel.Application\")\r\n       End If\r\n       Application.ScreenUpdating = False\r\n       For i = 1 To .SelectedItems.Count\r\n           Set mysheet = ShApp.Workbooks.Open(.SelectedItems(i))\r\n                With mysheet.Sheets(1)\r\n                     .[a8].Copy [a65536].End(xlUp).Offset(1)\r\n                End With\r\n                n = n + 1\r\n           mysheet.Close True\r\n       Next i\r\n   End With\r\n   If TF = True Then ShApp.Quit\r\n   Set ShApp = Nothing\r\n   MsgBox \"\u5904\u7406\u5b8c\u6bd5\uff0c\u5171\u5904\u7406\u4e86\" &amp; n &amp; \"\u4e2aexcel\u6587\u6863\u3002\"\r\n   Application.ScreenUpdating = True\r\nEnd Sub<\/pre>\n<p>\u4f7f\u7528\u65b9\u5f0f\uff1a\u53f3\u952esheet1\u2014\u2014\u67e5\u770b\u4ee3\u7801\u2014\u2014\u7c98\u8d34\u4ee3\u7801\u2014\u2014\u8fd0\u884c\u4ee3\u7801\uff08\u5982\u6709\u9700\u8981\u53ef\u4ee5\u81ea\u884c\u4fee\u6539\uff01\uff09<\/p>\n<!--wp-compress-html no compression--><!--wp-compress-html-->","protected":false},"excerpt":{"rendered":"Sub mysub() Dim ShApp As Object, mysheet As Object Dim TF As Boolean, i As Integer Dim aTable As Obj \u00b7\u00b7\u00b7","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[10,5],"tags":[16,18,17],"views":24935,"_links":{"self":[{"href":"https:\/\/qtvz.com\/api\/wp\/v2\/posts\/17"}],"collection":[{"href":"https:\/\/qtvz.com\/api\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/qtvz.com\/api\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/qtvz.com\/api\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/qtvz.com\/api\/wp\/v2\/comments?post=17"}],"version-history":[{"count":1,"href":"https:\/\/qtvz.com\/api\/wp\/v2\/posts\/17\/revisions"}],"predecessor-version":[{"id":18,"href":"https:\/\/qtvz.com\/api\/wp\/v2\/posts\/17\/revisions\/18"}],"wp:attachment":[{"href":"https:\/\/qtvz.com\/api\/wp\/v2\/media?parent=17"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/qtvz.com\/api\/wp\/v2\/categories?post=17"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/qtvz.com\/api\/wp\/v2\/tags?post=17"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}