MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Importar último arquivo gerado em pasta específica

    Compartilhe
    avatar
    gabrielpn06
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 128
    Registrado : 17/01/2017

    [Resolvido]Importar último arquivo gerado em pasta específica

    Mensagem  gabrielpn06 em Qui 17 Ago 2017, 17:42

    Boa tarde amigos,
    Tenho um pequeno banco de dados no qual faço algumas importações e exportações de planilhas de Excel.
    Gostaria que ao clicar no botão "Importar Base" do meu formulário "FrmPrincipal", fosse importado o último arquivo de Excel gerado numa determinada pasta que da rede.

    Poderiam me ajudar? Desde já agradeço!
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9697
    Registrado : 04/11/2009

    Re: [Resolvido]Importar último arquivo gerado em pasta específica

    Mensagem  JPaulo em Sex 18 Ago 2017, 13:47

    Código:
    Public Function ImportaUltimoFicheiroNumPasta()
    '@www.maximoaccess.com
    'JPaulo 2017-08-18
    Dim objFSO As Object
    Dim objFolder As Object
    Dim objFile As Object
    Dim strPath As String
    Dim strPathFile As String
    Dim strName As String
    Dim varDate As Variant
    Dim strTable As String
    On Error GoTo 1
    'Caminho da Pasta
    strPath = "C:\Temp" 'sem a ultima barra
    'Nome da sua tabela
    strTable = "SuaTabela" 'Tabela já tem de existir

    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.GetFolder(strPath)

    ' Checka ultimo ficheiro alterado na pasta
    For Each objFile In objFolder.Files
        If objFile.DateLastModified > varDate Then
        varDate = objFile.DateLastModified
        strName = objFile.Name
        End If
    Next
    'Obtem o caminho completo do ultimo ficheiro e nome
    strPathFile = "C:\Temp\" & strName
    'Importa para a tabela do banco
    DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, strTable, strPathFile, True
         
    Set objFSO = Nothing
    Set objFolder = Nothing
    Set objFile = Nothing

    Exit_1:
        DoCmd.Hourglass False
        DoCmd.Echo True
        Exit Function

    1:
        DoCmd.Hourglass False
        DoCmd.Echo True
        Msg = "Erro # " & str(Err.Number) & " gerado na " & Err.Source _
            & vbNewLine & vbNewLine & "Descrição: " & Err.Description _
            & vbNewLine & vbNewLine & "Por favor contate o Administrador do Sistema."
        MsgBox Msg, vbMsgBoxHelpButton + vbCritical, "Erro", Err.HelpFile, Err.HelpContext
        Resume Exit_1
    End Function


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    gabrielpn06
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 128
    Registrado : 17/01/2017

    Re: [Resolvido]Importar último arquivo gerado em pasta específica

    Mensagem  gabrielpn06 em Seg 21 Ago 2017, 13:15

    Bom dia mestre, exatamente o que precisava.
    Muito obrigado pela ajuda!
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9697
    Registrado : 04/11/2009

    Re: [Resolvido]Importar último arquivo gerado em pasta específica

    Mensagem  JPaulo em Seg 21 Ago 2017, 13:29

    Fico feliz.

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: Sab 18 Nov 2017, 19:17