[Resolvido]FileDialogcom extensões dos ficheiros

Boa tarde,

é possivel no codigo abaixo por a FileDialog a mostra só os ficheiros com a extensão pretendido como por exemplo ".xlsx"

obrigado

Private Sub Command315_Click()
Dim StrCaminho As String
Dim StrArquivo As String
MsgBox "Selecione o ficheiro Excel que se encontra na pasta desejada."
CurrentDb.Execute "delete * from Folha1"
DoCmd.Requery
Dim fd As Object
Dim x As String
Set fd = Application.FileDialog(1)
fd.InitialFileName = CurrentProject.Path & "\PDF\"
With fd
.ButtonName = "Importar"
.Title = "Selecione o local onde se encontra o arquivo..."
If .Show Then
SelecionarPasta = .SelectedItems(1)
x = SelecionarPasta
Text359.Value = x
Text359 = Mid(x, InStrRev(x, "\") + 1)
Text999 = Mid(x, InStrRev(x, "-") + 0)
Text999 = Left(Text359, (Len(Text359) - Len(Text999)))
Text1000 = Mid(Text999, InStrRev(Text999, "-") + 1)
Dim Separar As Variant
Separar = Split(Text999, "-")
Text124 = Separar(2)
ApagarFicheiro
MoverFicheiro
CurrentDb.Execute "INSERT INTO [Folha1] SELECT * FROM [Folha7]"
Text126.Value = Text1000.Value
DoCmd.Requery
Text124.SetFocus
End If
End With
Set fd = Nothing
End Sub

Veja se esta função ajuda;

Function BuscaFotos()
'Habilite a Referencia VBA Microsoft Office 12.0 object library (Ms Access 2007)
'Ou Microsoft Office 11.0 object library (Ms Access 2003)
'By JPaulo ® Maximo Access
  Dim CaminhoDasFotos As String
  Dim JanelaDeProcura As Office.FileDialog
  Dim MeusFiltros As Office.FileDialogFilter

  Set JanelaDeProcura = Application.FileDialog(msoFileDialogFilePicker)

  With JanelaDeProcura
     .Title = "Select Pic"
     .Filters.Clear
     .Filters.Add "Image Files", "*.jpg, *.bmp, *.gif"
     
     .FilterIndex = 2
     
     .ButtonName = "Selecione"
     .InitialView = msoFileDialogViewDetails
     .InitialFileName = "C:\"
        If .Show = -1 Then
        CaminhoDasFotos = CStr(JanelaDeProcura.SelectedItems.item(1))
     Else
       Exit Function
     End If
     Debug.Print CaminhoDasFotos
  End With
End Function