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

2 participantes

    Importação do Excel seguida da atualização

    avatar
    mrcanela
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 28/02/2021

    Importação do Excel seguida da atualização Empty Importação do Excel seguida da atualização

    Mensagem  mrcanela 19/5/2022, 00:13

    Boa noite!

    estou com dificuldades em encontrar esse processo preciso da ajuda de vocês.
    encontrei este código abaixo no fórum e foi ótimo:
    Código:
    Private Sub Importar_Click()
    On Error GoTo Falha
    Dim strPathFile As String, strFile As String, strPath As String
    Dim strTable As String
    Dim blnHasFieldNames As Boolean
    blnHasFieldNames = True
    strPath = "F:\backup\Documents\" ' drive onde se situa o seu documento excel
    strTable = "Funcionarios" 'nome da tabela no seu banco
    strFile = Dir(strPath & "Test1.xlsx") 'nome do seu excel, se mudar para "*.xls" importa todas as folhas excel _
    que estiverem em C:\ para a tabela do banco.
    Do While Len(strFile) > 0
    strPathFile = strPath & strFile
    DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _
    strTable, strPathFile, blnHasFieldNames
    strFile = Dir()
    Loop
    Exit Sub
    porem isso somente inclui os registros.

    preciso também atualizar os registros que foram alterados. baseado no primeiro campo que é o cadastro(chave primaria)
    conseguem me ajudar neste código?
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2205
    Registrado : 23/01/2018

    Importação do Excel seguida da atualização Empty Re: Importação do Excel seguida da atualização

    Mensagem  crysostomo 19/5/2022, 15:40

    strFile = len(Dir(strPath & "Test1.xlsx") 'nome do seu excel, se mudar para "*.xls" importa todas as folhas excel
    Geralmente eu faço sem dir por outra ocasião.


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

    mrcanela gosta desta mensagem

    avatar
    mrcanela
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 28/02/2021

    Importação do Excel seguida da atualização Empty Deu certo

    Mensagem  mrcanela 22/5/2022, 15:58

    Bom dia. deu certo obrigado
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2205
    Registrado : 23/01/2018

    Importação do Excel seguida da atualização Empty Re: Importação do Excel seguida da atualização

    Mensagem  crysostomo 22/5/2022, 16:32

    Sucesso.
    Não esqueça de fechar o tópico.


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

      Data/hora atual: 6/10/2022, 07:28