✅Como Buscar Dados de um Arquivo para Outro no Excel

preview_player
Показать описание
Ao passo que você aprimora seus conhecimentos em Excel, surge a necessidade de buscar dados de um arquivo para outro. Isto favorece principalmente a automatização de relatórios.

Uma planilha automática, possui o poder de coletar dados em outra planilha, porém, os métodos existentes para concluir esta missão são inúmeros de modo que buscar dados de um arquivo para outro pode se tornar um trabalho bem doloroso se não implementado corretamente.

Neste aspecto, fazer uma query no excel utilizando códigos no VBA sem dúvida alguma é o método mais divertido e limpo, possibilitando usar excel como banco de dados e tornando o usúario apto a buscar dados de um arquivo para outro com profissionalismo.

Desenvolver uma macro para buscar dados de outra planilha é um processo simples e uma vez que construir um modelo funcional, a partir daí o céu é o limite e buscar dados de um arquivo para outro deixa de ser uma barreira para se tornar um ponto forte em suas atividades.

Qualquer dúvida, coloca ali nos comentários que teremos maior prazer em lhe auxiliar.

Um abraço e bons estudos!

Consultoria Gratuita

🚀 VBA - Meu Cérebro nos Seus Projetos por 6 Meses

==============================================================================
Link para ConnectionStrings :

Código explicado na aula para consulta na MESMA Pasta de Trabalho :
-----------------------------------------------------------------------------------------------------------------------------------
Sub ConsultaDados()

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strSql As String
Dim header As Integer

cn.ConnectionString = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ=" & ThisWorkbook.FullName
cn.Open

strSql = "SELECT * FROM [NOME_DA_PLANILHA_NO_EXCEL$]"
Set rs = cn.Execute(strSql)
NOME_DA PLANILHA_NO_VBE.Rows("1:" & Rows.Count).Delete
NOME_DA PLANILHA_NO_VBE.[a2].CopyFromRecordset rs

For header = 0 To rs.Fields.Count - 1
Cells(1, header + 1) = rs.Fields(header).Name
Next

rs.Close
Set rs = Nothing

cn.Close
Set cn = Nothing

End Sub

==============================================================================
Seja bem-vindo(a) ao canal Excel Online Brasil!

Com vídeos semanais, o canal é apresentado pelo Professor Marcus Rodello e tem como objetivo compartilhar de uma forma simples e direta um conteúdo técnico de qualidade no que tange o uso do Microsoft Excel bem como seus desdobramentos em relação a mercado de trabalho, oportunidades e alternativas de atuação para estudantes, profissionais e empresários.
Queremos inspirar essas pessoas para que consigam produzir mais, melhorar seus processos, crescer profissionalmente e multiplicar conhecimento.
==============================================================================

Рекомендации по теме
Комментарии
Автор

Excelente método e explicação. Muito obrigado por compartilhar.

AgnaldoPinheiro
Автор

Didática diferenciada, nem em faculdade é ensinado dessa tão rica de detalhes e passo a passo, parabéns!
E o conteúdo é excelente irá me auxiliar bastante.

viniciusalves
Автор

O QUE FOI QUE AULA FANTÁSTICA!!!! IMENSAMENTE AGRADECIDO!!!!👍👍👍👍👍👍🙌🙌🙌🙌🙌🙌

renatovieira
Автор

😃 Você não faz ideia do quanto me ajudou com esse vídeo! Há anos eu busco uma solução simples, rápida e eficaz!
Parabéns infinitamente

liliangomes
Автор

Melhor aula de conexão ADO da Internet.

andersonaraujo
Автор

Excelente didática, sem enrolação e sem encher linguiça. Direto ao ponto. Parabéns mais uma vez pela aula.

carlosfidelis
Автор

Ainda estou assistindo esse vídeo e ta bem explicado, to gostando!!!

danielh.s.k.
Автор

Parabéns pelo conteúdo, didática incrivel!!

FelipeOMends
Автор

Muito top!!! Parabéns pelo conteúdo e pela didática!!!

defasantos
Автор

Marcus, você é o mago da didática! Parabéns! Agora, poderia me indicar vídeos onde eu consiga fazer a lista de determinadas células de vários csv.? Explico: preciso células que estão em três colunas, mas em linhas distintas, de vários arquivos. Preciso listar.

andreiapinto
Автор

Gostei da sua didática parabéns e obrigado.

antonioandrade
Автор

Fantástico! Belo trabalho! Continue assim!!!!
Fazia um tempo que estava procurando por este tipo de conteúdo. Didática muito boa! Parabéns!!

vagnerlmf
Автор

Top D+ vc é muito doido cara, sucesso

wellingtoshio
Автор

Parabéns, ótima explicação e com uma didática fenomenal, a melhor explicação que encontrei no YouTube até hoje.

wilsonfelixhonorio
Автор

Sensacional. Explicação muito objetiva e clara. Adorei.
Gostei tanto que comprei suas planilhas.
São completíssimas. Parabéns

luizfaresende
Автор

Era exatamente o que eu mt obrigado !!!!
Parabéns por sua excelente didática para ensinar, explicação perfeita !!!!

denysriva
Автор

Prof. Mais uma vez. Show simplesmente Show....🙏🏾🤜🏽🤛🏽

andrerodrigues
Автор

E aí mestre Marcus, td bem?
Como já te disse antes vc não está sozinho nessa. kkkk
Sempre ouvi a orientação para habilitar a biblioteca atual, porém,
sempre habilitei a mais antiga justamente pensando como vc.
Sua didática é excelente, agregando com essa excelente apresentação de PowerPoint
ficou sensacional.
Obrigado por compartilhar seu conhecimento.
Sucesso.

sergiocardosozacariasoficial
Автор

Parabéns pela aula! ... procurei muito por essa função estou muito grato!👏👏👏

Glauco_Massariol
Автор

Conteúdo simplesmente fantástico. Assim que possível fale mais sobre isso por favor.

marcoitaborahy