Ir para conteúdo
Fórum Script Brasil
  • 0

Macro copiar tabelas em único arquivo


rodbigod

Pergunta

Prezados,

Estou tentando criar uma macro que vá até uma pasta que tenho com treze arquivos excel (cada uma possui uma única sheet) e as copie para um outro arquivo.

Esbocei a macro abaixo mas me retorna um erro

Subscrito fora do intervalo.

Public Sub Macro1()

Set FSO = CreateObject("Scripting.FileSystemObject")
Set Aqui = FSO.GetFolder("C:\Minha Pasta")
For Each Arqui In Aqui.Files
Workbooks.Open Filename:=Arqui                                      'Até aqui tudo funciona!
Worksheets.Copy before:=Workbooks("Pasta1").Sheet
ActiveWorkbook.Close

Next

End Sub

alguém pode me ajudar?

Grato,

Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...