vba - excel ( Verificar se arquivo existe)

[D10N3]

Preciso fazer com que uma macro que importa um arquivo faça a verificação se o mesmo existe antes de importa-lo. Como posso fazer isto em vba?

[Márcio Rodrigues]

Tente isto:

Private Sub CommandButton1_Click()

On Error GoTo RotinaErro ' Ative a rotina de tratamento de erro.

Open "C:\Marcio\TTC.txt" For Input As #1

Close #1

RotinaErro: ' Rotina de tratamento de erro.

Select Case Err.Number ' Avalie o número do erro.

Case 53

MsgBox "O arquivo não existe"

Close #1

Case 55

MsgBox "O arquivo já está aberto"

Close #1

Case 76

MsgBox "Caminho não localizado"

Close #1

Case Else

' Outros erro (ver Help Erros interceptáveis).

Close #1

End Select

End Sub

[D10N3]

OK! obrigado!

[Flavio Soares]

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.