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

Como combinar várias pastas de trabalho em uma pasta de trabalho mestre no Excel?

Você já parou para combinar várias pastas de trabalho em uma pasta de trabalho mestre no Excel? O mais terrível é que as pastas de trabalho que você precisa combinar contêm várias planilhas. E como combinar apenas as planilhas especificadas de várias pastas de trabalho em uma pasta de trabalho? Este tutorial demonstra vários métodos úteis para ajudá-lo a resolver o problema passo a passo.


Combine várias pastas de trabalho em uma pasta de trabalho com a função Mover ou Copiar

Se houver apenas algumas pastas de trabalho que precisam ser combinadas, você pode usar o comando Mover ou Copiar para mover ou copiar manualmente as planilhas da pasta de trabalho original para a pasta de trabalho mestre.

1. Abra as pastas de trabalho que você fundirá em uma pasta de trabalho mestre.

2. Selecione as planilhas na pasta de trabalho original que você moverá ou copiará para a pasta de trabalho mestre.

notas:

1). Você pode selecionar várias planilhas não adjacentes segurando o Ctrl e clicando nas guias da folha uma por uma.

2). Para selecionar várias planilhas adjacentes, clique na guia da primeira planilha, segure o mudança e, em seguida, clique na guia da última planilha para selecionar todas.

3). Você pode clicar com o botão direito em qualquer guia da planilha, clicar em Selecione todas as planilhas no menu de contexto para selecionar todas as planilhas na pasta de trabalho ao mesmo tempo.

3. Depois de selecionar as planilhas necessárias, clique com o botão direito na guia da planilha e clique em Mover ou Copiar no menu de contexto. Veja a imagem:

4. Então o Mover ou Copiar caixa de diálogo aparece, no Agendar no menu suspenso, selecione a pasta de trabalho mestre para a qual você moverá ou copiará as planilhas. Selecione mover para terminar no Antes da folha caixa, marque a Crie uma cópia e, finalmente, clique no OK botão.

Então você pode ver planilhas em duas pastas de trabalho combinadas em uma. Repita as etapas acima para mover planilhas de outras pastas de trabalho para a pasta de trabalho mestre.


Combine várias pastas de trabalho ou planilhas especificadas de pastas de trabalho em uma pasta de trabalho mestre com VBA

Se houver várias pastas de trabalho que precisam ser mescladas em uma, você pode aplicar os seguintes códigos VBA para obter isso rapidamente. Faça o seguinte.

1. Coloque todas as pastas de trabalho que deseja combinar em uma no mesmo diretório.

2. Inicie um arquivo Excel (esta pasta de trabalho será a pasta de trabalho mestre).

3. aperte o outro + F11 chaves para abrir o Microsoft Visual Basic para aplicativos janela. No Microsoft Visual Basic para aplicativos janela, clique em inserção > Móduloe copie o código VBA abaixo para a janela Módulo.

Código VBA 1: mesclar várias pastas de trabalho do Excel em uma

Sub GetSheets()
'Updated by Extendoffice 2019/2/20
Path = "C:\Users\dt\Desktop\dt kte\"
Filename = Dir(Path & "*.xlsx")
  Do While Filename <> ""
  Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
     For Each Sheet In ActiveWorkbook.Sheets
     Sheet.Copy After:=ThisWorkbook.Sheets(1)
  Next Sheet
     Workbooks(Filename).Close
     Filename = Dir()
  Loop
End Sub
	

notas:

1. O código VBA acima manterá os nomes das planilhas das pastas de trabalho originais após a fusão.

2. Se você deseja distinguir quais planilhas na pasta de trabalho mestre vieram de onde após a fusão, aplique o código 2 do VBA abaixo.

3. Se você deseja apenas combinar planilhas especificadas das pastas de trabalho em uma pasta de trabalho mestre, o código VBA 3 abaixo pode ajudar.

Em códigos VBA, “C: \ Users \ DT168 \ Desktop \ KTE \”É o caminho da pasta. No código 3 do VBA, "Folha1, Folha3"são as planilhas especificadas das pastas de trabalho que você combinará em uma pasta de trabalho mestre. Você pode alterá-las com base em suas necessidades.

Código VBA 2: mesclar pastas de trabalho em uma (cada planilha será nomeada com o prefixo de seu nome de arquivo original):

Sub MergeWorkbooks()
'Updated by Extendoffice 2019/2/20
Dim xStrPath As String
Dim xStrFName As String
Dim xWS As Worksheet
Dim xMWS As Worksheet
Dim xTWB As Workbook
Dim xStrAWBName As String
On Error Resume Next
xStrPath = "C:\Users\DT168\Desktop\KTE\"
xStrFName = Dir(xStrPath & "*.xlsx")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xTWB = ThisWorkbook
Do While Len(xStrFName) > 0
    Workbooks.Open Filename:=xStrPath & xStrFName, ReadOnly:=True
    xStrAWBName = ActiveWorkbook.Name
    For Each xWS In ActiveWorkbook.Sheets
    xWS.Copy After:=xTWB.Sheets(xTWB.Sheets.Count)
    Set xMWS = xTWB.Sheets(xTWB.Sheets.Count)
    xMWS.Name = xStrAWBName & "(" & xMWS.Name & ")"
    Next xWS
    Workbooks(xStrAWBName).Close
    xStrFName = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Código VBA 3: mesclar planilhas de pastas de trabalho especificadas em uma pasta de trabalho mestre:

Sub MergeSheets2()
'Updated by Extendoffice 2019/2/20
Dim xStrPath As String
Dim xStrFName As String
Dim xWS As Worksheet
Dim xMWS As Worksheet
Dim xTWB As Workbook
Dim xStrAWBName As String
Dim xI As Integer
On Error Resume Next

xStrPath = " C:\Users\DT168\Desktop\KTE\"
xStrName = "Sheet1,Sheet3"

xArr = Split(xStrName, ",")

Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xTWB = ThisWorkbook
xStrFName = Dir(xStrPath & "*.xlsx")
Do While Len(xStrFName) > 0
Workbooks.Open Filename:=xStrPath & xStrFName, ReadOnly:=True
xStrAWBName = ActiveWorkbook.Name
For Each xWS In ActiveWorkbook.Sheets
For xI = 0 To UBound(xArr)
If xWS.Name = xArr(xI) Then
xWS.Copy After:=xTWB.Sheets(xTWB.Sheets.count)
Set xMWS = xTWB.Sheets(xTWB.Sheets.count)
xMWS.Name = xStrAWBName & "(" & xArr(xI) & ")"
Exit For
End If
Next xI
Next xWS
Workbooks(xStrAWBName).Close
xStrFName = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub

4. aperte o F5 chave para executar o código. Em seguida, todas as planilhas ou planilhas especificadas das pastas de trabalho em determinada pasta são combinadas em uma pasta de trabalho mestre de uma vez.


Combine facilmente várias pastas de trabalho ou planilhas específicas de pastas de trabalho em uma pasta de trabalho

Felizmente, o Combinar utilitário de pasta de trabalho de Kutools for Excel torna muito mais fácil mesclar várias pastas de trabalho em uma. Vamos ver como fazer essa função funcionar combinando várias pastas de trabalho.

Antes de aplicar Kutools for Excel, Por favor baixe e instale primeiro.

1. Crie uma nova pasta de trabalho e clique em Kutools Plus > Combinar. Em seguida, uma caixa de diálogo é exibida para lembrá-lo de que todas as pastas de trabalho combinadas devem ser salvas e o recurso não pode ser aplicado a pastas de trabalho protegidas, clique no botão OK botão.

2. No Combinar planilhas assistente, selecione Combine várias planilhas de pastas de trabalho em uma pasta de trabalho opção e, em seguida, clique no Seguinte botão. Veja a imagem:

3. No Combinar planilhas - Etapa 2 de 3 caixa de diálogo, clique no botão Adicionar > Envie o or Pasta para adicionar os arquivos do Excel, você os fundirá em um. Após adicionar os arquivos do Excel, clique no botão Acabamento e escolha uma pasta para salvar a pasta de trabalho mestre. Veja a imagem:

Agora todas as pastas de trabalho estão mescladas em uma.

Comparado com os dois métodos acima, Kutools for Excel tem as seguintes vantagens:

  • 1) Todas as pastas de trabalho e planilhas são listadas na caixa de diálogo;
  • 2) Para as planilhas que você deseja excluir da fusão, apenas desmarque;
  • 3) As planilhas em branco são excluídas automaticamente;
  • 4) O nome do arquivo original será adicionado como prefixo ao nome da planilha após a fusão;
  • Para obter mais funções deste recurso, por favor visite aqui.

  Se você quiser ter uma avaliação gratuita (30-dia) deste utilitário, por favor clique para fazer o downloade, em seguida, aplique a operação de acordo com as etapas acima.


Kutools para Excel - Ajuda você a sempre terminar o trabalho antes do tempo, ter mais tempo para aproveitar a vida
Você costuma se surpreender com o trabalho, falta de tempo para gastar com você e sua família?  Kutools for Excel pode ajudá-lo a lidar com 80% Supere os quebra-cabeças e melhore a eficiência do trabalho em 80%, dando a você mais tempo para cuidar da família e aproveitar a vida.
300 ferramentas avançadas para 1500 cenários de trabalho, tornam seu trabalho muito mais fácil do que nunca.
Não é mais necessário memorizar fórmulas e códigos VBA, dê um descanso ao seu cérebro de agora em diante.
Operações complicadas e repetidas podem ser realizadas em um único processamento em segundos.
Reduza milhares de operações com teclado e mouse todos os dias, diga adeus às doenças ocupacionais agora.
Torne-se um especialista em Excel em 3 minutos, ajude você a ser reconhecido rapidamente e receba uma promoção de aumento de salário.
110,000 pessoas altamente eficazes e mais de 300 opções de empresas de renome mundial.
Faça seus $ 39.0 valerem mais do que $ 4000.0 para treinamento de outras pessoas.
Teste gratuito com todos os recursos 30-dia. Garantia de devolução do dinheiro em 60 dias sem motivo.

Comentários (146)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
Oi Plz me ajudar a esta condição abaixo. Eu tenho uma pasta de trabalho diferente que tem mais de 5 planilhas, cada uma em um caminho diferente. Eu preciso consolidar todas as planilhas de diferentes pastas de trabalho em uma única pasta de trabalho. Alguém pode me ajudar a resolver com macro.TIA!
Este comentário foi feito pelo moderador no site
[quote]Oi Plz me ajude a esta condição abaixo. Eu tenho uma pasta de trabalho diferente que tem mais de 5 planilhas, cada uma em um caminho diferente. Eu preciso consolidar todas as planilhas de diferentes pastas de trabalho em uma única pasta de trabalho. Alguém pode me ajudar a resolver com macro.TIA!Por A. Karthi[/quote] Faça o download e instale o Kutools for Excel, você pode fazer isso rapidamente. Mas se você quiser usar um VBA, pode ser muito complicado. Para mais informações sobre como fazer isso, acesse:http://www.extendoffice.com/product/kutools-for-excel/excel-combine-worksheets-into-one.html
Este comentário foi feito pelo moderador no site
KUTOOLS Ótima solução. Preciso de mais uma ajuda quando crio a pasta de trabalho mestre e a cor da célula da planilha é alterada da planilha original. Como posso mantê-lo como planilha original.
Este comentário foi feito pelo moderador no site
Nosso escritório tem duplicação de dados (ou seja, nome, endereço, cidade, valor, data de assinatura) de vários originais em Excel e tentar combinar os dados será um trabalho em andamento. Como isso pode ser feito para eliminar o trabalho duplo e as entradas duplas de informações?
Este comentário foi feito pelo moderador no site
Recebo um 'erro de tempo de execução 1004', o método de cópia da classe de planilha falhou na linha que diz: Sheet.Copy After:=ThisWorkbook.Sheets(1). Estou usando o Excel 2010. Você pode ajudar? Obrigado, - Susie
Este comentário foi feito pelo moderador no site
Ei Susie, eu tenho trabalhado neste problema por um tempo agora, recebendo o mesmo erro. Verifique se o módulo foi criado em PESSOAL em vez de sua pasta de trabalho ativa. Depois de criar o módulo na árvore correta, o código abaixo funcionou bem. Sub GetSheets_xls() Dim Sheet As Worksheet Path = "C:\Users\yournamehere\Desktop\Testingfolder\" Filename = Dir(Path & "*.xls") Do While Filename "" Workbooks.Open Filename:=Path & Filename, ReadOnly:=Falso Set Sheet = ActiveWorkbook.Sheets(1) Sheet.Copy After:=ThisWorkbook.Sheets(1) 'Próxima Folha Workbooks(Filename).Close Filename = Dir() Loop End Sub Espero que isso ajude!
Este comentário foi feito pelo moderador no site
Muito obrigado. Seu código funcionou bem.
Este comentário foi feito pelo moderador no site
[quote]Recebo um 'erro de tempo de execução 1004', o método de cópia da classe de planilha falhou na linha que diz: Sheet.Copy After:=ThisWorkbook.Sheets(1). Estou usando o Excel 2010. Você pode ajudar? Obrigado, - SusiePor Susie[/quote] Tive o mesmo problema, funciona quando vou ver e reexibir "PESSOAL", parece ter problemas para acessar essa macro com o master oculto.
Este comentário foi feito pelo moderador no site
Vá para visualizar e reexibir "PESSOAL" - parece ter problemas para executar todo o código enquanto o mestre está oculto. Você pode tornar a macro nativa para essa pasta de trabalho, mas teria que recriar a coisa toda toda vez que quisesse usá-la
Este comentário foi feito pelo moderador no site
Oi! Muito obrigado por este arquivo............. :roll: Atenciosamente
Este comentário foi feito pelo moderador no site
Oi Ótima dica. Fez quase tudo que eu queria. No livro de trabalho combinado, eu adoraria que o nome da planilha contivesse o nome do livro de trabalho original, então eu sei de qual livro de trabalho os dados vêm. Os dados que estou combinando são de arquivos diferentes. Eu tenho que procurar por uma entrada, mas não sei em qual arquivo ela está. Então, ao combinar todos os dados em um arquivo, será possível pesquisar todos os arquivos de uma vez. Mas ainda preciso saber em que arquivo está a entrada. Henrik
Este comentário foi feito pelo moderador no site
Para que o código incorpore o nome do arquivo, basta fazer isso. Sub GetSheets() Dim temp As String Path = "C:\Users\....\Desktop\Excel combine\" Filename = Dir(Path & "*.xlsx") Do While Filename "" Workbooks.Open Filename:= Caminho e nome do arquivo, ReadOnly:=True temp = ActiveWorkbook.Name ActiveSheet.Name = temp ActiveWorkbook.Sheets(temp).Copy After:=ThisWorkbook.Sheets(1) Workbooks(Filename).Close Filename = Dir() Loop End Sub Note : isso é para copiar apenas a primeira folha, pode ser ajustado para fazer todas as folhas
Este comentário foi feito pelo moderador no site
Como você incorpora mais planilhas e como especifica um arquivo mestre diferente para colar todas as planilhas.
Este comentário foi feito pelo moderador no site
É uma ótima solução mesmo. obrigado. Um problema, porém, quando eu executo assim, o Excel perguntará se quero salvar as alterações antes de fechar (já que o nome foi alterado) e não quero fazer isso para todos os arquivos (cerca de 32 por execução). Teria como resolver isso?
Este comentário foi feito pelo moderador no site
Isso é excelente :lol: me ajudou muito ....
Este comentário foi feito pelo moderador no site
Obrigado amigo, você fez meu dia com este site muito útil ... Na verdade eu também queria combinar os mesmos dados de cabeçalho de planilhas diferentes em 1 planilha mestre, o KUTOOL para Excel me ajudou muito .... Obrigado mais uma vez .... :)
Este comentário foi feito pelo moderador no site
Muito obrigado pelas valiosas informações. Isso realmente funciona. As etapas listadas neste artigo realmente facilitaram meu trabalho. Obrigado, Dines
Este comentário foi feito pelo moderador no site
Obrigado por compartilhar o seu conhecimento
Este comentário foi feito pelo moderador no site
Como você faz para atualizar as alterações da pasta de trabalho original? Estou tentando obter um resumo nacional que fará com que cada região insira seus dados em suas próprias pastas de trabalho e, em seguida, o resumo nacional seja atualizado a partir disso? Eu gostaria de ter isso configurado para o ano inteiro no início e não trabalhar retrospectivamente.
Este comentário foi feito pelo moderador no site
Depois de combinar as planilhas em uma pasta de trabalho, como você a salva? Não consegui salvá-la, chama-se Book1 e estou clicando em salvar ou salvar como, mas não está funcionando.
Este comentário foi feito pelo moderador no site
Eu segui as etapas em "Combinar várias pastas de trabalho em uma pasta de trabalho com VBA" e clique em "executar", nada aconteceu. Não estou ciente dos erros e não sei como corrigir. Você me ajudaria? o seguinte é o código que inseri em uma nova pasta de trabalho. Obrigada Sub GetSheets() Path = "p:\download\macro\" Filename = Dir(Path & "*.xls") Do While Filename "" Workbooks.Open Filename:=Path & Filename, ReadOnly:=True For Each Sheet In ActiveWorkbook.Sheets Sheet.Copy After:=ThisWorkbook.Sheets(1) Próxima planilha Workbooks(Filename).Close Filename = Dir() Loop End Sub
Este comentário foi feito pelo moderador no site
Prezado Senhor/Senhora: Eu segui as etapas de "Combinar várias pastas de trabalho em uma pasta de trabalho com VBA" para configurar o módulo a seguir, mas nada aconteceu. Você me ajudaria a encontrar o problema? obrigado Sub GetSheets() Path = "p:\download\macro\" Filename = Dir(Path & "*.xls") Do While Filename "" Workbooks.Open Filename:=Path & Filename, ReadOnly:=True For Each Planilha em ActiveWorkbook.Sheets Sheet.Copy After:=ThisWorkbook.Sheets(1) Próxima planilha Workbooks(Filename).Close Filename = Dir() Loop End Sub
Este comentário foi feito pelo moderador no site
para versões mais recentes do Excel, tente isso. Salvei minha pasta de trabalho aberta como catálogo e todos os arquivos estão em c:\temp. Sub GetSheets() Path = "c:\temp\" Filename = Dir(Path & "*.xls") Do While Filename "" Workbooks.Open Filename:=Path & Filename, ReadOnly:=True For Each Sheet In ActiveWorkbook. Sheets Sheet.Copy After:=Workbooks("catalog.xlsx").Sheets(1) Próxima folha Workbooks(Filename).Close Filename = Dir() Loop End Sub
Este comentário foi feito pelo moderador no site
Tente isso para versões mais recentes do Excel. Salvei minha pasta de trabalho como catálogo, todos os arquivos estão em c:\temp. Sub GetSheets() Path = "c:\temp\" Filename = Dir(Path & "*.xls") Do While Filename "" Workbooks.Open Filename:=Path & Filename, ReadOnly:=True For Each Sheet In ActiveWorkbook. Sheets Sheet.Copy After:=Workbooks("catalog.xlsx").Sheets(1) Próxima folha Workbooks(Filename).Close Filename = Dir() Loop End Sub
Este comentário foi feito pelo moderador no site
[quote]Tente isso para versões mais recentes do Excel. Salvei minha pasta de trabalho como catálogo, todos os arquivos estão em c:\temp. Sub GetSheets() Path = "c:\temp\" Filename = Dir(Path & "*.xls") Do While Filename "" Workbooks.Open Filename:=Path & Filename, ReadOnly:=True For Each Sheet In ActiveWorkbook. Sheets Sheet.Copy After:=Workbooks("catalog.xlsx").Sheets(1) Próxima folha Workbooks(Filename).Close Filename = Dir() Loop End SubPor Dave[/quote] Eu continuo recebendo "não é possível atribuir a propriedade somente leitura" em relação ao caminho... Alguma idéia?
Este comentário foi feito pelo moderador no site
Estou tendo tis problema também. Você descobriu?
Este comentário foi feito pelo moderador no site
Nada ainda... Não encontrei nenhuma solução ou alguém sugeriu uma correção. Desculpe...
Este comentário foi feito pelo moderador no site
Eu também. Isso estava funcionando há 6 meses, a última vez que tive que executá-lo. Alguém já encontrou a solução? Se você o tinha em execução antes e agora não funcionaria, poderia ser algo a ver com uma atualização da Microsoft? Esta é uma ferramenta realmente útil para minhas tarefas e me economiza muito tempo. O que poderia ter mudado que faria com que o Excel começasse a exibir essa mensagem de repente? Sendo bastante novo no VBA, tenho pouca idéia de onde começar a analisar a lógica. Atenciosamente, Grego. Glasgow, Escócia.
Este comentário foi feito pelo moderador no site
Parece que "Path" agora está reservado, então use qualquer outro nome e substitua "Path", por exemplo, "Mypath".
Este comentário foi feito pelo moderador no site
Talvez você deva alterar ReadOnly:=True para ReadOnly:=False, eu fiz e foi útil
Este comentário foi feito pelo moderador no site
Eu estava procurando algo nesse sentido, mas queria comentar. O nome de arquivo Do While "" não precisa ser algo diferente de ""? ou estou lendo errado? Talvez Do While NOT filename = "" Apenas um pensamento...
Este comentário foi feito pelo moderador no site
Eu quero combinar todas as folhas em uma folha onde os títulos são comuns... por favor me ajude
Este comentário foi feito pelo moderador no site
Oi, eu tentei usar as macros acima para agrupar alguns arquivos, infelizmente sem resultados... alguém pode me ajudar a me livrar de agrupar arquivos manualmente.
Este comentário foi feito pelo moderador no site
eu tenho 112 planilhas do Excel que quero colocar em uma única planilha sem copiar e colar. Por favor, me ajude.
Este comentário foi feito pelo moderador no site
Eu tenho uma pasta de trabalho que contém cerca de 250 folhas. Eu preciso de Cobain em uma folha. Por favor me dê uma solução
Este comentário foi feito pelo moderador no site
Tente isso ... eu peguei isso de outro site, mas infelizmente não consigo lembrar o nome da senhora, então minhas desculpas por não lhe dar uma menção, meu mal" Combine vários WBs no Excel: LEMBRE-SE DE MUDAR MyPath = ! Sub Merge2MultiSheets( ) Dim wbDst As Workbook Dim wbSrc As Workbook Dim wsSrc As Worksheet Dim MyPath As String Dim strFilename As String Application.DisplayAlerts = False Application.EnableEvents = False Application.ScreenUpdating = False MyPath = "\\MyPath\etc\etc..." Set wbDst = Workbooks.Add(xlWBATWorksheet) strFilename = Dir(MyPath & "\*.xls", vbNormal) If Len(strFilename) = 0 Então Exit Sub Do Até strFilename = "" Set wbSrc = Workbooks.Open(Filename:= MyPath & "\" & strFilename) Defina wsSrc = wbSrc.Worksheets(1) wsSrc.Copy After:=wbDst.Worksheets(wbDst.Worksheets.Count) wbSrc.Close False strFilename = Dir() Faça um loop wbDst.Worksheets(1). Excluir Application.DisplayAlerts = Verdadeiro Application.EnableEvents = Verdadeiro Application.ScreenUpdating = Verdadeiro End Sub
Este comentário foi feito pelo moderador no site
Oi eu adicionei o código em um módulo. Nomeado o livro do Excel Masterfile. Onde no código eu adiciono. obrigada
Este comentário foi feito pelo moderador no site
Nada disso funcionou para mim, finalmente consegui que esse funcionasse. FYI estou usando 2010 'Descrição: combina todos os arquivos em uma pasta para um arquivo mestre. Sub MergeFiles() Dim path As String, ThisWB As String, lngFilecounter As Long Dim wbDest As Workbook, shtDest As Worksheet, ws As Worksheet Dim Filename As String, Wkb As Workbook Dim CopyRng As Range, Dest As Range Dim RowofCopySheet As Integer RowofCopySheet = 2 ' Linha para iniciar nas planilhas que você está copiando ThisWB = ActiveWorkbook.Name path = "mypath....." ' Não esqueça de alterar isso Application.EnableEvents = False Application.ScreenUpdating = False Set shtDest = ActiveWorkbook .Sheets(1) Filename = Dir(path & "\*.xls", vbNormal) Se Len(Filename) = 0 Então Exit Sub Do Até Filename = vbNullString Se Não Filename = ThisWB Então Set Wkb = Workbooks.Open(Filename: =caminho & "\" & nome do arquivo) Set CopyRng = Wkb.Sheets(1).Range(Cells(RowofCopySheet, 1), Cells(ActiveSheet.UsedRange.Rows.Count, ActiveSheet.UsedRange.Columns.Count)) Set Dest = shtDest.Range("A" & shtDest.UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1) CopyRng.Copy Dest Wkb.Close False End If Filename = Dir() Loop Rang e("A1").Select Application.EnableEvents = True Application.ScreenUpdating = True MsgBox "Concluído!" Finalizar Sub
Este comentário foi feito pelo moderador no site
Como faço para editar isso para que os dados extraídos sempre comecem na linha superior? Se eu executar esse código duas vezes, ele adiciona os dados ao final dos meus dados anteriores (da primeira execução da macro).
Este comentário foi feito pelo moderador no site
Altere esta linha: RowofCopySheet = 2 para RowofCopySheet = 1
Este comentário foi feito pelo moderador no site
OI, eu tenho vários arquivos do Excel (folha única) pasta diferente com proteção por senha. eu quero que o final do dia combine todos os dados em um arquivo mestre. Toda vez que eu tenho que digitar a senha e abrir o arquivo e copiar e colar no arquivo mestre. Por favor, me ajude com o código VBA para isso, por favor.
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