[Resolvido]Verificar existência do ficheiro Excel a importar

boa tarde,
solicito a vossa ajuda na seguinte situação:
encontrei aqui o código abaixo que importar dados para o excel funciona perfeitamente mas gostaria que antes de importar verificasse se o ficheiro excel à importar existe.
é possível? já tentei não consegui, segue a bd em anexo. desde já agradeço

Código:

Private Sub btbimp_Click()
On Error GoTo f

   Dim rst As DAO.Recordset, LivroExcel, Linha As Integer
   'criar ligação com excel
   Set LivroExcel = CreateObject("Excel.Application")
   LivroExcel.Workbooks.Open CurrentProject.Path & "\Controlo_Valor.xlsx"
   'criar recordet
   Set rst = CurrentDb.OpenRecordset("SELECT DataValor, Valor FROM tbl_Valor")
   'cria novo registo na tabela e importa do excel
   Linha = 2
   Do While LivroExcel.Cells(Linha, 1)
   rst.AddNew
   rst("DataValor") = LivroExcel.Cells(Linha, 1)
   rst("Valor") = LivroExcel.Cells(Linha, 2)
   rst.Update
   Linha = Linha + 1
 
   Loop
       MsgBox "Importação efectuado com sucesso!", vbInformation, ""

   'fechaexcel
   
   LivroExcel.ActiveWorkbook.Close SaveChanges:=False
   Set LivroExcel = Nothing
   
   'fecha rst
   Set rst = Nothing
f:
Call TrataErroF
End Sub

Olá Caty,

Coloque o código abaixo na linha seguinte onde tem On Error GoTo f:

Código:

If Dir(CurrentProject.Path & "\Controlo_Valor.xlsx") = "" Then
    MsgBox "Não existe o ficheiro, a operação vai ser cancelada.", vbCritical, ""
    Exit Sub
End If


Abraço

muito obrigado mestre ahteixeira está a funcionar perfeitamente!!!
continuei a pesquisar aqui e consegui adaptar o código abaixo também funciona.
obrigado mais uma vez tempo tempo dispensado e mais um aprendizado


Dim rst As DAO.Recordset, LivroExcel, Linha As Integer
Dim fso
Dim file As String
file = CurrentProject.Path & "\Controlo_Valor.xlsx"
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FileExists(file) Then
MsgBox (" não encontrado."), vbInformation, "Não Encontrado"
Else
'criar ligação com excel
Set LivroExcel = CreateObject("Excel.Application")
LivroExcel.Workbooks.Open CurrentProject.Path & "\Controlo_Valor.xlsx"

'criar recordet
Set rst = CurrentDb.OpenRecordset("SELECT DataValor, Valor FROM tbl_Valor")
'cria novo registo na tabela e importa do excel
Linha = 2
Do While LivroExcel.Cells(Linha, 1)
rst.AddNew
rst("DataValor") = LivroExcel.Cells(Linha, 1)
rst("Valor") = LivroExcel.Cells(Linha, 2)
rst.Update
Linha = Linha + 1

Loop
MsgBox "Importação efectuado com sucesso!", vbInformation, ""

'fechaexcel

LivroExcel.ActiveWorkbook.Close SaveChanges:=False
Set LivroExcel = Nothing

'fecha rst
Set rst = Nothing

End If