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 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.
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12240
    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! الله أكبر
    [Você precisa estar registrado e conectado para ver este link.]

    Iniciando no Access? Então veja esse [Você precisa estar registrado e conectado para ver este link.] e também [Você precisa estar registrado e conectado para ver este link.]


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

    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: Seg 20 Nov 2017, 05:50