MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Importar arquivo de uma pasta

    Compartilhe

    Nosbor83
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 25
    Registrado : 29/02/2012

    [Resolvido]Importar arquivo de uma pasta

    Mensagem  Nosbor83 em Sab 05 Out 2013, 21:36

    Caros,

    Preciso de um código em VBA que faça a seguinte função:

    - Verifica se um arquivo existe em uma pasta.
    - SE sim faça a importação do arquivo para a respectiva tabela.
    - Se não passa para o próximo arquivo.

    O por que disso?

    Diariamente recebo vários arquivos em excel de eventos de mainframe, esses arquivos sempre vem com a mesma nomenclatura, por exemplo:

    - 2540
    - 2345 e assim por diante, porém, pode ocorrer dias em que o 2540, por exemplo, não venha.

    Verificando aqui no fórum encontrei o seguinte código:

    Private Sub SeuBotao_Click()
    'Criado por Aldo Jeferson de Paula
    'Verificação de Arquivos na Pasta
    Dim strImageDefault As String
    Dim strImageUser As String

    'Se a imagem estiver hospedada no diretório do seu Aplicativo use o "CurrentProject.Path":
    'strImageDefault = CurrentProject.Path & "\Images\imgDefault.png"
    'trImageUser = CurrentProject.Path & "\Images\" & txtCPFDoCliente.Value & ".png"

    'Se a imagem estiver hospedada em outro diretório então informe o Caminho Completo:
    strImageDefault = "C:\SuaPasta\Images\imgDefault.png" 'Se for rede informe o caminho pelo IP > "\\192.168.0.1\SuaPasta\Images\..."
    strImageUser = "C:\SuaPasta\Images\" & txtCPFDoCliente.Value & ".png" 'Neste exemplo o nome da imagem é igual ao CPF do Cliente

       If Dir(strImageUser) = "" Then 'Condição que verificar se o arquivo existe ou não
           Me.CampoDoCaminho = strImageDefault
           Me.QuadroDaImagem.Picture = strImageDefault
               MsgBox "Este cliente não possui uma Foto!", vbCritical, "Foto Não Encontrada" 'Mensagem Opcional
       Else
           Me.CampoDoCaminho = strImageUser
           Me.QuadroDaImagem.Picture = strImageUser
               MsgBox "A Foto do cliente foi Atualizada com Sucesso!", vbInformation, "Foto Atualizada" 'Mensagem Opcional
       End If
    End Sub

    Acredito eu que seria só questão de adapta-lo. Alguém poderia me ajudar?

    Obrigado.

    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12246
    Registrado : 01/03/2011

    Re: [Resolvido]Importar arquivo de uma pasta

    Mensagem  HARYSOHN em Qua 06 Nov 2013, 19:31

    Primeiramente para verificar se um arquivo existe...

    Dim FSO, Pasta, Arquivo

    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set Pasta = FSO.GetFolder("Caminho do Arquivo")

    For Each Arquivo In Pasta.Files
    MsgBox Arquivo.Name
    Next Arquivo
     


    Teste e retorne.

    Cumprimentos.


    Última edição por HARYSOHN em Sab 01 Fev 2014, 10:57, editado 1 vez(es) (Razão : Tópico dado como resolvido por falta de resposta)


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

    Iniciando no Access? Então veja esse tópico e também esse


    BUSCA NO FÓRUM - CLIQUE AQUI!!!

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

      Data/hora atual: Sab 10 Dez 2016, 06:53