Note: The other languages of the website are Google-translated. Back to English

Como executar uma macro ao mesmo tempo em vários arquivos de pasta de trabalho?

Neste artigo, falarei sobre como executar uma macro em vários arquivos de pasta de trabalho ao mesmo tempo, sem abri-los. O método a seguir pode ajudá-lo a resolver essa tarefa no Excel.

Execute uma macro ao mesmo tempo em várias pastas de trabalho com código VBA


Execute uma macro ao mesmo tempo em várias pastas de trabalho com código VBA

Para executar uma macro em várias pastas de trabalho sem abri-las, aplique o seguinte código VBA:

1. Segure o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.

2. Clique inserção > Móduloe cole a macro a seguir no Módulo Janela.

Código VBA: execute a mesma macro em várias pastas de trabalho ao mesmo tempo:

Sub LoopThroughFiles()
    Dim xFd As FileDialog
    Dim xFdItem As Variant
    Dim xFileName As String
    Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
    If xFd.Show = -1 Then
        xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
        xFileName = Dir(xFdItem & "*.xls*")
        Do While xFileName <> ""
            With Workbooks.Open(xFdItem & xFileName)
                'your code here
            End With
            xFileName = Dir
        Loop
    End If
End Sub

Nota: No código acima, copie e cole seu próprio código sem o Sub título e End Sub rodapé entre o Com Workbooks.Open (xFdItem & xFileName) e Terminar com scripts. Veja a imagem:

doc executar macro arquivos múltiplos 1

3. Então aperte F5 chave para executar este código, e um Procurar janela for exibida, selecione uma pasta que contenha as pastas de trabalho para as quais você deseja aplicar esta macro, consulte a captura de tela:

doc executar macro arquivos múltiplos 2

4. E, em seguida, clique em OK , a macro desejada será executada de uma vez de uma pasta de trabalho para outras.

 


As melhores ferramentas de produtividade para escritório

O Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%

  • armadilha para peixes: Insira rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de discussão e enviar emails ...
  • Barra Super Fórmula (edite facilmente várias linhas de texto e fórmula); Layout de leitura (ler e editar facilmente um grande número de células); Colar na faixa filtrada...
  • Mesclar células / linhas / colunas sem perder dados; Dividir o conteúdo das células; Combinar linhas / colunas duplicadas... Evite células duplicadas; Comparar intervalos...
  • Selecione Duplicado ou Único Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros; Seleção aleatória ...
  • Cópia exata Várias células sem alterar a referência da fórmula; Criação automática de referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
  • Extrair Texto, Adicionar texto, remover por posição, Remover Espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
  • Super Filtro (salvar e aplicar esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro Especial por negrito, itálico ...
  • Combine pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Divida os dados em várias folhas; Conversão em lote de xls, xlsx e PDF...
  • Mais de 300 recursos poderosos. Suporta Office / Excel 2007-2021 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Recursos completos de avaliação gratuita de 30 dias. Garantia de devolução do dinheiro em 60 dias.
guia kte 201905

Guia do Office traz interface com guias para o Office e torna seu trabalho muito mais fácil

  • Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
  • Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
parte inferior da aba do escritório

 

Comentários (43)
Avaliado 4.5 fora do 5 · classificações 1
Este comentário foi feito pelo moderador no site
Macro muito útil e funciona bem, mas gostaria de poder selecionar em quais arquivos dessa pasta quero que a macro seja executada? Os arquivos não são gerados automaticamente em uma pasta separada e preciso executar macros diferentes em cada conjunto de arquivos dessa pasta e, em seguida, movê-los de volta para a pasta inicial.
Este comentário foi feito pelo moderador no site
Eu segui as instruções, mas recebo um erro de compilação "Loop sem fazer". O que estou perdendo? Meu código de macro é muito simples, basta alterar o tamanho da fonte das linhas especificadas. Funciona por conta própria. Aqui está o que eu tenho... por favor me ajude

Sub LoopThroughFiles()
Dim xFd As FileDialog
Dim xFdItem como variante
Dim xFileName como string
Definir xFd = Application.FileDialog(msoFileDialogFolderPicker)
Se xFd.Show = -1 Então
xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
xFileName = Dir(xFdItem & "*.xls*")
Faça enquanto xFileName <> ""
Com Workbooks.Open (xFdItem & xFileName)
'seu código aqui
Linhas("2:8").Selecione
Com Seleção.Fonte
.Nome = "Arial"
.Tamanho = 12
. Tachado = Falso
.Sobrescrito = Falso
.Subscrito = Falso
.OutlineFont = Falso
.Sombra = Falso
.Underline = xlUnderlineStyleNone
.Cor = -11518420
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
Terminar com
xFileName = Dir
laço
Se acabar
End Sub
Este comentário foi feito pelo moderador no site
Olá, Yarto,
Você perdeu o script "End with" no final do seu código, o correto deve ser este:
Sub LoopThroughFiles()
Dim xFd As FileDialog
Dim xFdItem como variante
Dim xFileName como string
Definir xFd = Application.FileDialog(msoFileDialogFolderPicker)
Se xFd.Show = -1 Então
xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
xFileName = Dir(xFdItem & "*.xls*")
Faça enquanto xFileName <> ""
Com Workbooks.Open (xFdItem & xFileName)
'seu código aqui
Linhas("2:8").Selecione
Com Seleção.Fonte
.Nome = "Arial"
.Tamanho = 16
. Tachado = Falso
.Sobrescrito = Falso
.Subscrito = Falso
.OutlineFont = Falso
.Sombra = Falso
.Underline = xlUnderlineStyleNone
.Cor = -11518420
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
Terminar com
Terminar com
xFileName = Dir
laço
Se acabar
End Sub

Por favor, tente, espero que possa ajudá-lo!
Este comentário foi feito pelo moderador no site
Macro muito útil e funciona muito bem, mas gostaria de poder selecionar em quais arquivos dessa pasta quero que a macro seja executada? Por exemplo, eu tenho 4 arquivos em uma pasta com outros arquivos do Excel e só quero que ele seja executado nesses 4 arquivos específicos. Como posso ajustar sua macro para me deixar escolher esses 4 arquivos dessa pasta?
Este comentário foi feito pelo moderador no site
Olá, Joel,
Para acionar o mesmo código em pastas de trabalho específicas, você deve aplicar o código abaixo:

Sub LoopThroughFiles()
Dim xFd As FileDialog
Dim xFdItem como variante
Dim xFileName como string
Dim xFB como string
Com Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = Verdadeiro
.Filtros.Limpar
.Filters.Add "excel", "*.xls*"
.Exposição
Se .SelectedItems.Count < 1 Then Exit Sub
Para lngCount = 1 Para .SelectedItems.Count
xFileName = .SelectedItems(lngCount)
Se xFileName <> "" Então
Com Workbooks.Open(Filename:=xFileName)
'seu código
Terminar com
Se acabar
Próxima lngCount
Terminar com
End Sub

Por favor, tente, espero que possa ajudá-lo!
Este comentário foi feito pelo moderador no site
obrigado, foi realmente útil
Este comentário foi feito pelo moderador no site
Oi!

Eu tento inserir meu código no seu e quando executo a macro ele me dá a seguinte mensagem: Erro em tempo de execução '429': ActiveX não pode criar o objeto. Por favor, aconselhou sobre como isso pode ser corrigido. Obrigada!

Meu código:

Definir RInput = Range("A2:A21")
Definir ROutput = Range("D2:D22")

Dim A() como variante
ReDim A(1 para REntrada.Linhas.Contagem, 0)
A = REntrada.Valor2

Set d = CreateObject("Scripsting.Dictionary")

Para i = 1 Para UBound(A)
Se d.Existe(A(i, 1)) Então
d(A(i, 1)) = d(A(i, 1)) + 1
Outro
d. Adicione A(i, 1), 1
Se acabar
Seguinte
Para i = 1 Para UBound(A)
A(i, 1) = d(A(i, 1))
Seguinte

RSaída = A
Este comentário foi feito pelo moderador no site
Olá, em primeiro lugar obrigado por esta macro, era exatamente o que eu estava procurando. No entanto, tenho um problema, existe uma maneira de fechar e salvar cada janela à medida que ela é concluída. Eu tenho uma grande quantidade de arquivos e estou ficando sem RAM antes que a execução seja concluída.
Este comentário foi feito pelo moderador no site
Sim, basta adicionar o seguinte código abaixo se desejar que ele salve o arquivo com o mesmo nome:

'Salvando a pasta de trabalho
ActiveWorkbook.Save
Este comentário foi feito pelo moderador no site
Olá, Caitlin,
Talvez o código abaixo possa ajudá-lo, cada vez depois de executar seu código específico, uma caixa de prompt para salvar arquivo aparecerá para lembrá-lo de salvar a pasta de trabalho.

Sub LoopThroughFiles()
Dim xFd As FileDialog
Dim xFdItem como variante
Dim xFileName como string
Dim xWB como pasta de trabalho
Definir xFd = Application.FileDialog(msoFileDialogFolderPicker)
Se xFd.Show = -1 Então
xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
xFileName = Dir(xFdItem & "*.xls*")
On Error Resume Next
Faça enquanto xFileName <> ""
Set xWB = Workbooks.Open(xFdItem & xFileName)
Com xWB
'seu código aqui
Terminar com
xWB. Fechar
xFileName = Dir
laço
Se acabar
End Sub
Este comentário foi feito pelo moderador no site
Oi!

Eu tento inserir meu código no seu e quando executo a macro ele me dá a seguinte mensagem: Erro em tempo de execução '429': ActiveX não pode criar o objeto. Por favor, aconselhou sobre como isso pode ser corrigido. Obrigada!

Meu código:

Definir RInput = Range("A2:A21")
Definir ROutput = Range("D2:D22")

Dim A() como variante
ReDim A(1 para REntrada.Linhas.Contagem, 0)
A = REntrada.Valor2

Set d = CreateObject("Scripsting.Dictionary")

Para i = 1 Para UBound(A)
Se d.Existe(A(i, 1)) Então
d(A(i, 1)) = d(A(i, 1)) + 1
Outro
d. Adicione A(i, 1), 1
Se acabar
Seguinte
Para i = 1 Para UBound(A)
A(i, 1) = d(A(i, 1))
Seguinte

RSaída = A
Este comentário foi feito pelo moderador no site
Olá,

Eu usei essa macro com sucesso para formatar arquivos da NBA para as 30 equipes, cada uma com seu próprio livro. Ontem, recebi uma mensagem de erro dizendo que o Módulo (macro) não pode ser concluído, excluído ou editado (para ser salvo). Ele corrompeu minha pasta de trabalho de macro pessoal e tornou o Excel praticamente inutilizável para mim. Ele trava o aplicativo toda vez que tento acessar uma macro de qualquer arquivo. O suporte do Excel e o suporte do Windows não foram capazes de consertar as coisas. Você pode ajudar?
Este comentário foi feito pelo moderador no site
Oi, Existe uma maneira que eu possa definir o destino do arquivo no próprio script. Eu quero pular o processo 3 onde temos que navegar na pasta específica.
Este comentário foi feito pelo moderador no site
Olá, obrigado por este código. você pode me dizer como posso ter o resultado da minha macro para a qual abri todas as pastas de trabalho em uma planilha (o resultado de cada pasta de trabalho em uma linha)? e existe uma maneira de adicionar o nome de cada pasta de trabalho à linha com os dados da etapa anterior?
Este comentário foi feito pelo moderador no site
Hi

Recebi um erro de tempo de execução 1004: a sintaxe não está correta quando executei o seguinte código, que é o Extend Office VBA para "Executar uma macro ao mesmo tempo em várias pastas de trabalho com código VBA" com o Extend Office VBA "Excluir todos os intervalos nomeados com código VBA" no insira seu slot de código:

Sub LoopThroughFiles()

Dim xFd As FileDialog

Dim xFdItem como variante

Dim xFileName como string

Definir xFd = Application.FileDialog(msoFileDialogFolderPicker)

Se xFd.Show = -1 Então

xFdItem = xFd.SelectedItems(1) & Application.PathSeparator

xFileName = Dir(xFdItem & "*.xls*")

Faça enquanto xFileName <> ""

Com Workbooks.Open (xFdItem & xFileName)

' Sub DeleteNames()

'Atualizar 20140314

Dim xName como nome

Para cada xName em Application.ActiveWorkbook.Names

xNome.Excluir

Seguinte


Terminar com

xFileName = Dir

laço

Se acabar

End Sub

O que estou tentando fazer é executar uma macro que exclua os intervalos nomeados em oito pastas de trabalho contidas na mesma pasta.

BTW, esta é a primeira vez que uso algo do Extend Office e não funcionou. Este site tem sido extremamente útil para mim.

Sugestões/comentários seriam muito apreciados.

aldc
Este comentário foi feito pelo moderador no site
Olá, aldc,
Seu código funciona bem na minha pasta de trabalho, qual versão do Excel você usa?
Este comentário foi feito pelo moderador no site
Olá, este código é tão bom e útil. Eu uso isto muito!

Hoje em dia, na minha organização, agora usamos o SharePoint para armazenar nossos arquivos. Existe alguma maneira de fazer esse código funcionar em todos os arquivos em uma pasta do sharepoint?
Este comentário foi feito pelo moderador no site
Olá, obrigado por este código.
Existe uma maneira de percorrer as subpastas também? Digamos que eu tenha uma pasta e dentro da pasta mais dez pastas, cada uma contendo um arquivo do Excel.

Existe uma maneira de apenas selecionar a pasta primária para que o código seja executado em todas as suas subpastas?

Obrigado.
Este comentário foi feito pelo moderador no site
Oi, Darko, Para executar um código de uma pasta com as subpastas, aplique o seguinte código: Sub LoopThroughFiles_Subfolders(xStrPath As String)
Dim xSFolderName
Dim xFileName
Dim xArrSFPath() como string
Dim xI como inteiro
If xStrPath = "" Então Exit Sub
xFileName = Dir(xStrPath & "*.xls*")
Faça enquanto xFileName <> ""
Com Workbooks.Open(xStrPath & xFileName)
'seu código aqui
Terminar com
xFileName = Dir
laço
xSFolderName = Dir(xStrPath, vbDirectory)
xI = 0
ReDim xArrSFPath(0)
Faça enquanto xSFolderName <> ""
Se xSFFolderName <> "." E xSFFolderName <> ".." Então
If (GetAttr(xStrPath & xSFolderName) E vbDirectory) = vbDirectory Then
xI = xI + 1
ReDim Preserve xArrSFPath(xI)
xArrSFPath(xI - 1) = xStrPath & xSFFolderName & "\"
Se acabar
Se acabar
xSFolderName = Dir
laço
Se UBound(xArrSFPath) > 0 Então
Para xI = 0 Para UBound(xArrSFPath)
LoopThroughFiles_Subfolders (xArrSFPAth(xI))
Próximo xI
Se acabar
End Sub
Sub LoopThroughFiles()
Dim xFd As FileDialog
Dim xFdItem como variante
Dim xFileName como string
Definir xFd = Application.FileDialog(msoFileDialogFolderPicker)
Se xFd.Show = -1 Então
xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
LoopThroughFiles_Subfolders (xFdItem)
Se acabar
End SubPor favor, tente, espero que possa ajudá-lo!
Este comentário foi feito pelo moderador no site
Além do código acima, é possível abrir arquivos do Excel na ordem cronológica que eu queria?
Este comentário foi feito pelo moderador no site
Oi primeiro de tudo, muito obrigado pela macro, é realmente útil para trabalhar. Eu só queria saber se temos uma maneira de atualizar a pasta no onedrive por meio de macro. Se sim, você poderia me informar o que posso fazer aqui para atualizar os arquivos no onedrive usando o script de macro?
Este comentário foi feito pelo moderador no site
Oi, muito obrigado por este script, funciona muito bem para mim, mas tenho necessidades especiais: Existe uma maneira de alterar o script para aplicar meu código com condições de nome de arquivo E em subpastas?
Eu explico: sou professor e criei uma solução em excel para salvar os resultados dos alunos e permitir que os professores os consultem. Para isso, tenho um arquivo por matéria escolar e um para o responsável por turma, tudo em uma pasta por turma.
Portanto, quando encontro um bug ou uma otimização, tenho que relatar as alterações em todos os arquivos em todas as subpastas.
Mas como todos os arquivos não são iguais (organização de assuntos diferentes), eu gostaria de uma maneira de aplicar meu código por exemplo a todos os arquivos chamados "classe matemática" em todas as subpastas, ou ao contrário, aplicar meu código a todos os arquivos em subpastas, exceto todos os arquivos chamados "xyz".Obrigado!Fabrice
Este comentário foi feito pelo moderador no site
Seu código fornecido não está funcionando com o seguinte VBA, você pode ajudar, por favor, Sub Bundles ()

Dim vWS como planilha
Dim vA, vA2()
Dim vR como longo, vSum como longo, vC como longo
Dim vN Longo, vN2 Longo, vN3 Longo

Definir vWS = ActiveSheet
Com vWS
vR = .Cells(Rows.Count, 4).End(xlUp).Row
vSum = Application.Sum(.Range("D2:D" & vR))
ReDim Preserve vA2(1 para vSum, 1 para 4)
vA = .Range("A2:D" & vR)
Para vN = 1 Para vR - 1
Para vN2 = 1 Para vA(vN, 4)
vC = vC + 1
Para vN3 = 1 a 4
vA2(vC, vN3) = vA(vN, vN3)
Próxima vN3
Próxima vN2
Próximo vN
Terminar com
vc = 1
Para vN = 1 Para vSum - 2
vA2(vN, 4) = vC
Se vA2(vN + 1, 2) = vA2(vN, 2) Então
vC = vC + 1
vA2(vN + 1, 4) = vC
Outro
vA2(vN + 1, 4) = 1
vc = 1
Se acabar
Próximo vN
Application.ScreenUpdating = False
Sheets.add
Com ActiveSheet
vWS.Range("A1:D1").Copy .Range("A1:D1")
.Cells(2, 1).Resize(vSum, 4) = vA2
Terminar com
Application.ScreenUpdating = True

End Sub
Este comentário foi feito pelo moderador no site
Eu quero executar este VBA em várias planilhas em uma pasta de cada vez, por favor, ajudeSub Bundles()

Dim vWS como planilha
Dim vA, vA2()
Dim vR como longo, vSum como longo, vC como longo
Dim vN Longo, vN2 Longo, vN3 Longo

Definir vWS = ActiveSheet
Com vWS
vR = .Cells(Rows.Count, 4).End(xlUp).Row
vSum = Application.Sum(.Range("D2:D" & vR))
ReDim Preserve vA2(1 para vSum, 1 para 4)
vA = .Range("A2:D" & vR)
Para vN = 1 Para vR - 1
Para vN2 = 1 Para vA(vN, 4)
vC = vC + 1
Para vN3 = 1 a 4
vA2(vC, vN3) = vA(vN, vN3)
Próxima vN3
Próxima vN2
Próximo vN
Terminar com
vc = 1
Para vN = 1 Para vSum - 2
vA2(vN, 4) = vC
Se vA2(vN + 1, 2) = vA2(vN, 2) Então
vC = vC + 1
vA2(vN + 1, 4) = vC
Outro
vA2(vN + 1, 4) = 1
vc = 1
Se acabar
Próximo vN
Application.ScreenUpdating = False
Sheets.add
Com ActiveSheet
vWS.Range("A1:D1").Copy .Range("A1:D1")
.Cells(2, 1).Resize(vSum, 4) = vA2
Terminar com
Application.ScreenUpdating = True

End Sub
Este comentário foi feito pelo moderador no site
Tentei executar o código, mas o erro "424: Object Required" aparece na linha "With Workbooks.Open(xFdItem & xFileName)". Ao olhar mais a fundo, parece que as pastas de trabalho do excel armazenadas na pasta de interesse não são exibidas/existem (quando a janela aberta com a exibição do código, se eu tentar abrir a pasta e não selecioná-la, ela está vazia). Como assim?
Sub LoopThroughFiles()
Dim xFd As FileDialog
Dim xFdItem como variante
Dim xFileName como string
Definir xFd = Application.FileDialog(msoFileDialogFolderPicker)
Se xFd.Show = -1 Então
xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
xFileName = Dir(xFdItem & "*.xls*")
Faça enquanto xFileName <> ""
Com Workbooks.Open (xFdItem & xFileName)
Sheets.Add After:=ActiveSheet
Folhas ("Folha2"). Selecione
Sheets("Planilha2").Name = "Mestre"
Planilhas("Mestre").Selecione
Sheets("Mestre").Mover antes:=Planilhas(1)
Terminar com
xFileName = Dir
laço
Se acabar
End Sub


Você pode por favor me ajudar a resolver esse problema?
Este comentário foi feito pelo moderador no site
Este é o meu site favorito com as instruções mais claras (mais do que qualquer vídeo do YouTube) e continuo voltando a ele várias vezes. Muito obrigado por esses tutoriais - você é o salva-vidas de um estudante de pós-graduação triste.
Este comentário foi feito pelo moderador no site
Sub LoopThroughFiles()
Dim xFd As FileDialog
Dim xFdItem como variante
Dim xFileName como string
Definir xFd = Application.FileDialog(msoFileDialogFolderPicker)
Se xFd.Show = -1 Então
xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
xFileName = Dir(xFdItem & "*.xls*")
Faça enquanto xFileName <> ""
Com Workbooks.Open (xFdItem & xFileName)
' ActiveCell.Offset(0, 1).Columns("A:A").EntireColumn.Select
Seleção.Inserir Shift:=xlToRight
ActiveCell.Selecionar
Terminar com
xFileName = Dir
laço
Se acabar
End Sub, por favor me ajude. BTW, minha extensão de arquivos do Excel é (.csv - "delimitado por vírgula") . e eu tenho 500 arquivos do Excel em uma pasta com cada linha média de aproximadamente 500000 linhas.. Por favor, ajude. Eu só quero inserir coluna em cada pasta de trabalho
Este comentário foi feito pelo moderador no site
você já obteve uma resposta para sua pergunta? Estou tentando fazer a mesma coisa com mais de 3700 arquivos csv. Eu só preciso adicionar 1 coluna (A).
Este comentário foi feito pelo moderador no site
Olá, carente e Carly, para resolver seu problema, para executar o código de vários arquivos CSV, basta alterar a extensão do arquivo .xls para .csv conforme o código abaixo: Sub LoopThroughFiles()
Dim xFd As FileDialog
Dim xFdItem como variante
Dim xFileName como string
Definir xFd = Application.FileDialog(msoFileDialogFolderPicker)
Se xFd.Show = -1 Então
xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
xFileName = Dir(xFdItem & "*.csv*")
Faça enquanto xFileName <> ""
Com Workbooks.Open (xFdItem & xFileName)
ActiveCell.Offset(0, 1).Columns("A:A").EntireColumn.Select
Seleção.Inserir Shift:=xlToRight
ActiveCell.Selecionar
Terminar com
xFileName = Dir
laço
Se acabar
End SubPor favor, tente, espero que possa ajudá-lo!
Este comentário foi feito pelo moderador no site
Oi, é possível executar a macro apenas nas planilhas de pastas de trabalho diferentes com um nome específico? Obrigado!!
Este comentário foi feito pelo moderador no site
Olá, Sara,
Desculpe, não há uma boa solução para o problema que você levantou.
Obrigado!
Não há comentários postados aqui ainda
carregar mais
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos

Siga-nos

Copyright © 2009 - www.extendoffice.com. | Todos os direitos reservados. Distribuído por ExtendOffice. | | | Mapa do site
Microsoft e o logotipo do Office são marcas comerciais ou marcas registradas da Microsoft Corporation nos Estados Unidos e / ou em outros países.
Protegido por Sectigo SSL