[Resolvido] botão vba importar dados do excel com avisos.

Eu pesquisei no fórum e testei vários exemplos, mas ainda não consegui.
Se for possível, uma grande ajuda.
Tenho access 2016.

O formulário com um botão para importar do excel, inclusive peguei o exemplo do MaximoAccess:

Private Sub btn_importar_Click()
Dim strPathFile As String, strFile As String, strPath As String
Dim strTable As String
Dim blnHasFieldNames As Boolean
CurrentDb.Execute "DELETE * from Tb_dados"
blnHasFieldNames = True

strPath = CurrentProject.Path & "\pasta_importar_dados_excel_somente_xlsx\" ' drive onde se situa o seu documento excel
strTable = "Tb_dados" 'nome da tabela no seu banco
strFile = Dir(strPath & "*.xlsx") 'pegar o arquivo que constar na pasta com xlsx.'


Do While Len(strFile) > 0
strPathFile = strPath & strFile
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _
strTable, strPathFile, blnHasFieldNames
strFile = Dir()
Loop
   
End Sub


Ele está fazendo tudo certo.
Porém, quero inserir 2 avisos.
1 aviso quando não tiver arquivo xlsx na pasta. ele informar: inserir o arquivo xlsx na pasta, e tentar novamente.

outro aviso, tendo o arquivo na pasta...  quando terminar de importar os dados, informar que realizou a   importação.

Só isso. Não consegui.

Boa noite,

Tente
Private Sub btn_importar_Click()
Dim strPathFile As String, strFile As String, strPath As String
Dim strTable As String
Dim blnHasFieldNames As Boolean
CurrentDb.Execute "DELETE * from Tb_dados"
blnHasFieldNames = True

strPath = CurrentProject.Path & "\pasta_importar_dados_excel_somente_xlsx\" ' drive onde se situa o seu documento excel
strTable = "Tb_dados" 'nome da tabela no seu banco
LeFicheiro:
strFile = Dir(strPath & "*.xlsx") 'pegar o arquivo que constar na pasta com xlsx.'
if strFile="" then
msgbox "Falta o ficheiro."
goto LeFicheiro
end if
Do While Len(strFile) > 0
strPathFile = strPath & strFile
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _
strTable, strPathFile, blnHasFieldNames
strFile = Dir()
Loop
msgbox "Importação terminada."
End Sub

Muito obrigado... Não conseguia fazer o começo... ótimo. funcionou perfeitamente, coloquei até uma caixa para cancelar a operação, qdo não localizar o arquivo. muitíssimo obrigado.

Private Sub btn_importar_Click()

Dim strPathFile As String, strFile As String, strPath As String
Dim strTable As String
Dim blnHasFieldNames As Boolean
CurrentDb.Execute "DELETE * from Tb_dados"
blnHasFieldNames = True

strPath = CurrentProject.Path & "\pasta_importar_dados_excel_somente_xlsx\" ' drive onde se situa o seu documento excel
strTable = "Tb_dados" 'nome da tabela no seu banco
LeFicheiro:
strFile = Dir(strPath & "*.xlsx") 'pegar o arquivo que constar na pasta com xlsx.'
If strFile = "" Then
X = MsgBox("Favor, inserir o arquivo excel no formato xlsx na pasta: \pasta_importar_dados_excel_somente_xlsx\ :::::Se desejar continuar a importação - clicar no botão repetir, ou se quiseres cancelar a importação, clicar no botão cancelar.", vbRetryCancel, "Erro de importação - arquivo excel não localizado.")
If X = vbCancel Then
Exit Sub
End If
GoTo LeFicheiro
End If
Do While Len(strFile) > 0
strPathFile = strPath & strFile
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _
strTable, strPathFile, blnHasFieldNames
strFile = Dir()
Loop
MsgBox "Importação da planilha excel para o banco de dados terminada."

End Sub