Boa tarde!!

Qual é o endereço do site?

Talvez alguém possa ajuda-lo.

Att

Olá alexandrevba tudo bem?

Os sites são esses
http://www4.bcb.gov.br/pec/taxas/batch/ ... id=txdolar
https://internacional.bb.com.br/displayRatesBR.bb

Acho que pode haver alguma coisa errada com a rotina que encontrei na internet.
Se alguém souber de alguma outra forma para eu poder executar esta tarefa agradeço.

Desde de muito obrigado.

Abraços.

Tente isso:

Sub COTDOLAR()

    Range("A1").Select
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;https://www3.bcb.gov.br/ptax_internet/consultarUltimaCotacaoDolar.do", _
        Destination:=Range("$A$1"))
        .Name = "consultarUltimaCotacaoDolar.do_1"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlAllTables
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
End Sub

Me avise.

Abs,

Boa noite Mandrix.xls

Muito obrigado pela ajuda.
Tentei executar sua rotina e deu certo para copiar dados do site http://www4.bcb.gov.br/pec/taxas/batch/ ... id=txdolar porem não funciona para o site https://internacional.bb.com.br/displayRatesBR.bb sai um erro 1004 falando que não foi possível abrir a página e baixar o conteúdo.
Qual será o problema?

Desde já agradeço.

Abraços.

No meu funciona.

Qq coisa fala.

Abs

Sub MOSTRATAXAS()

    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;https://internacional.bb.com.br/displayRatesBR.bb", Destination:=Range( _
        "$A$1"))
        .Name = "displayRatesBR.bb"
        .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 = "7"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
End Sub

Bom dia MANDRIX.xls.

Muito obrigado pela ajuda.
Testei sua rotina mas continua aparecendo a mensagem de erro.
Fazendo a depuração o campo .Refresh BackgroundQuery:=False fica amarelo.
Você disse que testou e funcionou.
A rotina para baixar dados da outra página funciona
Seria problema com a versão do meu Internet Explorer ou sistema operacional?
Eu utilizo Win XP com IE8.

Desde já agradeço a ajuda e compreensão.

Abraços.

Realmente não sei cara...

Por que vc não faz o procedimento normal e grava (GRAVAR MACROS)?.

Depois vc dá uma analisada no código. Foi o que eu fiz.

Abs,

Olá Mandrix.xls

Muito obrigado pela resposta.
Então, tentei fazendo o procedimento utilizando gravar macros mas quando vou rodar a macro também aparece aquele erro.
Acho que deve ser algo com o OS ou a versão do IE que eu uso pois nem utilizando a função Obter Dados Externos do excel funciona.

Pesquisei na net e não achei nada a respeito.

Será que algum colega do fórum já teve problema parecido??

Abraços.