Visual Basic for Applications (VBA) é um subconjunto do Visual Basic que é utilizada para adaptar programas do Microsoft Office para atender às suas necessidades. Ao escrever para um arquivo no Visual Basic for Applications , é uma boa prática para se certificar de que determinado arquivo existe antes de tentar escrever nele. Se você quer descobrir se existe um arquivo em Excel, criar um módulo VBA que faz o truque. Para utilizar esta função, você deve ter alguma experiência prévia com programação VB . Coisas que você precisa
Excel 2007 ou Excel 2010
Show Mais instruções
um
Copie o seguinte código :
Option Explicit
FileOrDirExists função ( nome do caminho as String ) as Boolean
' Objetivo Macro: a função retorna TRUE se o arquivo especificado
' ou a pasta existe, false se não
' pathName . : suporta Windows unidades mapeadas ou UNC
' : Suporta caminhos Macintosh
' do ficheiro : Fornecer completo do caminho de arquivo e extensão
uso pasta "
: Fornecer caminho de pasta completo < br >
' Aceita com /sem arrastando "\\" (Windows)
' Aceita com /sem fuga ":" (Macintosh)
Dim iTemp As Integer
' Ignorar erros para permitir a avaliação do erro
On Error Resume Next
iTemp = GetAttr ( PathName )
' Verifique se o erro existe e resposta definidas adequadamente
Select Case Err.Number
caso
Is = 0
FileOrDirExists = True
Case Else
FileOrDirExists = False
End Select
' erro Resume verificando
On Error Goto 0
finais
Função
TestItWithWindows Sub ( )
' finalidade : Macro para testar a função FileOrDirExists com o Windows
' Só incluídos para demonstrar a função. Não é necessário para o uso normal
Dim sPath As String
! " Mude o seu diretório aqui
sPath =" C: \\ Test.xls "
' Teste se o diretório ou arquivo existe
Se FileOrDirExists ( sPath ) Então
MsgBox SPATH & " existe! "
Else
MsgBox sPath & " não existe "
End If End Sub
Sub TestItWithMacintosh ()
' Objetivo Macro: . Para testar a função FileOrDirExists com um
Macintosh
' Só incluídos para demonstrar a função. Não é necessário para o uso normal
Dim sPath As String
" Mude o seu diretório aqui
sPath =! " HardDriveName : Documentos: Test.doc "
'Test se o diretório ou arquivo existe
Se FileOrDirExists ( sPath ) Então
MsgBox SPATH & " existe! "
Else
MsgBox sPath & " faz não existe. "
End If End Sub
2
Abra o Excel e pressione" Alt- F11 "para entrar no editor do Visual Basic
< . br>
3
Clique em "Inserir " e clique em "Módulo ".
4
cole o código no painel do lado direito com a tecla " Ctrl- " V. " < br >
5
Change " Text.xls " ao nome do arquivo que você está procurando.
6
Pressione " F5" para executar o procedimento . o procedimento irá retornar um pop -up janela dizendo que se o arquivo existe.
