MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

3 participantes

    [Resolvido]Importar do excel mantendo estrutura do access

    avatar
    thiagonsilvaa
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 367
    Registrado : 12/01/2017

    [Resolvido]Importar do excel mantendo estrutura do access Empty [Resolvido]Importar do excel mantendo estrutura do access

    Mensagem  thiagonsilvaa 5/12/2017, 16:27

    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.
    avatar
    thiagonsilvaa
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 367
    Registrado : 12/01/2017

    [Resolvido]Importar do excel mantendo estrutura do access Empty Importar do excel mantendo estrutura do access

    Mensagem  thiagonsilvaa 3/1/2018, 12:27

    Bom dia a todos !

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

    Gratidão.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7701
    Registrado : 15/03/2013

    [Resolvido]Importar do excel mantendo estrutura do access Empty Re: [Resolvido]Importar do excel mantendo estrutura do access

    Mensagem  Alvaro Teixeira 13/1/2018, 23:57

    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
    avatar
    thiagonsilvaa
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 367
    Registrado : 12/01/2017

    [Resolvido]Importar do excel mantendo estrutura do access Empty Importar do excel mantendo estrutura do access

    Mensagem  thiagonsilvaa 16/1/2018, 11:26

    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.
    Anexos
    [Resolvido]Importar do excel mantendo estrutura do access AttachmentFechamento 1217.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (11 Kb) Baixado 39 vez(es)
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7701
    Registrado : 15/03/2013

    [Resolvido]Importar do excel mantendo estrutura do access Empty Re: [Resolvido]Importar do excel mantendo estrutura do access

    Mensagem  Alvaro Teixeira 17/1/2018, 10:50

    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
    avatar
    thiagonsilvaa
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 367
    Registrado : 12/01/2017

    [Resolvido]Importar do excel mantendo estrutura do access Empty Importar do excel mantendo estrutura do access

    Mensagem  thiagonsilvaa 17/1/2018, 11:46

    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 ?
    Anexos
    [Resolvido]Importar do excel mantendo estrutura do access AttachmentExemplo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (23 Kb) Baixado 31 vez(es)
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7701
    Registrado : 15/03/2013

    [Resolvido]Importar do excel mantendo estrutura do access Empty Re: [Resolvido]Importar do excel mantendo estrutura do access

    Mensagem  Alvaro Teixeira 19/1/2018, 09:31

    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
    avatar
    thiagonsilvaa
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 367
    Registrado : 12/01/2017

    [Resolvido]Importar do excel mantendo estrutura do access Empty Importar do excel mantendo estrutura do access

    Mensagem  thiagonsilvaa 19/1/2018, 11:05

    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.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7701
    Registrado : 15/03/2013

    [Resolvido]Importar do excel mantendo estrutura do access Empty Re: [Resolvido]Importar do excel mantendo estrutura do access

    Mensagem  Alvaro Teixeira 19/1/2018, 11:41

    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
    avatar
    thiagonsilvaa
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 367
    Registrado : 12/01/2017

    [Resolvido]Importar do excel mantendo estrutura do access Empty Importar do excel mantendo estrutura do access

    Mensagem  thiagonsilvaa 19/1/2018, 12:03

    Bom dia.

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

    No aguardo.

    Abraços.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7701
    Registrado : 15/03/2013

    [Resolvido]Importar do excel mantendo estrutura do access Empty Re: [Resolvido]Importar do excel mantendo estrutura do access

    Mensagem  Alvaro Teixeira 19/1/2018, 12:24

    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)
    [Resolvido]Importar do excel mantendo estrutura do access 026

    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
    avatar
    thiagonsilvaa
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 367
    Registrado : 12/01/2017

    [Resolvido]Importar do excel mantendo estrutura do access Empty Importar do excel mantendo estrutura do access

    Mensagem  thiagonsilvaa 19/1/2018, 12:49

    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.
    Anexos
    [Resolvido]Importar do excel mantendo estrutura do access AttachmentExemplo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (23 Kb) Baixado 26 vez(es)
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7701
    Registrado : 15/03/2013

    [Resolvido]Importar do excel mantendo estrutura do access Empty Re: [Resolvido]Importar do excel mantendo estrutura do access

    Mensagem  Alvaro Teixeira 22/1/2018, 14:05

    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:
    [Resolvido]Importar do excel mantendo estrutura do access 027

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

    Abraço



    avatar
    thiagonsilvaa
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 367
    Registrado : 12/01/2017

    [Resolvido]Importar do excel mantendo estrutura do access Empty Importar do excel mantendo estrutura do access

    Mensagem  thiagonsilvaa 22/1/2018, 16:14

    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.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7701
    Registrado : 15/03/2013

    [Resolvido]Importar do excel mantendo estrutura do access Empty Re: [Resolvido]Importar do excel mantendo estrutura do access

    Mensagem  Alvaro Teixeira 24/1/2018, 12:27

    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
    avatar
    thiagonsilvaa
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 367
    Registrado : 12/01/2017

    [Resolvido]Importar do excel mantendo estrutura do access Empty Importar do excel mantendo estrutura do access Responder

    Mensagem  thiagonsilvaa 24/1/2018, 12:48

    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.
    Anexos
    [Resolvido]Importar do excel mantendo estrutura do access AttachmentResidencial.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (2 Kb) Baixado 27 vez(es)
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Importar do excel mantendo estrutura do access Empty Re: [Resolvido]Importar do excel mantendo estrutura do access

    Mensagem  FabioPaes 24/1/2018, 13:01



    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7701
    Registrado : 15/03/2013

    [Resolvido]Importar do excel mantendo estrutura do access Empty Re: [Resolvido]Importar do excel mantendo estrutura do access

    Mensagem  Alvaro Teixeira 24/1/2018, 14:57

    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:
    [Resolvido]Importar do excel mantendo estrutura do access 028

    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

    avatar
    thiagonsilvaa
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 367
    Registrado : 12/01/2017

    [Resolvido]Importar do excel mantendo estrutura do access Empty Importar do excel mantendo estrutura do access

    Mensagem  thiagonsilvaa 24/1/2018, 15:12

    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.


    Anexos
    [Resolvido]Importar do excel mantendo estrutura do access AttachmentResidencial.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1 Kb) Baixado 16 vez(es)
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7701
    Registrado : 15/03/2013

    [Resolvido]Importar do excel mantendo estrutura do access Empty Re: [Resolvido]Importar do excel mantendo estrutura do access

    Mensagem  Alvaro Teixeira 24/1/2018, 15:32

    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 Wink

    Abraço a todos
    avatar
    thiagonsilvaa
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 367
    Registrado : 12/01/2017

    [Resolvido]Importar do excel mantendo estrutura do access Empty Importar do excel mantendo estrutura do access

    Mensagem  thiagonsilvaa 24/1/2018, 15:39

    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.
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Importar do excel mantendo estrutura do access Empty Re: [Resolvido]Importar do excel mantendo estrutura do access

    Mensagem  FabioPaes 24/1/2018, 16:17

    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...


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    thiagonsilvaa
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 367
    Registrado : 12/01/2017

    [Resolvido]Importar do excel mantendo estrutura do access Empty Importar do excel mantendo estrutura do access

    Mensagem  thiagonsilvaa 24/1/2018, 16:30

    Boa tarde a todos !


    Fiz uma importação para ver como funcionaria.

    Obtive o resultado:
    [Resolvido]Importar do excel mantendo estrutura do access Exempl10

    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.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7701
    Registrado : 15/03/2013

    [Resolvido]Importar do excel mantendo estrutura do access Empty Re: [Resolvido]Importar do excel mantendo estrutura do access

    Mensagem  Alvaro Teixeira 24/1/2018, 17:02

    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
    avatar
    thiagonsilvaa
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 367
    Registrado : 12/01/2017

    [Resolvido]Importar do excel mantendo estrutura do access Empty Importar do excel mantendo estrutura do access

    Mensagem  thiagonsilvaa 24/1/2018, 17:12

    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 ?
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Importar do excel mantendo estrutura do access Empty Re: [Resolvido]Importar do excel mantendo estrutura do access

    Mensagem  FabioPaes 24/1/2018, 17:32

    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á!


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    thiagonsilvaa
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 367
    Registrado : 12/01/2017

    [Resolvido]Importar do excel mantendo estrutura do access Empty Importar do excel mantendo estrutura do access

    Mensagem  thiagonsilvaa 25/1/2018, 10:44

    Bom dia !

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

    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7701
    Registrado : 15/03/2013

    [Resolvido]Importar do excel mantendo estrutura do access Empty Re: [Resolvido]Importar do excel mantendo estrutura do access

    Mensagem  Alvaro Teixeira 25/1/2018, 17:03

    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
    avatar
    thiagonsilvaa
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 367
    Registrado : 12/01/2017

    [Resolvido]Importar do excel mantendo estrutura do access Empty Importar do excel mantendo estrutura do access

    Mensagem  thiagonsilvaa 25/1/2018, 23:35

    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.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7701
    Registrado : 15/03/2013

    [Resolvido]Importar do excel mantendo estrutura do access Empty Re: [Resolvido]Importar do excel mantendo estrutura do access

    Mensagem  Alvaro Teixeira 26/1/2018, 16:56

    Olá Thiago,

    Segue o meu teste em anexo.

    Abraço a todos
    avatar
    thiagonsilvaa
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 367
    Registrado : 12/01/2017

    [Resolvido]Importar do excel mantendo estrutura do access Empty Importar do excel mantendo estrutura do access

    Mensagem  thiagonsilvaa 26/1/2018, 17:27

    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.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7701
    Registrado : 15/03/2013

    [Resolvido]Importar do excel mantendo estrutura do access Empty Re: [Resolvido]Importar do excel mantendo estrutura do access

    Mensagem  Alvaro Teixeira 26/1/2018, 17:45

    Olá a todos,

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

    cheers

      Data/hora atual: 5/12/2022, 01:29