Crie uma tabela relacional: liste as datas e as urls correspondentes ao lado. Depois mate via procv a partir da comparação com a função HOJE().

Abs,

Primeiramente Obrigado pelo retorno!

Só que tem um problema Brother, eu não sei os links pois eles são gerados dia após dia!!

eu criei uma macro para executar uma importação de dados da web, não teria como somente alterar essa parte dos links inserindo uma caixa de texto através do VBA, para que o usuário pudesse digitar manualmente?

por exemplo no código abaixo o botao irá importar os dados da web desse link especifico, porém como ele é modificado todos os dias, seria possível alterar somente essa parte que foi destacada no link?

Range("E5").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"URL; http://www.anbima.com.br/res_550/resultados/ 20120801_550.asp", _
Destination:=Range("$E$5"))
.Name = "20120801_550"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "4"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub

Obrigado!!

Jonas

Desculpe mas vc sabe SIM os links para cada dia.Esse 20120801 é justamente o dia que vc está fazendo a consulta. Ora, se vc aplicar a fórmula->

=TEXTO(ANO(HOJE());"0000")&TEXTO(MÊS(HOJE());"00")&TEXTO(DIA(HOJE());"00") vc sempre trará a tabela do dia - no exemplo acima a tabela de ontem, 1o de agosto de 2012.

Pense nisso;

Abs,

Boa tarde,

Veja se é isso:

Sub Consulta()
    Dim Codigo As String
    
    Codigo = Year(Date) & Format(Month(Date), "00") & Format(Day(Date), "00")
    
    Range("E5").Select
    With ActiveSheet.QueryTables.Add(Connection:= _
    "URL;http://www.anbima.com.br/res_550/resultados/" & Codigo & "_550.asp", _
    Destination:=Range("$E$5"))
    .Name = Codigo & "_550"
    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .BackgroundQuery = True
    .RefreshStyle = xlInsertDeleteCells
    .SavePassword = False
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .WebSelectionType = xlSpecifiedTables
    .WebFormatting = xlWebFormattingNone
    .WebTables = "4"
    .WebPreFormattedTextToColumns = True
    .WebConsecutiveDelimitersAsOne = True
    .WebSingleBlockTextImport = False
    .WebDisableDateRecognition = False
    .WebDisableRedirections = False
    .Refresh BackgroundQuery:=False
    End With
End Sub

Abraço

Cara brilhou demais, era bem isso msm!

No caso o unico problema q eu tinha é msm essa parte do link, com relação as datas eh bem isso mesmo que precisava brother agora entendi o que vc fez!

colocou a variável codigo puxando a data e ela sendo modificada diretamente no link certo??

Muito obrigado brother!!

Só um pergunta como faço p agradecer esse post p vc??

Abraços

Boa noite!!

Veja como agradecer e marcar como resolvido!!

viewtopic.php?f=7&t=3784

Att