[Resolvido]Exportar Excel

Bom dia
Para exportar  um ficheiro Excel está com a base dados Access utilizoeste código

Private Sub Comando59_Click()
DoCmd.SetWarnings False
DoCmd.RunSQL "Delete * From Tabela_ProductInv"
Dim strPathFile As String, strFile As String, strPath As String
Dim strTable As String
Dim blnHasFieldNames As Boolean
blnHasFieldNames = True
strPath = CurrentProject.path & "\"
strTable = "Tabela_ProductInv"
strFile = dir(strPath & "*.xls*")
Do While Len(strFile) > 0
strPathFile = strPath & strFile
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _
strTable, strPathFile, blnHasFieldNames
strFile = dir()
Loop
MsgBox "Importação do Inventário concluída.", vbInformation, ""
End Sub

Se junto á base de dados Access estiver mais que um ficheiro Excel, como posso escolher qual o ficheiro Excel?

Obrigado
Pina

Você pode carregar todos os ficheiros xls/xlsx em uma combo e escolher por ela.

Bom dia criquio
Resolvi da seguinte forma: criei um campo no formulário, aonde escrevo o nome do ficheiro que pretendo e alterei o código.
Exporta prefeitamente

Private Sub Comando59_Click()
DoCmd.SetWarnings False
DoCmd.RunSQL "Delete * From Tabela_ProductInv"
Dim strPathFile As String, strFile As String, strPath As String
Dim strTable As String
Dim blnHasFieldNames As Boolean
blnHasFieldNames = True
strPath = CurrentProject.path & "\" & Me.TaxRegistrationNumber ' & Me.TaxRegistrationNumber (Acrescentei)
strFile = dir(strPath & ".xls")
strTable = "Tabela_ProductInv"
Do While Len(strFile) > 0
strPathFile = strPath '& strFile (desabilitei)
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _
strTable, strPathFile, blnHasFieldNames
strFile = dir()
Loop
MsgBox "Importação do Inventário concluída.", vbInformation, ""
End Sub

Obrigado
Pina

Grato pelo retorno. O fórum agradece.