{"id":71,"date":"2023-11-17T10:49:24","date_gmt":"2023-11-17T10:49:24","guid":{"rendered":"https:\/\/exceladvisor.org\/pt\/combinar-pastas-de-trabalho\/"},"modified":"2023-12-06T11:35:21","modified_gmt":"2023-12-06T11:35:21","slug":"combinar-pastas-de-trabalho","status":"publish","type":"page","link":"https:\/\/exceladvisor.org\/pt\/combinar-pastas-de-trabalho\/","title":{"rendered":"Como combinar v\u00e1rias pastas de trabalho do excel usando vba?"},"content":{"rendered":"<div class=\"excel-before-content-2\" id=\"excel-316540324\"><script type=\"text\/javascript\">\r\n\tatOptions = {\r\n\t\t'key' : 'c1158f160081d6540a8409e6925dab94',\r\n\t\t'format' : 'iframe',\r\n\t\t'height' : 250,\r\n\t\t'width' : 300,\r\n\t\t'params' : {}\r\n\t};\r\n<\/script>\r\n<script type=\"text\/javascript\" src=\"\/\/www.highperformanceformat.com\/c1158f160081d6540a8409e6925dab94\/invoke.js\"><\/script><\/div><div class=\"excel-before-content\" id=\"excel-123243772\"><script type=\"text\/javascript\">\r\n\tatOptions = {\r\n\t\t'key' : 'c1158f160081d6540a8409e6925dab94',\r\n\t\t'format' : 'iframe',\r\n\t\t'height' : 250,\r\n\t\t'width' : 300,\r\n\t\t'params' : {}\r\n\t};\r\n<\/script>\r\n<script type=\"text\/javascript\" src=\"\/\/www.highperformanceformat.com\/c1158f160081d6540a8409e6925dab94\/invoke.js\"><\/script><\/div> <p>Para combinar v\u00e1rias pastas de trabalho do Excel, voc\u00ea precisa usar algum c\u00f3digo que permita escolher quais arquivos deseja combinar ou pode consultar um local de caminho espec\u00edfico e combinar todos os arquivos do Excel na pasta de trabalho atual.<\/p><h2 class=\"wp-block-heading\"> VBA combina v\u00e1rias pastas de trabalho<\/h2><p> Voc\u00ea pode usar o c\u00f3digo a seguir, que usa o local que mencionei na vari\u00e1vel path (uma pasta na \u00e1rea de trabalho do meu sistema).<\/p><pre class=\"wp-block-code\"> <code class=\"language-visual-basic\" lang=\"visual-basic\">Dim Path As String Dim Filename As String Dim Sheet As Worksheet Path = \"C:UsersDellDesktopsample-data\" Filename = Dir(Path &amp; \"*.xlsx\") Do While Filename &lt;&gt; \"\" Workbooks.Open Filename:=Path &amp; Filename, ReadOnly:=True For Each Sheet In ActiveWorkbook.Sheets Sheet.Copy After:=ThisWorkbook.Sheets(1) Next Sheet Workbooks(Filename).Close Filename = Dir() Loop<\/code><\/pre><h2 class=\"wp-block-heading\"> Etapas para combinar arquivos Excel usando VBA<\/h2><ol><li> Abra o Editor do Visual Basic (certifique-se de habilitar a guia Desenvolvedor se j\u00e1 a tiver na Faixa de Op\u00e7\u00f5es). <br><img loading=\"lazy\" decoding=\"async\" title=\"1-editor-visual-b\u00e1sico aberto\" src=\"https:\/\/exceladvisor.org\/wp-content\/uploads\/2023\/08\/1-ouvrir-lediteur-de-base-visuel.png\" sizes=\"auto, \" srcset=\"\" alt=\"open the visual basic editor\" width=\"591\" height=\"138\"><\/li><li> Depois disso, localize a pasta de trabalho atual na janela do projeto (control + r) e insira um novo m\u00f3dulo nela. <br><img loading=\"lazy\" decoding=\"async\" title=\"2-localize a pasta de trabalho atual\" src=\"https:\/\/exceladvisor.org\/wp-content\/uploads\/2023\/08\/2-localiser-le-classeur-en-cours.png\" sizes=\"auto, \" srcset=\"\" alt=\"locate the current workbook\" width=\"454\" height=\"379\"><\/li><li> Voc\u00ea ter\u00e1 uma janela de c\u00f3digo no m\u00f3dulo (clique duas vezes nela) onde dever\u00e1 colar o c\u00f3digo que possui (como est\u00e1). <br><img loading=\"lazy\" decoding=\"async\" title=\"Janela de 3 c\u00f3digos no m\u00f3dulo\" src=\"https:\/\/exceladvisor.org\/wp-content\/uploads\/2023\/08\/3-fenetre-de-code-dans-le-module.png\" sizes=\"auto, \" srcset=\"\" alt=\"code window in the module\" width=\"634\" height=\"227\"><\/li><li> A partir daqui, voc\u00ea precisa alterar o valor da vari\u00e1vel path com o local da pasta onde est\u00e3o localizados todos os arquivos Excel que voc\u00ea deseja combinar. <br><img loading=\"lazy\" decoding=\"async\" title=\"4-altera\u00e7\u00e3o do valor da vari\u00e1vel do caminho\" src=\"https:\/\/exceladvisor.org\/wp-content\/uploads\/2023\/08\/4-modifier-la-valeur-de-la-variable-de-chemin.png\" sizes=\"auto, \" srcset=\"\" alt=\"change the value for the path variable\" width=\"479\" height=\"369\"><\/li><li> No final, execute o c\u00f3digo e voc\u00ea obter\u00e1 todas as planilhas da pasta de trabalho no arquivo atual.<\/li><\/ol><p class=\"content-box-grey\"> <em>Links \u00fateis: <a href=\"https:\/\/exceladvisor.org\/pt\/executar-uma-macro-2\/\">Executar uma macro<\/a> \u2013 <a href=\"https:\/\/exceladvisor.org\/pt\/gravar-uma-macro\/\">Gravador de macro<\/a> \u2013 <a href=\"https:\/\/exceladvisor.org\/pt\/editor-visual-basico\/\">Editor Visual Basic<\/a> \u2013 <a href=\"https:\/\/exceladvisor.org\/pt\/caderno-macro-pessoal\/\">Manual pessoal de macros<\/a><\/em><\/p><p> Este c\u00f3digo abre cada arquivo um por um e copia cada planilha uma por uma e cola no arquivo atual com o mesmo nome. Aqui est\u00e1 o mesmo c\u00f3digo, mas com a tela sendo atualizada para false no in\u00edcio para executar tudo no backend.<\/p><pre class=\"wp-block-code\"> <code class=\"language-visual-basic\" lang=\"visual-basic\">Dim Path As String Dim Filename As String Dim Sheet As Worksheet Application.ScreenUpdating = False Path = \"C:UsersDellDesktopsample-data\" Filename = Dir(Path &amp; \"*.xlsx\") Do While Filename &lt;&gt; \"\" Workbooks.Open Filename:=Path &amp; Filename, ReadOnly:=True For Each Sheet In ActiveWorkbook.Sheets Sheet.Copy After:=ThisWorkbook.Sheets(1) Next Sheet Workbooks(Filename).Close Filename = Dir() Loop Application.ScreenUpdating = True End Sub<\/code><\/pre><p class=\"qt-tip\"> <strong>Observa\u00e7\u00e3o:<\/strong> se voc\u00ea quiser aprender como combinar dados de v\u00e1rias pastas de trabalho em uma \u00fanica tabela, consulte este guia.<\/p><div class=\"gb-container gb-container-4db6181c gb-container-mt\"> <a class=\"gb-button gb-button-c5897111 gb-button-text gb-button-mt-button\" href=\"https:\/\/exceladvisor.org\/pt\/vba\/\">O que \u00e9 VBA<\/a><h2 class=\"gb-headline gb-headline-665e5f6b gb-headline-text gb-headline-mt-heading\"> Tutoriais relacionados <\/h2><div class=\"gb-grid-wrapper gb-grid-wrapper-a20baf7c gb-grid-wrapper-mt-grid\"><div class=\"gb-grid-column gb-grid-column-65ddf67e\"><div class=\"gb-container gb-container-65ddf67e\"><ul><li> <a href=\"https:\/\/exceladvisor.org\/pt\/copiar-arquivo-excel\/\">Copie um arquivo Excel (pasta de trabalho) usando VBA<\/a><\/li><li> <a href=\"https:\/\/exceladvisor.org\/pt\/ativar-pasta-de-trabalho\/\">Pasta de trabalho de ativa\u00e7\u00e3o do VBA (arquivo Excel)<\/a><\/li><li> <a href=\"https:\/\/exceladvisor.org\/pt\/feche-a-pasta-de-trabalho\/\">Fechar pasta de trabalho do VBA (arquivo Excel)<\/a><\/li><li> <a href=\"https:\/\/exceladvisor.org\/pt\/criar-uma-pasta-de-trabalho\/\">VBA Crie uma nova pasta de trabalho (arquivo Excel)<\/a><\/li><li> <a href=\"https:\/\/exceladvisor.org\/pt\/excluir-arquivo\/\">VBA Excluir pasta de trabalho (arquivo Excel)<\/a><\/li><\/ul><\/div><\/div><\/div><\/div>","protected":false},"excerpt":{"rendered":"","protected":false},"author":1,"featured_media":0,"parent":0,"menu_order":0,"comment_status":"open","ping_status":"closed","template":"","meta":{"ub_ctt_via":"","footnotes":""},"class_list":["post-71","page","type-page","status-publish","hentry"],"featured_image_src":null,"yoast_head":"<!-- This site is optimized with the Yoast SEO plugin v25.4 - https:\/\/yoast.com\/wordpress\/plugins\/seo\/ -->\n<title>\u25b7 Como combinar v\u00e1rias pastas de trabalho do Excel via VBA?<\/title>\n<meta name=\"description\" content=\"Este tutorial explica como usar VBA para combinar v\u00e1rios arquivos Excel em um.\" \/>\n<meta name=\"robots\" content=\"index, follow, max-snippet:-1, max-image-preview:large, max-video-preview:-1\" \/>\n<link rel=\"canonical\" href=\"https:\/\/exceladvisor.org\/pt\/combinar-pastas-de-trabalho\/\" \/>\n<meta property=\"og:locale\" content=\"pt_PT\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"\u25b7 Como combinar v\u00e1rias pastas de trabalho do Excel via VBA?\" \/>\n<meta property=\"og:description\" content=\"Este tutorial explica como usar VBA para combinar v\u00e1rios arquivos Excel em um.\" \/>\n<meta property=\"og:url\" content=\"https:\/\/exceladvisor.org\/pt\/combinar-pastas-de-trabalho\/\" \/>\n<meta property=\"og:site_name\" content=\"Excel Advisor\" \/>\n<meta property=\"article:modified_time\" content=\"2023-12-06T11:35:21+00:00\" \/>\n<meta property=\"og:image\" content=\"https:\/\/exceladvisor.org\/wp-content\/uploads\/2023\/08\/1-ouvrir-lediteur-de-base-visuel.png\" \/>\n<meta name=\"twitter:card\" content=\"summary_large_image\" \/>\n<meta name=\"twitter:label1\" content=\"Tempo estimado de leitura\" \/>\n\t<meta name=\"twitter:data1\" content=\"2 minutos\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\/\/schema.org\",\"@graph\":[{\"@type\":\"WebPage\",\"@id\":\"https:\/\/exceladvisor.org\/pt\/combinar-pastas-de-trabalho\/\",\"url\":\"https:\/\/exceladvisor.org\/pt\/combinar-pastas-de-trabalho\/\",\"name\":\"\u25b7 Como combinar v\u00e1rias pastas de trabalho do Excel via VBA?\",\"isPartOf\":{\"@id\":\"https:\/\/exceladvisor.org\/pt\/#website\"},\"primaryImageOfPage\":{\"@id\":\"https:\/\/exceladvisor.org\/pt\/combinar-pastas-de-trabalho\/#primaryimage\"},\"image\":{\"@id\":\"https:\/\/exceladvisor.org\/pt\/combinar-pastas-de-trabalho\/#primaryimage\"},\"thumbnailUrl\":\"https:\/\/exceladvisor.org\/wp-content\/uploads\/2023\/08\/1-ouvrir-lediteur-de-base-visuel.png\",\"datePublished\":\"2023-11-17T10:49:24+00:00\",\"dateModified\":\"2023-12-06T11:35:21+00:00\",\"description\":\"Este tutorial explica como usar VBA para combinar v\u00e1rios arquivos Excel em um.\",\"breadcrumb\":{\"@id\":\"https:\/\/exceladvisor.org\/pt\/combinar-pastas-de-trabalho\/#breadcrumb\"},\"inLanguage\":\"pt-PT\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\/\/exceladvisor.org\/pt\/combinar-pastas-de-trabalho\/\"]}]},{\"@type\":\"ImageObject\",\"inLanguage\":\"pt-PT\",\"@id\":\"https:\/\/exceladvisor.org\/pt\/combinar-pastas-de-trabalho\/#primaryimage\",\"url\":\"https:\/\/exceladvisor.org\/wp-content\/uploads\/2023\/08\/1-ouvrir-lediteur-de-base-visuel.png\",\"contentUrl\":\"https:\/\/exceladvisor.org\/wp-content\/uploads\/2023\/08\/1-ouvrir-lediteur-de-base-visuel.png\"},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\/\/exceladvisor.org\/pt\/combinar-pastas-de-trabalho\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"Lar\",\"item\":\"https:\/\/exceladvisor.org\/pt\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"Como combinar v\u00e1rias pastas de trabalho do excel usando vba?\"}]},{\"@type\":\"WebSite\",\"@id\":\"https:\/\/exceladvisor.org\/pt\/#website\",\"url\":\"https:\/\/exceladvisor.org\/pt\/\",\"name\":\"Excel Advisor\",\"description\":\"O seu guia definitivo para dominar os dados!\",\"publisher\":{\"@id\":\"https:\/\/exceladvisor.org\/pt\/#organization\"},\"potentialAction\":[{\"@type\":\"SearchAction\",\"target\":{\"@type\":\"EntryPoint\",\"urlTemplate\":\"https:\/\/exceladvisor.org\/pt\/?s={search_term_string}\"},\"query-input\":{\"@type\":\"PropertyValueSpecification\",\"valueRequired\":true,\"valueName\":\"search_term_string\"}}],\"inLanguage\":\"pt-PT\"},{\"@type\":\"Organization\",\"@id\":\"https:\/\/exceladvisor.org\/pt\/#organization\",\"name\":\"Excel Advisor\",\"url\":\"https:\/\/exceladvisor.org\/pt\/\",\"logo\":{\"@type\":\"ImageObject\",\"inLanguage\":\"pt-PT\",\"@id\":\"https:\/\/exceladvisor.org\/pt\/#\/schema\/logo\/image\/\",\"url\":\"https:\/\/exceladvisor.org\/pt\/wp-content\/uploads\/2023\/12\/exceladvisor.org_.png\",\"contentUrl\":\"https:\/\/exceladvisor.org\/pt\/wp-content\/uploads\/2023\/12\/exceladvisor.org_.png\",\"width\":105,\"height\":36,\"caption\":\"Excel Advisor\"},\"image\":{\"@id\":\"https:\/\/exceladvisor.org\/pt\/#\/schema\/logo\/image\/\"}}]}<\/script>\n<!-- \/ Yoast SEO plugin. -->","yoast_head_json":{"title":"\u25b7 Como combinar v\u00e1rias pastas de trabalho do Excel via VBA?","description":"Este tutorial explica como usar VBA para combinar v\u00e1rios arquivos Excel em um.","robots":{"index":"index","follow":"follow","max-snippet":"max-snippet:-1","max-image-preview":"max-image-preview:large","max-video-preview":"max-video-preview:-1"},"canonical":"https:\/\/exceladvisor.org\/pt\/combinar-pastas-de-trabalho\/","og_locale":"pt_PT","og_type":"article","og_title":"\u25b7 Como combinar v\u00e1rias pastas de trabalho do Excel via VBA?","og_description":"Este tutorial explica como usar VBA para combinar v\u00e1rios arquivos Excel em um.","og_url":"https:\/\/exceladvisor.org\/pt\/combinar-pastas-de-trabalho\/","og_site_name":"Excel Advisor","article_modified_time":"2023-12-06T11:35:21+00:00","og_image":[{"url":"https:\/\/exceladvisor.org\/wp-content\/uploads\/2023\/08\/1-ouvrir-lediteur-de-base-visuel.png","type":"","width":"","height":""}],"twitter_card":"summary_large_image","twitter_misc":{"Tempo estimado de leitura":"2 minutos"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"WebPage","@id":"https:\/\/exceladvisor.org\/pt\/combinar-pastas-de-trabalho\/","url":"https:\/\/exceladvisor.org\/pt\/combinar-pastas-de-trabalho\/","name":"\u25b7 Como combinar v\u00e1rias pastas de trabalho do Excel via VBA?","isPartOf":{"@id":"https:\/\/exceladvisor.org\/pt\/#website"},"primaryImageOfPage":{"@id":"https:\/\/exceladvisor.org\/pt\/combinar-pastas-de-trabalho\/#primaryimage"},"image":{"@id":"https:\/\/exceladvisor.org\/pt\/combinar-pastas-de-trabalho\/#primaryimage"},"thumbnailUrl":"https:\/\/exceladvisor.org\/wp-content\/uploads\/2023\/08\/1-ouvrir-lediteur-de-base-visuel.png","datePublished":"2023-11-17T10:49:24+00:00","dateModified":"2023-12-06T11:35:21+00:00","description":"Este tutorial explica como usar VBA para combinar v\u00e1rios arquivos Excel em um.","breadcrumb":{"@id":"https:\/\/exceladvisor.org\/pt\/combinar-pastas-de-trabalho\/#breadcrumb"},"inLanguage":"pt-PT","potentialAction":[{"@type":"ReadAction","target":["https:\/\/exceladvisor.org\/pt\/combinar-pastas-de-trabalho\/"]}]},{"@type":"ImageObject","inLanguage":"pt-PT","@id":"https:\/\/exceladvisor.org\/pt\/combinar-pastas-de-trabalho\/#primaryimage","url":"https:\/\/exceladvisor.org\/wp-content\/uploads\/2023\/08\/1-ouvrir-lediteur-de-base-visuel.png","contentUrl":"https:\/\/exceladvisor.org\/wp-content\/uploads\/2023\/08\/1-ouvrir-lediteur-de-base-visuel.png"},{"@type":"BreadcrumbList","@id":"https:\/\/exceladvisor.org\/pt\/combinar-pastas-de-trabalho\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"Lar","item":"https:\/\/exceladvisor.org\/pt\/"},{"@type":"ListItem","position":2,"name":"Como combinar v\u00e1rias pastas de trabalho do excel usando vba?"}]},{"@type":"WebSite","@id":"https:\/\/exceladvisor.org\/pt\/#website","url":"https:\/\/exceladvisor.org\/pt\/","name":"Excel Advisor","description":"O seu guia definitivo para dominar os dados!","publisher":{"@id":"https:\/\/exceladvisor.org\/pt\/#organization"},"potentialAction":[{"@type":"SearchAction","target":{"@type":"EntryPoint","urlTemplate":"https:\/\/exceladvisor.org\/pt\/?s={search_term_string}"},"query-input":{"@type":"PropertyValueSpecification","valueRequired":true,"valueName":"search_term_string"}}],"inLanguage":"pt-PT"},{"@type":"Organization","@id":"https:\/\/exceladvisor.org\/pt\/#organization","name":"Excel Advisor","url":"https:\/\/exceladvisor.org\/pt\/","logo":{"@type":"ImageObject","inLanguage":"pt-PT","@id":"https:\/\/exceladvisor.org\/pt\/#\/schema\/logo\/image\/","url":"https:\/\/exceladvisor.org\/pt\/wp-content\/uploads\/2023\/12\/exceladvisor.org_.png","contentUrl":"https:\/\/exceladvisor.org\/pt\/wp-content\/uploads\/2023\/12\/exceladvisor.org_.png","width":105,"height":36,"caption":"Excel Advisor"},"image":{"@id":"https:\/\/exceladvisor.org\/pt\/#\/schema\/logo\/image\/"}}]}},"yoast_meta":{"yoast_wpseo_title":"","yoast_wpseo_metadesc":"","yoast_wpseo_canonical":""},"_links":{"self":[{"href":"https:\/\/exceladvisor.org\/pt\/wp-json\/wp\/v2\/pages\/71","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/exceladvisor.org\/pt\/wp-json\/wp\/v2\/pages"}],"about":[{"href":"https:\/\/exceladvisor.org\/pt\/wp-json\/wp\/v2\/types\/page"}],"author":[{"embeddable":true,"href":"https:\/\/exceladvisor.org\/pt\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/exceladvisor.org\/pt\/wp-json\/wp\/v2\/comments?post=71"}],"version-history":[{"count":1,"href":"https:\/\/exceladvisor.org\/pt\/wp-json\/wp\/v2\/pages\/71\/revisions"}],"predecessor-version":[{"id":899,"href":"https:\/\/exceladvisor.org\/pt\/wp-json\/wp\/v2\/pages\/71\/revisions\/899"}],"wp:attachment":[{"href":"https:\/\/exceladvisor.org\/pt\/wp-json\/wp\/v2\/media?parent=71"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}