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

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

    gabrielpn06
    gabrielpn06
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  gabrielpn06 17/8/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!
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  JPaulo 18/8/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.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Importar último arquivo gerado em pasta específica Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Importar último arquivo gerado em pasta específica Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Importar último arquivo gerado em pasta específica Folder_announce_new Instruções SQL como utilizar...
    gabrielpn06
    gabrielpn06
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  gabrielpn06 21/8/2017, 13:15

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


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  JPaulo 21/8/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.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Importar último arquivo gerado em pasta específica Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Importar último arquivo gerado em pasta específica Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Importar último arquivo gerado em pasta específica Folder_announce_new Instruções SQL como utilizar...

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 05:44