[Resolvido]Importando Planilha Excel

Importando Planilha Excel

Caros colegas, momento estou importando uma planilha com o seguinte comando mencionado abaixo, entendo que este comando busca as informações contidas na primeira guia da planilha no intervalo B:C, agora vai as minhas duvidas, 1º teria a possibilidade dele buscar a ultima guia existente?, 2º teria a possibilidade dele buscar uma guia especifica não mudando o intervalo desejado que seria B:C.


Comando:

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, "tbl_pagamentos_diarios_excel_403504", strDir, True, "B:C"

Olá Rodrigo,
Veja se ajuda o código abaixo, pois consegue especificar a guia (Plan1) onde irá buscar os dados no Excel. É um código que consegui aqui no fórum e só ajustei para a minha necessidade....
Existe outro código que localiza o arquivo (caminho e nome) e depois este código pega estes dados do próprio form...

   Dim strPathFile As String, strFile As String, strPath As String
   Dim blnHasFieldNames As Boolean
   Dim intWorksheets As Integer
   Dim strWorksheets(1 To 1) As String
   
   Dim strTables(1 To 1) As String
   
   strWorksheets(1) = "Plan1" 'define a guia onde buscar os dados
   strTables(1) = "tbl_CrossReference_PV_Temp" 'define a tabela onde carregar os dados
   blnHasFieldNames = True
   strPath = "" & Me.OrigemPath & "\" 'define o caminho onde está a pasta Excel
   
   For intWorksheets = 1 To 1
   
   strFile = Dir(strPath & "" & Me.Arquivo & "") 'define o caminho+nomearquivo a importar
   
   Do While Len(strFile) > 0
   strPathFile = strPath & strFile
   DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, strTables(intWorksheets), strPathFile, blnHasFieldNames, strWorksheets(intWorksheets) & "$"
   strFile = Dir()
   Loop

   Next intWorksheets

Muito Obrigado Eloirp, como este código creio que sana meus problemas.
Abraço
Valeu