[Resolvido]Importar uma aba específica do excel para Access

Boa noite,

Achei o código abaixo do JPaulo, no entanto não estou conseguindo adaptar para importar apenas uma aba específica do excel para o access, como poderia fazer a adaptação?




Utilize o CurrentDb.Execute "DELETE * from ..." antes da importação;


Private Sub SeuBotao_Click()
Dim strPathFile As String, strFile As String, strPath As String
Dim strTable As String
Dim blnHasFieldNames As Boolean
'apaga todos os registros da tabela
CurrentDb.Execute "DELETE * from SuaTabela"
blnHasFieldNames = True
strPath = "C:\" ' drive onde se situa o seu documento excel
strTable = "SuaTabela" 'nome da tabela no seu banco
strFile = Dir(strPath & "SeuExcel.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

Alguma sugestão?

Alguma ideia como posso adaptar?

Não testei, mais acredito que funcione.

Lembre-se de substituir "NomeDaAba" pelo nome da aba que você deseja importar. Com essas alterações, o código importará somente a aba que você especificou para a tabela "SuaTabela" no banco de dados Access. Certifique-se de que o arquivo Excel esteja fechado antes de executar a importação.

Código:


Private Sub SeuBotao_Click()
    Dim strPathFile As String, strFile As String, strPath As String
    Dim strTable As String
    Dim blnHasFieldNames As Boolean
   
    ' Nome da tabela no banco
    strTable = "SuaTabela"
   
    ' Indica se a primeira linha do Excel contém nomes de campo (True) ou não (False)
    blnHasFieldNames = True
   
    ' Caminho onde se situa o seu documento Excel
    strPath = "C:\"
   
    ' Nome do seu arquivo Excel
    strFile = "SeuExcel.xls"
   
    ' Nome da aba específica que você deseja importar
    Dim strWorksheet As String
    strWorksheet = "NomeDaAba"
   
    strPathFile = strPath & strFile
   
    ' Apaga todos os registros da tabela
    CurrentDb.Execute "DELETE * FROM " & strTable
   
    ' Importa a aba específica
    DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, strTable, strPathFile, blnHasFieldNames, strWorksheet & "!"
End Sub


@Carvalho, deu certo sim.

Obrigado.