[Resolvido]Importar do excel mantendo estrutura do access

Boa tarde.

Tenho uma planilha do excel onde tenho a seguinte estrutura (dados para exemplo):

Nº da nota | Data | Descricao | Quantidade | Unitario | Total

05252 - 02/05/2017 - Produto A - 4 - R$ 2,50 - R$ 10,00
05252 - 02/05/2017 - Produto B - 4 - R$ 2,50 - R$ 10,00
05252 - 02/05/2017 - Produto C - 4 - R$ 2,50 - R$ 10,00
....

Consigo importar para o access mantendo a estrutura do meu banco de dados que seria:

Tabela principal = Nº da nota - Cliente - Data da Nota - Fornecedor , etc
Tabela relacionada = Descrição - unitario - quantidade - total


Ou teria que mudar a estrutura do meu database para isso?

Aguardo resposta.
Gratidão.

Bom dia a todos !

Ainda estou com esse problema, alguém que pudesse me ajudar ?

Gratidão.

Olá Thiago,

Não compreendi bem onde está a diferença, mas respondendo à questão, pode manter ambas as edtruturas inalteradas e apenas adicionar os dados.

Por exemplo pode ligar (vincular) ao excel.
Depois ter uma consulta adicinar à tabela do access, sendo os dados do excel ligados (vinculado).

Abraço

Bom dia Ahteixeira !

Perdoe-me a demora.
Bom, vou exemplificar com uma planilha real, que será anexada, o caso.

As células que estão marcadas de amarelo se referem a tabela principal, as que estão marcadas de verde se referem a tabela relacionada.

É possível fazer essa importação mantendo a estrutura que mencionei na primeira mensagem ?

Abraços.

Olá Thiago,

Em primeiro o que é tabela Principal e Ligada?
Compreendi a questão do amarelo e verde, mas deve detalhar melhor.
O ideal seria postar a sua base de dados com a tabela que recebe a importação com alguns registos de amostragem mas coerentes.
Também deveria ter o ficheiro excel, tal e qual como tem no momento em que pretende importar.

Também deverá descrever o "relacionamento" do ficheiro excel com a tabela, se existe algum "identificador" para associar (relacionar) de forma a identificar os registos.

Aproveito para enviar abaixo um exemplo de "sincronizar" tabela de excel com Access:
https://www.maximoaccess.com/t19615p6-resolvidoatualizacao-automatica-na-importacao-access-excel

Abraço

Bom dia meu caro !

Irei montar um exemplo para facilitar.
A respeito da planilha, ela é exportada de outro programa no formato que você viu no anexo, as vezes com mais linhas, as vezes com menos, depende da quantidade de movimentações (saídas).

Minha estrutura atual é basicamente idêntica ao exemplo, e sobre o exemplo, eu peguei a movimentação "000004139" para inserir como exemplo na base de dados.

Existe essa maneira de importar mediante o exemplo mencionado ?

Olá Thiago,

Perfeito, já temos a estrutura que recebe os dados.

Quanto ao ficheiro excel gerado pelo outro sistema, só tem nesse formato, o aplicativo não permite exportação de outra forma? (txt,xml,outro)
Caso negativo, pergunto o excel que postou na mensagem nº 4 é assim que o sistema gera ou foi alterado para exemplificar.
É necessário ser um ficheiro inalterado.
Não será fácil, mas creio ser possivel.

Abraço

Bom dia meu caro !

Bom, sobre a parte de exportação do outro programa, infelizmente é feita apenas em excel (com ou sem formatação) e pdf.

Sobre os dados exemplificados na planilha, é exatamente dessa maneira que são exportados, não teve nenhuma alteração.

Abraços.

Olá Thiago,

Então o ideal será Excel sem formação.
Pode postar novo excel com registos de amostragem para se verificar.
Agradeço que altere a cor para vermelho apenas a informação a importar.

Abraço

Bom dia.

Conforme solicitado, segue anexo a planilha que foi exportada do outro programa, sem formatação.

No aguardo.

Abraços.

Olá Thiago,

Esse é o formato Perfeito para o que pretende fazer.

Agora vou pedir o seguinte.
Na mensagem nº 6 postou a base de dados com as tabelas que vão receber a informação.
Pode atualizar incluindo os dados deste último ficheiro dos tres primeiros registos (até à linha 20)


Assim fica mais fácil para ver a correspondencia dos campos e testar.

Uma última questão importante:
a) Vai ser para ler o ficheiro e importar?
b) vai ser para ler o ficheiro e importar apenas novos?
c) vai ser para limpar os dados antes de cada importação?

Abraço

Boas meu caro !

Bom, segue exemplo atualizado conforme pediu.

Uma observação importante: Na última coluna da planilha, é a identificação da movimentação, que no caso seria o número da nota, e ela está vindo em número científico, porém é numero composto por 9 dígitos. Teria que fazer a formatação no excel antes, ou no processo de importação já daria pra fazer ?

Sobre a importação, a ideia seria, ao importar adicionar os novos registros nas tabelas. É sempre adicionar novos registros, pois são novas movimentações.

Abraços.

Olá Thiago,

Perfeito, assim já dá para ver a correspondencia.

Agora vou fazer uma pergunta, sei que o título do tópico é "Importar do excel mantendo estrutura do access"
Podemos fazer mantendo a sua estrutura, mas vai ficar um pouco mais lento, porque cada registo vai ter que fazer uma leitura do ID (automático).

Se alterar conforme abaixo, evitava essa consulta, veja como ficaria:


Nota: Caso, não seja viável a sugestão, podemos manter a estrutura que mandou.
Ficou aguardar.

Abraço

Boa tarde !

Bom, sobre a sugestão. Pelo fato de já conter dados na base de dados pode acontecer de esses dados serem danificados ? Como disse, o bd foi só um exemplo de como está minha estrutura atual, porém, atualmente já possui dados. Então, acho mais viável não alterar a estrutura atual.
Pelo fato de isso acontecer uma vez no mês apenas, não importa o tempo gasto, desde que os dados entre no access, já está de bom tamanho.

E agradeço a sugestão.

Abraços.

Olá Thiago,

No excel (CSV) tem 14 registos (vendas), no exemplo tem 3.
Envie novo excel e coloque a vermelho os campos correspondentes na tabela.
Verifico que a data está no detalhe do excel e que pretende colocar na Tbl_Compras, também vai ser possivel mas complica ligeiramente o código.
Aguardo correspondencia do Excel com o nome dos campos e Tabelas, para finalizar.

Abraço

Bom dia.

Alterado conforme solicitado.
Coloquei entre parênteses os campos que vão para a secundária e para a primária, pois, csv não aceita cores nas células.

Qualquer dúvida, estou a disposição.
Abraços.

Permita indicar esse Topico aqui:
https://www.maximoaccess.com/t27311-importar-dados-planilha-excel-e-desmembrar-os-dados-em-duas-tabelas-tbpessoa-e-tbendereco
Veja se não é isso que precisa...

Olá a todos

Amigo Fábio, toda ajuda é bem-vinda!
Na minha opinião não será o mais adequado uma vez que não é linear a informação, veja:


Acho que conforme tópico abaixo, usando a mesma "técnica" será mais fácil:
https://www.maximoaccess.com/t26035-resolvidoimportar-arquivo-txt-com-30-linhas-por-registo

Abraço a todos

Boa tarde !

Bom, analisando a estrutura que o Fabio Paes mencionou no tópico dele, acredito que dê pra deixar linear as informações excluindo algumas linhas que não são necessárias. Segue exemplo anexo.

Mais alguns detalhes que talvez ajudam, a importação vai ser apenas pro cliente especificado na planilha (Residencial x), ou seja, não haverá variações no campo cliente, as únicas informações que vão variar são: os produtos, valores, e quantidades, a data da nota e o número da nota.

Acredito que eliminando os espaços existes, e juntando todas informações, facilite em alguma coisa.

Olá a todos,

Thiago, mas assim, vai necessitar sempre de intervenção no ficheiro Excel.
No entanto é um bom exercício, siga essa linha que eu vou postar a minha.
Isto é que é ser MaximoAccess

Abraço a todos

Boa tarde !

Acredito que dar uma "limpada" no ficheiro excel gastará menos tempo que lançar nota por nota na mão, portanto seria 100% mais viável, concorda?

Abraços.

Uma alternativa, é importa tudo para uma tabela Temporaria, depois Exclui os registros que nao contiverem valores no campo "A" da planilha ou outro campo que estará em branco...

Boa tarde a todos !


Fiz uma importação para ver como funcionaria.

Obtive o resultado:


Acredito que se fizer um código verificando o campo1 e eliminando todas as linhas no qual ele esteja vazio, como Fabio disse, já daria uma boa avançada, concordam ?

Abraços.

Olá a todos,

Sim agora será na base de consultas, adicionar à tabela Tbl_Compras outra para ir buscar o ID dos registos adicionados e mais uma para lançar na tabela Tbl_DetalhesCompra.
A minha ideia já está concluída, fica para mais à frente, vamos ver o desenrolar desta técnica.

Abraço a todos

Boa tarde.

Acho que não seria legal usar numeração automática, e sim um outro código, para diferenciar cada movimentação. Poderia ser a nota fiscal não poderia ?

Veja no Exemplo que indiquei que tem la como foi feito. No Caso eu utilizei salvo engano, o Nome como Critério, mas utilize o Numero da Nota se for um campo que não se repetirá!

Bom dia !

Baseado no exemplo mencionado pelo Fabio Paes, tentei fazer umas alterações e ainda não obtive sucesso.

Olá a todos.

Thiago, cole o código abaixo num botão do exemplo da mensagem n. 12 e teste com o ficheiro CSV da mensagem n.º 10

Código:

Option Compare Database
Option Explicit

Private Sub Comando0_Click()
' Álvaro Teixeira (ahteixeira) 2018 para MaximoAccess
' Pesquisar ficheiro para importar
' Requer referencia a Microsoft Office xx.0 Object Library
    Dim fd As FileDialog
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
   
    fd.Title = "Escolha o ficheiro"
    fd.InitialFileName = CurrentProject.Path
    fd.Filters.Add "Ficheiro CSV", "*.csv", 1

    fd.Show
   
    If (fd.SelectedItems.Count > 0) Then
        Call fncImportarCSV  'Chamada da função para importar
    Else
        MsgBox "Não foi escolhido nenhum ficheiro.", vbInformation, ""
    End If
End Sub

Function fncImportarCSV()
' Álvaro Teixeira (ahteixeira) 2018 para MaximoAccess
' Importar CSV via LineImput separa cabeçalho das linhas
Dim strLinha, xCliente, xNF As String
Dim linha1, xCodigo As Double
Dim arrLinha() As String


    'Pesquisa último código da Tbl_Compras
    xCodigo = Nz(DLast("[Código]", "Tbl_Compras"), 0)
   
    'Ficheiro a ler para importar
    Open Application.CurrentProject.Path & "\Vitaly.CSV" For Input As #1
   
    'Inicio leitura do txt linha a linha
    Do Until EOF(1)

        Line Input #1, strLinha  ' leitura da linha
   
        If Left(strLinha, 1) <> "S" And Mid(strLinha, 5, 8) <> "Total R$" Then
           
            linha1 = 1
            arrLinha = Split(strLinha, ";")
            xCliente = arrLinha(1)
            xNF = Format(arrLinha(13), "####################")
       
        ElseIf Left(strLinha, 1) <> "S" And Mid(strLinha, 5, 8) = "Total R$" Then
           
            xCodigo = xCodigo + 1
       
        Else
            arrLinha = Split(strLinha, ";")
            If linha1 = 1 Then
                DoCmd.RunSQL "INSERT INTO Tbl_Compras ( Cliente, Data, NF ) SELECT '" & xCliente & "',#" & arrLinha(2) & "#, '" & xNF & "';"
                linha1 = 0
            End If
           
            DoCmd.RunSQL "INSERT INTO Tbl_DetalhesCompra ( idcompra, Produto, Quantidade, ValorUnitario, Total ) SELECT " _
                        & xCodigo & ",'" & arrLinha(4) & "','" & arrLinha(5) & "','" & arrLinha(6) & "','" & arrLinha(7) & "';"
        End If
   
    'Fim da leitura txt
    Loop

    'Fechar ficheiro
    Close #1
   
    MsgBox "Feito, Verifique tabelas.", vbInformation, ""
End Function



Abraço a todos

Boa noite !

Perdoe-me a demora, estava bem atarefado. Irei fazer uns testes e já darei o retorno.

Desde então,
Grato !!!

Forte abraço.

Olá Thiago,

Segue o meu teste em anexo.

Abraço a todos

Boa tarde !

Bom, efetuei o teste com a planilha que estava junto ao arquivo e funcionou perfeitamente.

Irei exportar outras do programa, e testar.

No mais, queria agradecer a ambos por me darem uma força.

Gratidão !

Forte abraço.

Olá a todos,

Thiago, obrigado pelo retorno.
Os utilizadores do fórum agradecem.