{"id":102,"date":"2023-11-16T12:02:47","date_gmt":"2023-11-16T12:02:47","guid":{"rendered":"https:\/\/exceladvisor.org\/pt\/este-caderno\/"},"modified":"2023-12-06T11:44:02","modified_gmt":"2023-12-06T11:44:02","slug":"este-caderno","status":"publish","type":"page","link":"https:\/\/exceladvisor.org\/pt\/este-caderno\/","title":{"rendered":"Como usar a vari\u00e1vel thisworkbook vba no excel?"},"content":{"rendered":"<div class=\"excel-before-content-2\" id=\"excel-3456683477\"><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-1671544643\"><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>No VBA, voc\u00ea pode usar a propriedade ThisWorkbook para se referir \u00e0 pasta de trabalho na qual voc\u00ea escreve o c\u00f3digo. Ao us\u00e1-lo, voc\u00ea tem acesso a todas as propriedades e m\u00e9todos da pasta de trabalho atual. Simplificando, voc\u00ea pode <strong>executar todas as tarefas da pasta de trabalho atual<\/strong> sem usar o nome.<\/p><p> Suponha que voc\u00ea queira contar as planilhas da pasta de trabalho atual. O c\u00f3digo que voc\u00ea precisa escrever seria o seguinte. <\/p><pre class=\"wp-block-code\"> <code class=\"language-visual-basic\" lang=\"visual-basic\">Sub vba_thisworkbook() MsgBox ThisWorkbook.Sheets.Count End Sub<\/code><\/pre><div class=\"wp-block-image\"><figure class=\"aligncenter size-large is-resized\"><img loading=\"lazy\" decoding=\"async\" class=\"wp-image-52718\" src=\"https:\/\/exceladvisor.org\/wp-content\/uploads\/2023\/08\/1-vba-ce-classeur.png\" sizes=\"auto, \" srcset=\"\" alt=\"vba-esta pasta de trabalho\" width=\"724\" height=\"283\"><\/figure><\/div><p> Ao executar esse c\u00f3digo, uma caixa de mensagem aparece com o n\u00famero de planilhas que voc\u00ea possui na pasta de trabalho atual. <\/p><div class=\"wp-block-image\"><figure class=\"aligncenter size-large is-resized\"><img loading=\"lazy\" decoding=\"async\" class=\"wp-image-52719\" src=\"https:\/\/exceladvisor.org\/wp-content\/uploads\/2023\/08\/2-boites-de-message-avec-le-nombre-de-feuilles.png\" sizes=\"auto, \" srcset=\"\" alt=\"caixa de mensagem com contagem de folhas\" width=\"316\" height=\"281\"><\/figure><\/div><p> Como eu disse, quando voc\u00ea usa ThisWorkbook, ele d\u00e1 acesso \u00e0s propriedades e m\u00e9todos da pasta de trabalho atual. Voc\u00ea pode ver tudo isso ao inserir um ponto final (.) para ver a lista completa. <\/p><div class=\"wp-block-image\"><figure class=\"aligncenter size-large is-resized\"><img loading=\"lazy\" decoding=\"async\" class=\"wp-image-52720\" src=\"https:\/\/exceladvisor.org\/wp-content\/uploads\/2023\/08\/3-acces-aux-proprietes.png\" sizes=\"auto, \" srcset=\"\" alt=\"acesso a propriedades\" width=\"362\" height=\"220\"><\/figure><\/div><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><h2 class=\"wp-block-heading\"> Usando ThisWorkbook com uma vari\u00e1vel<\/h2><p> A seguir, mostrarei um exemplo de c\u00f3digo real para declarar uma vari\u00e1vel para usar a propriedade ThisWorkbook. Suponha que voc\u00ea queira realizar diversas atividades na pasta de trabalho atual.<\/p><pre class=\"wp-block-code\"> <code class=\"language-visual-basic\" lang=\"visual-basic\">Sub vba_thisworkbook() Dim myWB As Workbook Set myWB = ThisWorkbook With myWB .Activate .Sheets(1).Activate .Range(\"A1\") = Now .Save .Close End With End Sub<\/code><\/pre><p> Na primeira parte deste c\u00f3digo, voc\u00ea tem uma vari\u00e1vel e, em seguida, atribua a ela a propriedade &#8220;ThisWorkbook&#8221;. E ent\u00e3o na segunda parte voc\u00ea tem o WITH STATEMENT para realizar m\u00faltiplas atividades com a vari\u00e1vel atual.<\/p><h2 class=\"wp-block-heading\"> ActiveWorkBook versus esta pasta de trabalho<\/h2><p> Deixe-me explicar isso com uma analogia simples, ent\u00e3o tenha paci\u00eancia comigo pelos pr\u00f3ximos 2 minutos.<\/p><p> Voc\u00ea tem duas pastas de trabalho abertas ao mesmo tempo (Livro1 e Livro2). Voc\u00ea <strong>escreve o c\u00f3digo no livro1<\/strong> , mas o livro2 est\u00e1 ativo neste momento. Portanto, quando voc\u00ea executar esse c\u00f3digo que faz refer\u00eancia ao ActiveWorkbook, ele <strong>executar\u00e1 essa atividade no Book2<\/strong> .<\/p><p> Mas quando voc\u00ea usa ThisWorkbook, o VBA sempre se refere \u00e0 pasta de trabalho na qual o c\u00f3digo est\u00e1 escrito.<\/p><p> <strong>O problema \u00e9 o seguinte:<\/strong> \u00e9 sempre melhor usar o ThisWorkbook porque elimina a chance de erro.<\/p><h2 class=\"wp-block-heading\" style=\"font-size: 22px;\"> Saiba mais sobre pastas de trabalho VBA<\/h2><ul><li class=\"has-normal-font-size\"> <a href=\"https:\/\/exceladvisor.org\/pt\/salvar-pasta-de-trabalho\/\">Pasta de trabalho para salvar VBA<\/a><\/li><li class=\"has-normal-font-size\"> <a href=\"https:\/\/exceladvisor.org\/pt\/feche-a-pasta-de-trabalho\/\">Fechar pasta de trabalho do VBA<\/a><\/li><li class=\"has-normal-font-size\"> <a href=\"https:\/\/exceladvisor.org\/pt\/excluir-arquivo\/\">VBA Excluir pasta de trabalho<\/a><\/li><li class=\"has-normal-font-size\"> <a href=\"https:\/\/exceladvisor.org\/pt\/renomear-pasta-de-trabalho\/\">Pasta de trabalho de renomea\u00e7\u00e3o VBA<\/a><\/li><li class=\"has-normal-font-size\"> <a href=\"https:\/\/exceladvisor.org\/pt\/ativar-pasta-de-trabalho\/\">Pasta de trabalho de ativa\u00e7\u00e3o do VBA<\/a><\/li><\/ul>","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-102","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>Como usar a vari\u00e1vel ThisWorkbook VBA no Excel?<\/title>\n<meta name=\"description\" content=\"Este tutorial cobre a propriedade thisworkbook em VBA que voc\u00ea pode usar para se referir \u00e0 pasta de trabalho na qual est\u00e1 escrevendo\" \/>\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\/este-caderno\/\" \/>\n<meta property=\"og:locale\" content=\"pt_PT\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"Como usar a vari\u00e1vel ThisWorkbook VBA no Excel?\" \/>\n<meta property=\"og:description\" content=\"Este tutorial cobre a propriedade thisworkbook em VBA que voc\u00ea pode usar para se referir \u00e0 pasta de trabalho na qual est\u00e1 escrevendo\" \/>\n<meta property=\"og:url\" content=\"https:\/\/exceladvisor.org\/pt\/este-caderno\/\" \/>\n<meta property=\"og:site_name\" content=\"Excel Advisor\" \/>\n<meta property=\"article:modified_time\" content=\"2023-12-06T11:44:02+00:00\" \/>\n<meta property=\"og:image\" content=\"https:\/\/exceladvisor.org\/wp-content\/uploads\/2023\/08\/1-vba-ce-classeur.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\/este-caderno\/\",\"url\":\"https:\/\/exceladvisor.org\/pt\/este-caderno\/\",\"name\":\"Como usar a vari\u00e1vel ThisWorkbook VBA no Excel?\",\"isPartOf\":{\"@id\":\"https:\/\/exceladvisor.org\/pt\/#website\"},\"primaryImageOfPage\":{\"@id\":\"https:\/\/exceladvisor.org\/pt\/este-caderno\/#primaryimage\"},\"image\":{\"@id\":\"https:\/\/exceladvisor.org\/pt\/este-caderno\/#primaryimage\"},\"thumbnailUrl\":\"https:\/\/exceladvisor.org\/wp-content\/uploads\/2023\/08\/1-vba-ce-classeur.png\",\"datePublished\":\"2023-11-16T12:02:47+00:00\",\"dateModified\":\"2023-12-06T11:44:02+00:00\",\"description\":\"Este tutorial cobre a propriedade thisworkbook em VBA que voc\u00ea pode usar para se referir \u00e0 pasta de trabalho na qual est\u00e1 escrevendo\",\"breadcrumb\":{\"@id\":\"https:\/\/exceladvisor.org\/pt\/este-caderno\/#breadcrumb\"},\"inLanguage\":\"pt-PT\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\/\/exceladvisor.org\/pt\/este-caderno\/\"]}]},{\"@type\":\"ImageObject\",\"inLanguage\":\"pt-PT\",\"@id\":\"https:\/\/exceladvisor.org\/pt\/este-caderno\/#primaryimage\",\"url\":\"https:\/\/exceladvisor.org\/wp-content\/uploads\/2023\/08\/1-vba-ce-classeur.png\",\"contentUrl\":\"https:\/\/exceladvisor.org\/wp-content\/uploads\/2023\/08\/1-vba-ce-classeur.png\"},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\/\/exceladvisor.org\/pt\/este-caderno\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"Lar\",\"item\":\"https:\/\/exceladvisor.org\/pt\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"Como usar a vari\u00e1vel thisworkbook vba no excel?\"}]},{\"@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":"Como usar a vari\u00e1vel ThisWorkbook VBA no Excel?","description":"Este tutorial cobre a propriedade thisworkbook em VBA que voc\u00ea pode usar para se referir \u00e0 pasta de trabalho na qual est\u00e1 escrevendo","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\/este-caderno\/","og_locale":"pt_PT","og_type":"article","og_title":"Como usar a vari\u00e1vel ThisWorkbook VBA no Excel?","og_description":"Este tutorial cobre a propriedade thisworkbook em VBA que voc\u00ea pode usar para se referir \u00e0 pasta de trabalho na qual est\u00e1 escrevendo","og_url":"https:\/\/exceladvisor.org\/pt\/este-caderno\/","og_site_name":"Excel Advisor","article_modified_time":"2023-12-06T11:44:02+00:00","og_image":[{"url":"https:\/\/exceladvisor.org\/wp-content\/uploads\/2023\/08\/1-vba-ce-classeur.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\/este-caderno\/","url":"https:\/\/exceladvisor.org\/pt\/este-caderno\/","name":"Como usar a vari\u00e1vel ThisWorkbook VBA no Excel?","isPartOf":{"@id":"https:\/\/exceladvisor.org\/pt\/#website"},"primaryImageOfPage":{"@id":"https:\/\/exceladvisor.org\/pt\/este-caderno\/#primaryimage"},"image":{"@id":"https:\/\/exceladvisor.org\/pt\/este-caderno\/#primaryimage"},"thumbnailUrl":"https:\/\/exceladvisor.org\/wp-content\/uploads\/2023\/08\/1-vba-ce-classeur.png","datePublished":"2023-11-16T12:02:47+00:00","dateModified":"2023-12-06T11:44:02+00:00","description":"Este tutorial cobre a propriedade thisworkbook em VBA que voc\u00ea pode usar para se referir \u00e0 pasta de trabalho na qual est\u00e1 escrevendo","breadcrumb":{"@id":"https:\/\/exceladvisor.org\/pt\/este-caderno\/#breadcrumb"},"inLanguage":"pt-PT","potentialAction":[{"@type":"ReadAction","target":["https:\/\/exceladvisor.org\/pt\/este-caderno\/"]}]},{"@type":"ImageObject","inLanguage":"pt-PT","@id":"https:\/\/exceladvisor.org\/pt\/este-caderno\/#primaryimage","url":"https:\/\/exceladvisor.org\/wp-content\/uploads\/2023\/08\/1-vba-ce-classeur.png","contentUrl":"https:\/\/exceladvisor.org\/wp-content\/uploads\/2023\/08\/1-vba-ce-classeur.png"},{"@type":"BreadcrumbList","@id":"https:\/\/exceladvisor.org\/pt\/este-caderno\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"Lar","item":"https:\/\/exceladvisor.org\/pt\/"},{"@type":"ListItem","position":2,"name":"Como usar a vari\u00e1vel thisworkbook vba no excel?"}]},{"@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\/102","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=102"}],"version-history":[{"count":1,"href":"https:\/\/exceladvisor.org\/pt\/wp-json\/wp\/v2\/pages\/102\/revisions"}],"predecessor-version":[{"id":1340,"href":"https:\/\/exceladvisor.org\/pt\/wp-json\/wp\/v2\/pages\/102\/revisions\/1340"}],"wp:attachment":[{"href":"https:\/\/exceladvisor.org\/pt\/wp-json\/wp\/v2\/media?parent=102"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}