Saberexcel - site das macros

Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), verifica em determinado diretório se existe ou não determinado arquivo, neste caso estamos procurando pelo arquivo Doacoes_Saberexcel_Google.xls.   Para fazer seu teste voce deverá inserir uma planilha em determinado local e trocar o endereço Path(Diretorio). isto é, indique o endereço da planilha no seu computador.

Sub Verfica_Planilha_Existente()

'Adicionar a referência Microsoft Scripting Runtime
'Declaração da variável
Dim vPlanilha As Scripting.FileSystemObject
Set vPlanilha = New Scripting.FileSystemObject

'Condição local e nome do arquivo para verificação
If vPlanilha.FileExists("C:\Doacoes_Saberexcel_Google.xls") Then
    'Caso exista a planilha retorna msg
    MsgBox "Planilha existe!!!", vbInformation, "Saberexcel - site das macros"
Else
    'Caso não exista a planilha esta mensagem
    MsgBox "Planilha não existente!", vbInformation, "Saberexcel - site das macros"
End If

End Sub



Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel



  Baixe o exemplo de planilha contendo a macro acima
Excel planilha vba worksheet verifica existencia planilha diretorio (17.19 KB)