Muítissimo obrigado pela sua ajuda, Mandrax!

MANDRIX, achei o máximo o que você fez!! Como você fez pra saber se a tabela é a 15 ou 16? Ví que tudo foi digitado e não ví nenhuma rotina que busca...

Achei outro, porém o "For each" está encerrando sem fazer o loop. Sub Extract_TD_text() Dim URL As String Dim IE As InternetExplor...

Acho que estou chegando perto. Achei um código na internet que deveria funcionar, porém alguma coisa está faltando: Sub teste3() Dim ie As Object Di...

Mandrix, bom dia! Eu tinha pensado no Query, mas pra mim nao serve, pois da forma que está ele baixa apenas a "tabela 15" e este exemplo qu...

Reinaldo, Bingo! Coloquei um atraso de 10 segundos após terminar uma empresa, e foi até o final!!!! newHour = Hour(Now()) newMinute = Minute(Now()) n...

Você conseguiu baixar 22 planilhas? Aqui nunca passou de 10, porém aqui é wireless. Vou tentar na outra máquina que é rede à cabo. Muito obrigado!

Perfeito, Reinaldo, muitíssimo obrigada, mais uma vez!

Reinaldo, voce tinha razão, fiz as alterações: 1- Coloquei o End If 2- Inverti a posição do LOOP com o Next 3 - Troquei o número das linhas, que tinha...

Descobri, é que o While estava "memorizado" a última data, então bastou zerar a data de novo para funcionar. Fico aqui imensamente agradec...