[Resolvido]Importar Dados de Arquivo html para uma tabela no access.

Ola amigos Boas, !!!!

Seguinte tenho um arquivo que recebo de um Job no Software SAS pra quem conhece o SAS, porem este arquivo vem em formato html, pra piorar quando a quantidade de dados e acima de 60 registros o arquivo se divide em paginas, gostaria da ajuda dos amigos aqui, teria alguma macro ou Código VBA para importar os dados deste arquivo html de uma vez so para uma tabela no Access, lembrando que esta tabela irei deletar antes da nova importação.
Achei um artigo aqui no Forum mas não estou conseguindo adaptar....informa que não foi possível localizar o objeto tabela, mas eu criei a tabela...

Somente Corrigindo o Arquivo é no Formato htm, Ok !!!!

Post Falando sobre o assunto porem não consegui...
https://www.maximoaccess.com/t23775-criar-tabela-a-partir-de-um-arquivo-com-tabelas-html-html-tables


Segue algumas imagens






Agradeço !!!!

Tem como disponibilizar o arquivo?

Amigos ja resolvido por aqui segue a solução mais detalhada para um futura duvida !!!!!

Grande Abraço à Todos Bom Natal e um prospero ano novo !!!!!


Dim y, s As Integer
Dim x As String

'10 s = Nz(InputBox("Quantas tabelas deseja importar?", "Importando...")) 'Ou
'x = Nz(InputBox("Indique o caminho\nomeFicheiro.html ", "Importando..."))
12 x = "\\cmpintra02\sistemas_processos_redes\BaseSAP\Job PAINELCONTRATOS, Step 1.htm"

'Deleta os dados na tabela à receber
14 CurrentDb.Execute "DELETE * FROM Tab_Contratos_SAP_Base"


16 For y = 0 To 50
17 If y = 0 Then
'ComandoImportarArquivo,"EspecificaçõesDeImportação","TabelaDadosAccess","CaminhoDoArquivoHTML",NomeCampo_Sim/Não,"NomeDaTabelaDentroArquivoHTML"
18 DoCmd.TransferText acImportHTML, "Job PAINELCONTRATOS", "Tab_Contratos_SAP_Base", x, False, "Saída de Report"
Else
''ComandoImportarArquivo,"EspecificaçõesDeImportação","TabelaDadosAccess","CaminhoDoArquivoHTML",NomeCampo_Sim/Não,"NomeDaTabelaDentroArquivoHTML"
20 DoCmd.TransferText acImportHTML, "Job PAINELCONTRATOS", "Tab_Contratos_SAP_Base", x, False, "Saída de Report" & y
End If
22 Next y

Obrigado à Todos....

Valeu Abraço !!!!