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


    [Resolvido]Importar arquivo de uma pasta

    avatar
    Nosbor83
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Importar arquivo de uma pasta Empty [Resolvido]Importar arquivo de uma pasta

    Mensagem  Nosbor83 5/10/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
    Convidado
    Convidado


    [Resolvido]Importar arquivo de uma pasta Empty Re: [Resolvido]Importar arquivo de uma pasta

    Mensagem  Convidado 6/11/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 1/2/2014, 10:57, editado 1 vez(es) (Motivo da edição : Tópico dado como resolvido por falta de resposta)

      Data/hora atual: 28/3/2024, 11:31