[Resolvido]Mudar nome de folha de excel via Access

Boa noite

Estou a usar, num projeto, o seguinte código do Mestre JP para importar de uma pasta vários documentos em excel:

Código que importa de uma só vez, todas as folhas de excel que estiverem em c:\ para a tabela

Private Sub SeuBotao_Click()
Dim strPathFile As String, strFile As String, strPath As String
Dim strTable As String
Dim blnHasFieldNames As Boolean
blnHasFieldNames = True
strPath = "C:\" ' drive onde se situa o seu documento excel
strTable = "tblExemplo" 'nome da tabela no seu banco
strFile = Dir(strPath & "temp.xls") 'nome do seu excel, se mudar para "*.xls" importa todas as folhas excel _
que estiverem em C:\ para a tabela do banco.
Do While Len(strFile) > 0
strPathFile = strPath & strFile
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _
strTable, strPathFile, blnHasFieldNames
strFile = Dir()
Loop
End Sub

A minha dificuldade é a seguinte: eu apenas pretendo ir buscar os dados à primeira folha dos documentos, cujo nome pode ser diferente de uma para outras.
Como posso definir através do código acima, qual o nome a dar a folha ativa do excel para ir buscar apenas os dados desta???

Mil obrigados!!

Boas noites....

Parece que ninguém consegue me ajudar. como faço para, selecionar o intervalo de dados a ser importado, apenas da 1.ª folha do excel, independente do respetivo nome??

Obrigado

Bem,,,,

Não existe solução para a minha questão. Por isso, fecho o post!!