Windows 10 - Pesquisa de dados em várias planilhas do Excel 2010

Anônima
2016-12-13T19:14:56+00:00

Tenho mais de 1000 planilhas com as mesmas características. Os nomes são terminados com uma sequencia numérica e todos tem as mesmas abas. Preciso buscar apenas 3 células de cada arquivo, que estão na mesma posição, mesma aba e arquivo com nome sequencial. Quando escrevo a fórmula +[teste 01]aba01!$a$1 na planilha "resumo" que criei , a fórmula funciona corretamente pois para a primeira fórmula o aquivo "Teste 01" está aberto.  Quando vou copiar a fórmula para as linhas posteriores (que deveria copiar os dados de "Teste 02", "Teste 03" e assim por diante), a planilha pede que eu indique qual arquivo devo utilizar, abrindo o Windows Explorer com os diretórios da minha máquina e consequentemente, tenho que ficar escolhendo arquivo por arquivo. Existe alguma forma de copiar esta fórmula simples criada, apenas alterando a sequencia do nome do arquivo, sem ter que ficar escolhendo qual arquivo utilizar? desde ja agradeço por respostas simples.

Microsoft 365 e Office | Excel | Para uso doméstico | Windows

Pergunta bloqueada. Essa pergunta foi migrada da Comunidade de Suporte da Microsoft. É possível votar se é útil, mas não é possível adicionar comentários ou respostas ou seguir a pergunta.

0 comentários Sem comentários

Resposta aceita pelo autor da pergunta

Anônima
2016-12-14T18:19:16+00:00

Olá!

Se você colocar o caminho do diretório onde está o arquivo, não irá aparecer a mensagem de localizar arquivo, exemplo:

='C:\Users\Eliezer\Desktop\Teste[teste 01.xlsx]Aba01'!$A$1

Agora, para executar a tarefa para 1000 arquivos, eu só imagino uma solução viável pelo VBA. Não seria nada muito complexo. Um exemplo de código para ser adaptado a sua realidade seria:

Sub Pesquisar_arquivos()

Application.DisplayAlerts = False

For i = 1 To 1000

Range("B" & i + 1) = _

"='C:\Users\Eliezer\Desktop\Teste[Teste " & i & ".xlsx]Aba1'!R1C1"

Next i

Application.DisplayAlerts = True

End Sub

O código acima varre os arquivos de terminologia "Teste 1" até "Teste 1000" criando a fórmula para trazer a informação da célula A1 (R1C1: R1, que é linha 1, C1 que é coluna 1) da aba1 de cada arquivo. Agora, se você tem que varrer várias abas dentro de cada arquivo, tem que incrementar o código.

Minha sugestão se quiser seguir pela linha do VBA é postar a dúvida no MSDN, pois o TECHNET não tem uma categoria especifica para VBA. O link do MSDN é:

https://social.msdn.microsoft.com/Forums/pt-BR/home?forum=vbapt

Esta resposta foi útil?

1 pessoa achou esta resposta útil.
0 comentários Sem comentários

2 respostas adicionais

Classificar por: Mais útil
  1. Anônima
    2016-12-14T12:45:56+00:00

    ???    sou usuário e não "desenvolvedores e profissionais em TI". Não ajudou. Desculpe e obrigado.

    Esta resposta foi útil?

    0 comentários Sem comentários
  2. Anônima
    2016-12-14T11:26:28+00:00

    Olá Eliezer Corazza, tudo bem? 

    Obrigado por entrar em contato com à Comunidade Microsoft!

    Para sua questão da fórmula no Excel peço a gentileza que poste no link abaixo que vai direcioná-lo ao TECHNET que é um fórum especialmente destinado para desenvolvedores e profissionais em TI:

    Espero ter ajudado, até mais!

    Esta resposta foi útil?

    0 comentários Sem comentários