none
Copiar dados de um arquivo de excel (baixado de um sistema) e colar os valores em outro arquivo excel RRS feed

  • Pergunta

  • Mensalmente exporto, em formato excel, alguns relatórios de sistemas diferentes.

    Trato esses dados e gero relatórios mensais.

    Gostaria de saber se tem como com o VBA automatizar esse processo.

    Copiar os dados do arquivo baixado e colar num banco de dados que ja tem um histórico (que ja possui informações) sem apagar as info ja contidas.

     
    • Editado Daniel YC sexta-feira, 1 de fevereiro de 2019 20:38
    sexta-feira, 1 de fevereiro de 2019 20:37

Todas as Respostas

  • Boa tarde Daniel.

    Veja se o template que postei nesta resposta te ajuda:

    https://social.msdn.microsoft.com/Forums/pt-BR/9df17d19-3113-497a-94db-bf3ecfb3ed29/preciso-juntar-consolidar-diariamente-os-dados-de-vrias-planilhas-em-uma-s-elas-vem-exatamente?forum=vbapt

    Abraço.


    Filipe Magno

    sábado, 2 de fevereiro de 2019 18:31
  • Felipe, funcionou sim.

    Porém não consegui fazer funcionar da forma que eu preciso.

    Tenho 2 arquivos de dados (coloquei no campo, nome do arquivo de origem o nome dos dois arquivos separados por virgula).

    Porém eu precisava que ele jogasse os dados em abas diferentes.

    É possível?

    segunda-feira, 4 de fevereiro de 2019 14:06
  • Boa noite.

    No template que indiquei há uma possibilidade, porém é necessário que os nomes das abas em cada arquivo sejam diferentes. Basta escolher a opção "Abas correspondentes de cada arquivo (múltiplas saídas)". Esta opção também copiará todas as abas existentes dos arquivos.

    Desta forma atende?



    Filipe Magno

    segunda-feira, 4 de fevereiro de 2019 22:54
  • Oi Felipe, 

    Fiz o que vc indicou porém dá erro, mesmo com as abas com nomes diferentes.  "Abas correspondentes de cada arquivo (múltiplas saídas)"

      Next j
                            If Not ExisteAba Then
                                Set pResult = wResult.Worksheets.Add
                                pResult.Move After:=Worksheets(wResult.Worksheets.Count)
                                pResult.Name = pFonte.Name
                            End If

    Sabe me dizer onde estou errando?

    terça-feira, 5 de fevereiro de 2019 12:10
  • Realmente Daniel, o código tem um erro. Acrescente a linha a seguir antes da linha do "Set...":

    If Not ExisteAba Then
        wResult.Activate   'Apenas esta linha!

    Veja se assim funciona.

    Abraço.


    Filipe Magno

    quarta-feira, 6 de fevereiro de 2019 00:17