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
|