MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Importar arquivo Excel a cada atualização da pasta

    carolinesilva115
    carolinesilva115
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 91
    Registrado : 23/12/2019

    [Resolvido]Importar arquivo Excel a cada atualização da pasta Empty [Resolvido]Importar arquivo Excel a cada atualização da pasta

    Mensagem  carolinesilva115 em 14/6/2020, 02:57

    Olá!

    Eu possuo um banco de dados que possui uma tabela com o saldo de empresas.

    Atualmente, eu atualizo essa tabela manualmente através da importação de um arquivo em excel q recebo.
    Os arquivos em excel q recebo ficam armazenados em uma pasta.


    Gostaria de saber como crio uma macro ou um código que atualiza essa tabela automaticamente toda vez q essa pasta recebe um novo arquivo em excel.


    Tenho outra dúvida: dá problema se a pasta tiver arquivos em outros formatos? Pq recebo o excel junto com um pdf e salvo tudo junto.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2455
    Registrado : 22/11/2016

    [Resolvido]Importar arquivo Excel a cada atualização da pasta Empty Re: [Resolvido]Importar arquivo Excel a cada atualização da pasta

    Mensagem  DamascenoJr. em 14/6/2020, 03:05

    Tópico movido da sala de formulários para a sala de Módulos e VBA. Afinal, procura-se por código que automatize importação de arquivos.

    Título e mensagem alteradas. Onde dizia "exportação" (informações enviadas) agora diz "importação" (informações trazidas).


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    carolinesilva115
    carolinesilva115
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 91
    Registrado : 23/12/2019

    [Resolvido]Importar arquivo Excel a cada atualização da pasta Empty Re: [Resolvido]Importar arquivo Excel a cada atualização da pasta

    Mensagem  carolinesilva115 em 16/6/2020, 16:21

    Ok, aguardando resposta
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2455
    Registrado : 22/11/2016

    [Resolvido]Importar arquivo Excel a cada atualização da pasta Empty Re: [Resolvido]Importar arquivo Excel a cada atualização da pasta

    Mensagem  DamascenoJr. em 24/9/2020, 00:30

    carolinesilva115, avançou com seu projeto?

    Aguardamos retorno...


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    carolinesilva115
    carolinesilva115
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 91
    Registrado : 23/12/2019

    [Resolvido]Importar arquivo Excel a cada atualização da pasta Empty Re: [Resolvido]Importar arquivo Excel a cada atualização da pasta

    Mensagem  carolinesilva115 em 24/9/2020, 04:08

    Não consegui, infelizmente

    Criei um código para pegar o arquivo manualmente.


    Código:

    Private Sub Comando145_Click()
      Dim Ficheiro As String
       
        With Application.FileDialog(msoFileDialogOpen)
            .AllowMultiSelect = False
            .Filters.Clear
            .Filters.Add "Excel", "*.xls,*.xlsx"
            .FilterIndex = 1

            If .Show = 0 Then
                'Cancelado
            Else
                Ficheiro = .SelectedItems(1)
                DoCmd.DeleteObject acTable, "Tabela"
                ' importa 9 colunas de uma folha de excel com os nomes dos campos na primeira linha
                DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, "Tabela", Ficheiro, True, "A:I"
                MsgBox "O arquivo foi importado com sucesso!", , "Atualização de dados"
            End If

        End With


    End Sub

      Data/hora atual: 4/12/2020, 05:38