Рет қаралды 53,732
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
excelonlinebra...
🚀 VBA - Meu Cérebro nos Seus Projetos por 6 Meses
excelonlinebra...
==============================================================================
Link para ConnectionStrings :
www.connection...
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.
==============================================================================
NÃO CLIQUE AQUI: excelonlinebra...