[Resolvido]Importar Excel

Bom dia a todos,

Estou a utilizar um código que me importa um ficheiro ".xlsx" para a minha BD, mas tenho a necessidade de poder também importar ou em ".xlsx" ou em ".xls".
O código abaixo é o que eu estou a usar.

Sub Importar_xls()
Dim strPathFile As String, strFile As String, strPath As String
Dim strTable As String
Dim blnHasFieldNames As Boolean
blnHasFieldNames = True
strPath = CurrentProject.Path & "\"
strTable = "Folha1"
strFile = Dir(strPath & "*.xlsx")
Do While Len(strFile) > 0
strPathFile = strPath & strFile
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _
strTable, strPathFile, blnHasFieldNames
strFile = Dir()
Loop
End Sub

agradeço desde já a disponibilidade de todos.  

Bom dia outra vez...

Após algumas tentativas minhas, consegui resolver.
Vou postar o código, pode não estar la muito correto mas funciona.   


Sub Importar_xls()
Dim strPathFile As String, strFile As String, strPath As String, strFile1 As String
Dim strTable As String
Dim blnHasFieldNames As Boolean
blnHasFieldNames = True
strPath = CurrentProject.Path & "\"
strTable = "Folha1"
strFile = Dir(strPath & "*.xlsx")
strFile1 = Dir(strPath & "*.xls")
Do While Len(strFile) > 0
strPathFile = strPath & strFile
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _
strTable, strPathFile, blnHasFieldNames
strFile = Dir(CurrentProject.Path)
Loop
Do While Len(strFile1) > 0
strPathFile1 = strPath & strFile1
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _
strTable, strPathFile1, blnHasFieldNames
strFile1 = Dir(CurrentProject.Path)
Loop
End Sub

Obrigado