Aqui est\u00e1 uma maneira comum de fazer isso na pr\u00e1tica:<\/span><\/p>\n Esta macro espec\u00edfica ir\u00e1 gerar uma caixa de mensagem contendo uma lista de todas as pastas de trabalho abertas do Excel.<\/span><\/p>\n O exemplo a seguir mostra como usar esta macro na pr\u00e1tica.<\/span><\/p>\n Vamos supor que as tr\u00eas pastas de trabalho do Excel a seguir estejam abertas no momento:<\/span><\/span><\/p>\n Digamos que queremos usar o VBA para listar os nomes de todas essas pastas de trabalho abertas.<\/span><\/p>\n Podemos criar a seguinte macro para fazer isso:<\/span><\/p>\n Quando executamos esta macro, recebemos a seguinte sa\u00edda:<\/span> <\/p>\n A caixa de mensagem exibe os nomes de cada uma das pastas de trabalho abertas, com cada pasta de trabalho exclusiva listada em sua pr\u00f3pria linha.<\/span><\/p>\n Observe que usamos a constante vbCrLf<\/strong> no loop For Each<\/strong> para inserir um retorno de carro, que move o cursor para a pr\u00f3xima linha.<\/span><\/p>\n Isso nos permitiu listar cada pasta de trabalho aberta em sua pr\u00f3pria linha na caixa de mensagem.<\/span><\/p>\n Os tutoriais a seguir explicam como realizar outras tarefas comuns em VBA:<\/span><\/p>\n Como renomear um arquivo usando VBA<\/a> Voc\u00ea pode usar um loop For Each no VBA para obter uma lista de todas as pastas de trabalho abertas do Excel. Aqui est\u00e1 uma maneira comum de fazer isso na pr\u00e1tica: Sub ListAllOpenWorkbooks() Dim wbName As String Dim wb As Workbook ‘add each open workbook to message box For Each wb In Application.Workbooks wbName […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[11],"tags":[],"class_list":["post-4995","post","type-post","status-publish","format-standard","hentry","category-guia"],"yoast_head":"\n Sub<\/span> ListAllOpenWorkbooks()\n\nDim<\/span> wbName As String<\/span>\nDim<\/span> wb As<\/span> Workbook\n\n'add each open workbook to message box\n<\/span>For Each<\/span> wb In<\/span> Application.Workbooks\n wbName = wbName & wb.Name & vbCrLf\nNext<\/span>\n\n'display message box with all open workbooks\n<\/span>MsgBox<\/span> wbName\n\nEnd Sub\n<\/span><\/strong><\/span><\/pre>\n Exemplo: Obtenha uma lista de todas as pastas de trabalho abertas usando VBA<\/strong><\/span><\/h2>\n
\n
Sub<\/span> ListAllOpenWorkbooks()\n\nDim<\/span> wbName As String<\/span>\nDim<\/span> wb As<\/span> Workbook\n\n'add each open workbook to message box\n<\/span>For Each<\/span> wb In<\/span> Application.Workbooks\n wbName = wbName & wb.Name & vbCrLf\nNext<\/span>\n\n'display message box with all open workbooks\n<\/span>MsgBox<\/span> wbName\n\nEnd Sub<\/span><\/strong><\/span><\/pre>\n![\"\"](\"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/ao1.png\")
<\/p>\n Recursos adicionais<\/strong><\/span><\/h2>\n
Como listar arquivos em uma pasta usando VBA<\/a>
Como abrir todos os arquivos de uma pasta usando VBA<\/a>
Como verificar se o arquivo existe usando VBA<\/a>
<\/span><\/p>\n","protected":false},"excerpt":{"rendered":"