none
Verificar se existe um arquivo numa determinada pasta RRS feed

  • Pergunta

  • Senhores,

    Montei a macro abaixo para ir num determinado caminho e abrir uma planilha, mas não sei como escrever para verificar se a planilha não estiver no caminho informado, abrir uma mensagem avisando que não encontrou o arquivo. Neste momento quando eu mando executar a macro e não acha o arquivo, aparece mensagem de erro e não sai da macro

        Dim Nome 'define variável que receberá o nome da pasta de trabalho a verificar

        Dim i

        Nome = "Nome do arquivo.xls"

    ' Verifica se a pasta já está aberta e se não estiver abre-a

        For i = 1 To Application.Workbooks.Count

        If Application.Workbooks.Item(i).Name = Nome Then

        MsgBox "A Pasta de Trabalho " & Nome & " já está Aberta!"

        GoTo continua

        End If

        Next i

        MsgBox "Abrindo a Pasta de Trabalho " & Nome & " "

        Workbooks.Open Filename:= _

            "\\CaminhoOndeEstaOArquivo\programasExcel\Nome do Arquivo.xls"

    continua:

    quarta-feira, 3 de junho de 2015 13:38

Respostas

  • Utilize a função DIR para determinar se um arquivo existe ou não

    Dim retval As String retval = Dir("c:\teste\arq1.txt") If retval = "arq1.txt" Then MsgBox "arq1.txt existe."

    else

    Msgbox "arquivo não existe."

    End If End Sub

    • Sugerido como Resposta André Santo quarta-feira, 3 de junho de 2015 13:44
    • Marcado como Resposta GoncaloPaulaSoares quarta-feira, 3 de junho de 2015 15:26
    quarta-feira, 3 de junho de 2015 13:44

Todas as Respostas

  • Utilize a função DIR para determinar se um arquivo existe ou não

    Dim retval As String retval = Dir("c:\teste\arq1.txt") If retval = "arq1.txt" Then MsgBox "arq1.txt existe."

    else

    Msgbox "arquivo não existe."

    End If End Sub

    • Sugerido como Resposta André Santo quarta-feira, 3 de junho de 2015 13:44
    • Marcado como Resposta GoncaloPaulaSoares quarta-feira, 3 de junho de 2015 15:26
    quarta-feira, 3 de junho de 2015 13:44
  • André, bom dia!

    Obrigado pela dica, simples e prático. Funcionou aqui!

    Abraços.

    quarta-feira, 6 de setembro de 2017 13:34