Financiamento do Yahoo Forex Exchange
Obter através da App Store Leia esta publicação em nosso aplicativo!
Como obter dados históricos para as taxas de câmbio através do Yahoo Finance?
Eu preciso obter resposta JSON ou XML com a cronologia das taxas de câmbio, por exemplo, de 2015-01-07 a 2015-03-07.
Com esta resposta, podemos obter apenas as informações mais recentes sobre as taxas de câmbio das moedas escolhidas.
Aqui, podemos obter as taxas de câmbio para certas datas usando o URL: finance. yahoo/connection/currency-converter-cache? date=20150307 e analisando o JSON obtido para determinada moeda.
Mas eu preciso obter taxas de câmbio para o intervalo de datas, como está aqui, mas no formato JSON ou XML.
Existe uma maneira de fazer isso?
Então você pode recuperar os dados que você precisa com uma consulta como esta:
Aqui está uma solução para obter seus dados em um pandill DataFrame. Você pode então exportar do DataFrame para JSON, XML etc. usando funções como pandas. DataFrame. to_json.
Os símbolos também podem ser diferentes dos que você está usando.
Você precisará instalar o pandas-datareader. (Eu suponho que você já tenha pandas).
Financiamento do Yahoo Forex Exchange
Obter através da App Store Leia esta publicação em nosso aplicativo!
Como faço para obter taxas de câmbio através de uma API, como o Google Finance? [fechadas]
Agora, encontrei a Google Finance API e comecei a analisar isso, mas eu encontrei muitas informações sobre carteiras, transações, posições e outras coisas sobre as quais não sei.
Estou olhando os documentos errados? O que eu preciso fazer para obter uma alimentação das taxas de câmbio da GF? Isso é mesmo possível?
Para tornar as coisas um pouco mais claras. Eu não estou interessado em coisas técnicas nem eu quero nenhum código.
fechado como fora do tópico por George Stocker & # 9830; 27 de fevereiro às 14h12.
Esta pergunta parece ser fora do tópico. Os usuários que votaram para fechar deram esse motivo específico: "Questões que nos pedem para recomendar ou encontrar uma ferramenta, biblioteca ou recurso off-site favorito são off-topic para o estouro de pilha, pois eles tendem a atrair respostas de opinião e spam. Em vez disso, descreva o problema e o que foi feito até agora para resolvê-lo. & Quot; & ndash; George Stocker Se esta questão pode ser reformulada para se adequar às regras da ajuda, edite a questão.
bloqueado por George Stocker & # 9830; 29 de agosto às 14h22.
As respostas da pergunta são um esforço colaborativo: se você vê algo que pode ser melhorado, basta editar a resposta para melhorá-lo! Nenhuma resposta adicional pode ser adicionada aqui.
10 Respostas.
Obrigado por todas as suas respostas.
Para a posteridade aqui estão junto com outras respostas possíveis:
Yahoo Finance API Discontinued 2017-11-06.
Discontinuado a partir de 2017-11-06 com mensagem.
Chegou à nossa atenção que este serviço está sendo usado em violação dos Termos de Serviço do Yahoo. Como tal, o serviço está sendo descontinuado. Para todos os futuros mercados e pesquisa de dados de ações, consulte finance. yahoo.
Este CSV estava sendo usado por um plugin jQuery chamado Curry. Curry tem desde (2017-08-29) movido para usar fixer. io em vez disso devido a problemas de estabilidade. Pode ser útil se você precisar de mais do que apenas um CSV.
(graças ao Keyo) O Yahoo Query Language permite que você obtenha todo um monte de moedas ao mesmo tempo em XML ou JSON. As atualizações de dados pelo segundo (enquanto o Banco Central Europeu possui dados antigos), e pára no fim de semana. Não requer nenhum tipo de inscrição.
Aqui está o construtor de consulta YQL, onde você pode testar uma consulta e copiar a URL:
API de Taxas de Câmbio de Fonte Aberta.
Alterar "base" (de "USD") não é permitido na conta gratuita.
currencylayer API.
Plano gratuito para 1.000 acessos mensais.
Alterar "fonte" (de "USD") não é permitido na conta gratuita.
Alimentação do Banco Central Europeu.
Fixer. io API (dados do Banco Central Europeu)
Aqui está outra API JSON (P) baseada na API do Google (fonte: este comentário):
O Yahoo possui um recurso YQL para obter um monte de moedas ao mesmo tempo em XML ou JSON. Eu notei que os dados estão atualizados até o momento em que o BCE possui dados antigos e pára no fim de semana.
Aqui está o seu construtor de consultas, onde você pode testar uma consulta e copiar a URL:
O Banco Central Europeu (BCE) também possui o feed gratuito mais confiável que conheço. Contém cerca de 28 moedas e é atualizado pelo menos diariamente.
Se você precisa de uma API simples e gratuita para converter uma moeda para outra, experimente free. currencyconverterapi.
Disclaimer, eu sou o autor do site e eu uso isso para um dos meus outros sites.
O serviço é gratuito para uso mesmo para aplicações comerciais, mas não oferece garantia. Por razões de desempenho, os valores são atualizados apenas a cada 30 minutos.
Aqui estão algumas APIs de intercâmbio com o exemplo do PHP.
[Open Exchange Rates API]
Fornece 1.000 pedidos por mês grátis. Você deve se registrar e pegar o ID da aplicação. A moeda base USD para conta gratuita. Verifique as moedas suportadas e a documentação.
150 USD = 18039.09015 JPY.
[Currency Layer API]
Fornece 1.000 pedidos por mês grátis. Você deve se registrar e pegar a chave de acesso. A moeda base personalizada não é suportada na conta gratuita. Verifique a documentação.
150 USD = 18036.75045 JPY.
Se você está procurando uma solução baseada em Ruby para este problema, recomendo usar o método Google Calculator uma solução semelhante à seguinte: j. mp/QIC564.
Aqui está um script PHP simples que obtém taxa de câmbio entre GBP e USD.
As taxas de câmbio do Google não são precisas. O google em si diz ==> O Google não pode garantir a precisão das taxas de câmbio utilizadas pela calculadora. Você deve confirmar as taxas atuais antes de fazer qualquer transação que possa ser afetada pelas mudanças nas taxas de câmbio. As taxas de câmbio estrangeiras fornecidas pelo Citibank N. A. são exibidas sob licença. As taxas são apenas para fins informativos e estão sujeitas a alterações sem aviso prévio. As taxas de transações reais podem variar e o Citibank não está oferecendo para entrar em nenhuma transação, de qualquer forma exibida.
Além da geolocalização feita por IP (mas o IP é o IP do provedor, portanto, não é tão preciso), eles também retornam moedas e têm um conversor de moeda: veja exemplos.
Eles têm 111 moedas atualizadas.
Para todos os iniciantes que procuram alguma dica sobre a conversão de moeda, dê uma olhada neste link. Datavoila.
Isso ajudou muito no meu projeto em C #. Apenas no caso de o site desaparecer, vou adicionar o código abaixo. Basta adicionar as etapas abaixo para o seu próprio projeto. Desculpe pela formatação.
Yahoo Currency Exchange.
Conversor de moeda do Yahoo! Finança. Encontre as últimas taxas de câmbio e converta todas as principais moedas do mundo com o conversor de moeda.
No Yahoo Finance, você obtém cotações de ações gratuitas, notícias atualizadas, recursos de gerenciamento de portfólio, dados do mercado internacional, fóruns e taxas de hipoteca.
Yahoo! Finanças é uma propriedade de mídia que faz parte da rede do Yahoo! # 8217 ;. Ele fornece notícias, dados e comentários financeiros, incluindo cotações de ações, comunicados de imprensa, relatórios financeiros e programação original. Ele também oferece algumas ferramentas on-line para gerenciamento de finanças pessoais.
Melhor momento para investir no mercado de ações?
Esperando o melhor momento para investir no mercado de ações? Talvez quando você tiver algum dinheiro extra por aí e a questão inevitável surgir: você deve manter a iluminação de charutos com cem dólares de contas ou, o que diabos, coloque algum dinheiro no mercado?
OK, então talvez você não queime seus ganhos com rapidez. Mas considere isso: a única maneira pela qual a maioria das pessoas tem alguma esperança de criar riqueza real é investindo no mercado de ações. Claro, você poderia inventar algo incrível, começar uma empresa de bilhões de dólares ou ganhar a loteria, mas deixe-a enfrentar: suas chances são escassas.
Lento e estável é a próxima melhor opção para uma safada repentina ou um sucesso selvagem. Investir regularmente ao longo do tempo dá-lhe o controle sobre o seu destino & # 8212; ao contrário da esperança de acordar um dia como herdeiro de uma grande fortuna.
Se você sofre ansiedade por investir nos mercados, considere estes seis motivos convincentes para o qual você deve superá-lo. Consulte Mais informação!
Função de taxa de câmbio no Excel.
Esta planilha do Excel possui uma função VBA (UDF) que estimula as taxas de câmbio ao vivo do Yahoo Finance. Leia mais para a planilha gratuita do Excel e VBA.
A função Excel é perfeita para sempre que você precisa de uma conversão de moeda. Eu uso isso para acompanhar o valor da libra britânica de uma conta bancária dos EUA e do dólar canadense.
As taxas são recuperadas do Yahoo Finance, e são em tempo real (mas atrasadas em 15 ou 20 minutos).
A UDF é simples de usar. Aqui está a sintaxe.
Este é um exemplo de como usar o FXRate () no Excel para uma conversão de moeda entre GBP e USD.
Os dois primeiros argumentos são a moeda que você está convertendo e a moeda na qual você está convertendo. Estes são códigos de moeda de três letras (por exemplo, GBP para libras esterlinas ou CAD para dólares canadenses) inseridos como cordas. O terceiro argumento é um do & # 8220; close & # 8221 ;, & # 8220; open & # 8221 ;, & # 8220; lance & # 8221; ou & # 8220; pergunte & # 8221; (novamente como uma string). O preço de fechamento é o fechamento anterior.
O link para a planilha do Excel está na parte inferior desta postagem, mas aqui é o VBA.
Opção Função explícita FXRate (currency1 As String, currency2 As String, rateType As String) Como Double Dim str Como String Dim temp Como String Dim bidStart Como Long Dim BidEnd Como Long Dim askStart Como Long Dim askEnd Como Long Dim openStart Como Long Dim openEnd Como Dim Dim CloseStart As Long Dim closeEnd Como Long Dim lances como Double Dim ask As Double Dim ropen Como Double Dim rclose As Double str = & quot; finance. yahoo/q? S = & quot; & amp; currency1 & amp; currency2 & amp; & quot; X & quot; temp = ExecuteWebRequest (str) bidStart = InStr (temp, & quot; Bid: & quot;) bidEnd = InStr (bidStart, temp, & quot; & quot;) bid = Mid (temp, bidStart + 65, bidEnd - bidStart - 72) askStart = InStr (temp, & quot; Ask: & quot;) askEnd = InStr (askStart, temp & quot; & quot;) ask = Mid (temp, askStart + 65, askEnd - askStart - 72) openStart = InStr (temp, & quot; Open: "openEnd = InStr (openStart, temp," quot; "ropen = Mid (temp, openStart + 38, openEnd - openStart - 38) closeStart = InStr (temp, & quot; Close Close: & quot;) closeEnd = InStr ( closeStart, temp, "quot;") rclose = Mid (temp, closeStart + 44, closeEnd - closeStart - 44) Se rateType = "perguntar & quot; Então FXRate = peça ElseIf rateType = & quot; lance & quot; Então FXRate = lance ElseIf rateType = & quot; open & quot; Então FXRate = ropen ElseIf rateType = & quot; close & quot; Então FXRate = rclose End If End Function Função ExecuteWebRequest (ByVal url As String) Como String Dim oXHTTP como objeto Se InStr (1, url, "quot ;," 1) & lt; & gt; 0 Então url = url & amp; & quot; & amp; cb = & quot; & amp; Timer () * 100 Else url = url & amp; "cb =" & amp; Timer () * 100 End If Set oXHTTP = CreateObject ("MSXML2.XMLHTTP") oXHTTP. Open "GET", url, Falso oXHTTP. send ExecuteWebRequest = oXHTTP. responseText Defina oXHTTP = Nothing End Function.
ExecuteWebRequest () foi copiado e modificado a partir daqui. ExecuteWebRequest () recupera o HTML de uma página da Web, enquanto o FXRate () processa o HTML para extrair as taxas de câmbio.
Tenha em mente que FXRate () raspa os dados do Yahoo Finance com algum processamento de string simples. Então, se a estrutura dos dados no Yahoo Finance for alterada, essa função pode não funcionar mais. Deixe-me saber se isso acontece, e eu atualizarei o VBA para que ele funcione novamente.
Se você quer taxas de conversão de moeda histórica durante um período, verifique esta planilha. Você também pode usar um QueryTable para extrair as taxas de câmbio.
Deixe um comentário se tiver dúvidas ou comentários.
27 pensamentos sobre & ldquo; Função de taxa de câmbio no Excel & rdquo;
Obrigado por este modelo acessível. Achei muito útil, mas parece que há um problema com a conversão de dólares de Hong Kong.
Eu verifiquei que a abreviatura de dólares de Hong Kong no Yahoo Finance é HKD.
Aprecio se você pode me informar se consertar isso.
Não tenho certeza exatamente o que você está fazendo, mas a seguinte conversão de USD para HKD funciona para mim (HKD é reconhecida como uma abreviatura)
Parece que este modelo não está funcionando mais. Eu usei na semana passada e funcionou perfeitamente (e foi uma ótima ferramenta UDF, graças!).
Algum por que o yahoo mudaria sua codificação?
Apenas tentei a planilha e ainda funciona.
A função quebra quando as localizações das buscas de substring excedem o valor máximo 32767 para o tipo de dados Integer. Se você alterar as declarações para bidStart, bidEnd, etc. para Long em vez de Integer, a função funcionará de forma confiável quando o comprimento da variável Temp for extremamente grande. Para uma página retornada hoje, o comprimento da variável Temp foi 76104 com o bidStart igual a 33422. As declarações longas permitem que a função funcione novamente conforme o esperado.
Obrigado! I & # 8217; mudou o tipo de dados para Long na VBA e na planilha eletrônica. Muito apreciado!
Obrigado pelo código acima. Estou tendo problemas com a posição das taxas fx na fonte HTML.
Estou tentando recuperar a taxa FPS GBPSGD.
Abaixo estão as posições para o & # 8220; lance & # 8221; (o primeiro preço que o código procura na fonte html)
bidStart + 65 = 31245.
bidEnd & # 8211; bidStart & # 8211; 72 = -72.
Então, porque o bidStart e o BidEnd são os mesmos, a função Mid pode encontrar a taxa de lance.
Por que você faz a posição bidEnd procurando por & # 8220; & # 8221; ?
Acabei de tentar usar a função FXRate () na planilha para aproveitar a taxa de câmbio GBPSGD com.
Parece que funciona bem # 8211; A UDF corretamente arranca o preço da oferta da Yahoo Finance.
> Então, porque o bidStart e o BidEnd são os mesmos, a função Mid não consegue encontrar a taxa de lances.
Parece encontrar a taxa de lance para mim.
Oi Samir, se eu estivesse faltando o motivo óbvio por que você definiu a posição do bidEnd & # 8217; s na fonte usando & # 8220; & # 8221; você pode me dar um ponteiro? 🙂
Este ótimo modelo tinha funcionado para mim até algumas semanas atrás. Eu não mudei nada recentemente, mas agora apenas relata & # 8220; #VALUE! & # 8221; na célula e o mouse sobre o pequeno ícone de erro diz & # 8220; Um valor usado na fórmula é do tipo de dados incorreto & # 8221 ;. Alguma sugestão sobre como resolver isso? obrigado.
Algo mudou na estrutura do Yahoo.
Mas eu concordo que começando com bidStart e terminando com CloseEnd, eles deveriam ser muito melhores.
Além disso, isso pode funcionar melhor:
bid = Mid (temp, bidStart + 65, bidEnd & # 8211; bidStart & # 8211; 72)
ask = Mid (temp, askStart + 65, askEnd & # 8211; askStart & # 8211; 72)
openEnd = InStr (openStart, temp, & # 8220; & # 8221;)
ropen = Mid (temp, openStart + 38, openEnd & # 8211; openStart & # 8211; 38)
closeStart = InStr (temp, & # 8220; Close Anterior: & # 8221;)
closeEnd = InStr (closeStart, temp, & # 8220; & # 8221;)
rclose = Mid (temp, closeStart + 44, closeEnd & # 8211; closeStart & # 8211; 44)
Função FXRate (currency1 As String, currency2 As String, rateType As String) como Double.
Dim url As String.
Resposta Dim como String.
FXRate = GetValue (resposta, & # 8220; Ask: & # 8221;)
ElseIf rateType = & # 8220; lance & # 8221; Então.
FXRate = GetValue (resposta, & # 8220; Bid: & # 8221;)
ElseIf rateType = & # 8220; abrir & # 8221; Então.
FXRate = GetValue (resposta, & # 8220; Abrir: & # 8221;)
ElseIf rateType = & # 8220; fechar & # 8221; Então.
FXRate = GetValue (resposta, & # 8220; Close Anterior: & # 8221;)
Função GetValue (ByVal temp As String, ByVal label As String) As Double.
Dim strStart As Long.
Dim strand como longo.
strStart = InStr (temp, & # 8220; Close Anterior: & # 8221;)
GetValue = Mid (temp, strStart + 2, strEnd & # 8211; strStart & # 8211; 2)
Função ExecuteWebRequest (ByVal url As String) As String.
Dim oXHTTP como objeto.
Definir oXHTTP = CreateObject (& # 8220; MSXML2.XMLHTTP & # 8221;)
oXHTTP. Open & # 8220; GET & # 8221 ;, url, False.
Definir oXHTTP = Nada.
Existe uma maneira de obter um único valor (diga & # 8220; lance & # 8221;) em uma célula definida? Eu só preciso do comércio mais recente para ser empurrado para uma célula.
Isso não funciona para mim. Ou o código original ou a atualização de anônimos em 22 de janeiro de 2014.
Eu tentei usar essa conversão, mas já não está funcionando ou não deixando mais um valor de resultado.
Eu usei antes de uma função semelhante: (veja abaixo), mas quando eu uso o abaixo e convertei de IDR para EUR, dê uma conversão de 5 euros em vez de 3.5Euro (o que eu recebo quando eu entrar em linha com o conversor do Yahoo)
Então eu procurei uma solução melhor e veio do seu lado, no entanto, nenhum resultado é dado:
Função YahooCurrencyConverter (ByVal strFromCurrency, ByVal strToCurrency, Opcional ByVal strResultType = & # 8220; Valor & # 8221;)
Em Erro Ir para ErrorHandler.
Dim strURL As String.
Dim objXMLHttp As Object.
Dim stres como String, dblRes As Double.
Defina objXMLHttp = CreateObject (& # 8220; MSXML2.ServerXMLHTTP & # 8221;)
& # 8216; strURL = & # 8220; finance. yahoo/d/quotes. csv? E =.csv & amp; f = c4l1 & amp; s = & # 8221; & amp; strFromCurrency & amp; strToCurrency & amp; & # 8220; = X & # 8221;
strURL = & # 8220; finance. yahoo/q? s = & # 8221; & amp; strFromCurrency & amp; strToCurrency & amp; & # 8221; = X & # 8221;
& # 8216; Enviar solicitação XML.
.setRequestHeader & # 8220; Content-Type & # 8221 ;, & # 8220; aplicação / x-www-form-URLEncoded & # 8221;
Selecione Case strResultType.
Case & # 8220; Value & # 8221 ;: YahooCurrencyConverter = dblRes.
Case Else: YahooCurrencyConverter = & # 8220; 1 & # 8221; & amp; strFromCurrency & amp; & # 8221; = & # 8221; & amp; dblRes & amp; & # 8221; & # 8221; & amp; strToCurrency.
Defina objXMLHttp = Nothing.
Por favor alguém pode me ajudar?
Preciso de uma planilha de excel para mostrar as taxas de câmbio em uma data específica.
Exemplos: taxa de câmbio de USD para GBP em 10 de outubro de 2014.
Taxa de câmbio de USD para BRL em 10 de outubro de 2014.
Eu acho que poderia ser uma função, por exemplo:
Isso é possível?
O outro é que ele deve funcionar com o meu laptop excel do Brasil, que usa, como separador decimal (International Units System)
Desde já, obrigado!
Junto com a taxa de câmbio aberta (que é a única parte que estou usando), eu também gostaria de extrair a data de troca em uma célula.
Você pode sugerir algo?
Isso ainda funciona? Porque não parece estar funcionando quando eu uso isso?
Caro todos, funcionou bem até o final de dezembro de 2016. Parece que o Yahoo mudou algo em seu site. Alguém poderia analisar o código e dar uma solução sobre o que precisa ser alterado, obrigado.
Este código ajustado parece funcionar. Eu não testei com todos os combos possíveis, mas funcionou para os poucos que eu testei!
Função FXRate (currency1 As String, currency2 As String, rateType As String) como Double.
Dim str As String.
Dim temp As String.
Dim bidStart As Long.
Dim bidEnd As Long.
Dim askStart As Long.
Dim askEnd As Long.
Dim openStart As Long.
Dim openEnd As Long.
Dim closeStart As Long.
Dim closeEnd As Long.
Dim lance As Double.
Dim ask As Double.
Dim ropen As Double.
Dim rclose As Double.
Dim i As Long, i1 As Long, i2 As Long.
Dim myArray () como variante.
ReDim myArray (1 a Len (temp) / 500)
Para i = 1 Para Len (temp) / 500.
Se (i2 & gt; Len (temp)) Então i2 = Len (temp)
myArray (i) = Mid (temp, i1, 500)
bidEnd = InStr (bidStart + 1, temp, & # 8220; & # 8221;) + 4.
askEnd = InStr (askStart + 1, temp, & # 8220; & # 8221;) + 7.
openEnd = InStr (openStart + 1, temp, & # 8220; & # 8221;) + 7.
closeEnd = InStr (closeStart + 1, temp, & # 8220; & lt; ")
lance = Mid (temp, bidStart, bidEnd & # 8211; bidStart)
ask = Mid (temp, askStart, askEnd & # 8211; askStart)
ropen = Mid (temp, openStart, openEnd & # 8211; openStart)
rclose = Mid (temp, closeStart, closeEnd & # 8211; closeStart)
Se rateType = & quot; ask & quot; Então.
ElseIf rateType = & quot; lance & quot; Então.
ElseIf rateType = & quot; open & quot; Então.
ElseIf rateType = & quot; close & quot; Então.
Função ExecuteWebRequest (ByVal url As String) As String.
Dim oXHTTP como objeto.
Definir oXHTTP = CreateObject (& # 8220; MSXML2.XMLHTTP & # 8221;)
oXHTTP. Open & # 8220; GET & # 8221 ;, url, False.
Definir oXHTTP = Nada.
Oops & # 8211; deixado em algum código de depuração. Você pode excluir essas coisas:
ReDim myArray (1 a Len (temp) / 500)
Para i = 1 Para Len (temp) / 500.
i1 = (i - 1) * 500 + 1.
Se (i2 & gt; Len (temp)) Então i2 = Len (temp)
myArray (i) = Mid (temp, i1, 500)
Grrr! Moderador & # 8211; elimine os comentários acima. O corte e a pasta não funcionaram corretamente e deixaram algum código. Espero que o que está abaixo seja completo e correto. Obrigado!
Função FXRate (currency1 As String, currency2 As String, rateType As String) como Double.
Dim str As String.
Dim temp As String.
Dim bidStart As Long.
Dim bidEnd As Long.
Dim askStart As Long.
Dim askEnd As Long.
Dim openStart As Long.
Dim openEnd As Long.
Dim closeStart As Long.
Dim closeEnd As Long.
Dim lance As Double.
Dim ask As Double.
Dim ropen As Double.
Dim rclose As Double.
Dim i As Long, i1 As Long, i2 As Long.
ReDim myArray (1 a Len (temp) / 500)
Para i = 1 Para Len (temp) / 500.
Se (i2 & gt; Len (temp)) Então i2 = Len (temp)
myArray (i) = Mid (temp, i1, 500)
bidEnd = InStr (bidStart + 1, temp, & # 8220; & # 8221;) + 4.
askEnd = InStr (askStart + 1, temp, & # 8220; & # 8221;) + 7.
openEnd = InStr (openStart + 1, temp, & # 8220; & # 8221;) + 7.
closeEnd = InStr (closeStart + 1, temp, & # 8220; & lt; ")
lance = Mid (temp, bidStart, bidEnd & # 8211; bidStart)
ask = Mid (temp, askStart, askEnd & # 8211; askStart)
ropen = Mid (temp, openStart, openEnd & # 8211; openStart)
rclose = Mid (temp, closeStart, closeEnd & # 8211; closeStart)
Se rateType = & quot; ask & quot; Então.
ElseIf rateType = & quot; lance & quot; Então.
ElseIf rateType = & quot; open & quot; Então.
ElseIf rateType = & quot; close & quot; Então.
Função ExecuteWebRequest (ByVal url As String) As String.
Dim oXHTTP como objeto.
Definir oXHTTP = CreateObject (& # 8220; MSXML2.XMLHTTP & # 8221;)
oXHTTP. Open & # 8220; GET & # 8221 ;, url, False.
Definir oXHTTP = Nada.
Eu apenas tentei o novo código, mas ele pára com um erro de compilação na linha:
i1 = (i - 1) * 500 + 1.
Não tenho certeza por que essa macro não está funcionando mais.
Talvez haja uma mudança na estrutura dos dados do Yahoo.
Você se importaria de atualizá-lo por favor?
com certeza, está na minha lista de tarefas.
Espero que você possa encontrar a correção em breve. Seu código é incrível e super útil. Eu tenho usado isso há quase 4 anos e gostaria de continuar usando isso.
Seu código é ótimo, quando você acha que irá corrigi-lo?
Obter através da App Store Leia esta publicação em nosso aplicativo!
Como faço para obter taxas de câmbio através de uma API, como o Google Finance? [fechadas]
Agora, encontrei a Google Finance API e comecei a analisar isso, mas eu encontrei muitas informações sobre carteiras, transações, posições e outras coisas sobre as quais não sei.
Estou olhando os documentos errados? O que eu preciso fazer para obter uma alimentação das taxas de câmbio da GF? Isso é mesmo possível?
Para tornar as coisas um pouco mais claras. Eu não estou interessado em coisas técnicas nem eu quero nenhum código.
fechado como fora do tópico por George Stocker & # 9830; 27 de fevereiro às 14h12.
Esta pergunta parece ser fora do tópico. Os usuários que votaram para fechar deram esse motivo específico: "Questões que nos pedem para recomendar ou encontrar uma ferramenta, biblioteca ou recurso off-site favorito são off-topic para o estouro de pilha, pois eles tendem a atrair respostas de opinião e spam. Em vez disso, descreva o problema e o que foi feito até agora para resolvê-lo. & Quot; & ndash; George Stocker Se esta questão pode ser reformulada para se adequar às regras da ajuda, edite a questão.
bloqueado por George Stocker & # 9830; 29 de agosto às 14h22.
As respostas da pergunta são um esforço colaborativo: se você vê algo que pode ser melhorado, basta editar a resposta para melhorá-lo! Nenhuma resposta adicional pode ser adicionada aqui.
10 Respostas.
Obrigado por todas as suas respostas.
Para a posteridade aqui estão junto com outras respostas possíveis:
Yahoo Finance API Discontinued 2017-11-06.
Discontinuado a partir de 2017-11-06 com mensagem.
Chegou à nossa atenção que este serviço está sendo usado em violação dos Termos de Serviço do Yahoo. Como tal, o serviço está sendo descontinuado. Para todos os futuros mercados e pesquisa de dados de ações, consulte finance. yahoo.
Este CSV estava sendo usado por um plugin jQuery chamado Curry. Curry tem desde (2017-08-29) movido para usar fixer. io em vez disso devido a problemas de estabilidade. Pode ser útil se você precisar de mais do que apenas um CSV.
(graças ao Keyo) O Yahoo Query Language permite que você obtenha todo um monte de moedas ao mesmo tempo em XML ou JSON. As atualizações de dados pelo segundo (enquanto o Banco Central Europeu possui dados antigos), e pára no fim de semana. Não requer nenhum tipo de inscrição.
Aqui está o construtor de consulta YQL, onde você pode testar uma consulta e copiar a URL:
API de Taxas de Câmbio de Fonte Aberta.
Alterar "base" (de "USD") não é permitido na conta gratuita.
currencylayer API.
Plano gratuito para 1.000 acessos mensais.
Alterar "fonte" (de "USD") não é permitido na conta gratuita.
Alimentação do Banco Central Europeu.
Fixer. io API (dados do Banco Central Europeu)
Aqui está outra API JSON (P) baseada na API do Google (fonte: este comentário):
O Yahoo possui um recurso YQL para obter um monte de moedas ao mesmo tempo em XML ou JSON. Eu notei que os dados estão atualizados até o momento em que o BCE possui dados antigos e pára no fim de semana.
Aqui está o seu construtor de consultas, onde você pode testar uma consulta e copiar a URL:
O Banco Central Europeu (BCE) também possui o feed gratuito mais confiável que conheço. Contém cerca de 28 moedas e é atualizado pelo menos diariamente.
Se você precisa de uma API simples e gratuita para converter uma moeda para outra, experimente free. currencyconverterapi.
Disclaimer, eu sou o autor do site e eu uso isso para um dos meus outros sites.
O serviço é gratuito para uso mesmo para aplicações comerciais, mas não oferece garantia. Por razões de desempenho, os valores são atualizados apenas a cada 30 minutos.
Aqui estão algumas APIs de intercâmbio com o exemplo do PHP.
[Open Exchange Rates API]
Fornece 1.000 pedidos por mês grátis. Você deve se registrar e pegar o ID da aplicação. A moeda base USD para conta gratuita. Verifique as moedas suportadas e a documentação.
150 USD = 18039.09015 JPY.
[Currency Layer API]
Fornece 1.000 pedidos por mês grátis. Você deve se registrar e pegar a chave de acesso. A moeda base personalizada não é suportada na conta gratuita. Verifique a documentação.
150 USD = 18036.75045 JPY.
Se você está procurando uma solução baseada em Ruby para este problema, recomendo usar o método Google Calculator uma solução semelhante à seguinte: j. mp/QIC564.
Aqui está um script PHP simples que obtém taxa de câmbio entre GBP e USD.
As taxas de câmbio do Google não são precisas. O google em si diz ==> O Google não pode garantir a precisão das taxas de câmbio utilizadas pela calculadora. Você deve confirmar as taxas atuais antes de fazer qualquer transação que possa ser afetada pelas mudanças nas taxas de câmbio. As taxas de câmbio estrangeiras fornecidas pelo Citibank N. A. são exibidas sob licença. As taxas são apenas para fins informativos e estão sujeitas a alterações sem aviso prévio. As taxas de transações reais podem variar e o Citibank não está oferecendo para entrar em nenhuma transação, de qualquer forma exibida.
Além da geolocalização feita por IP (mas o IP é o IP do provedor, portanto, não é tão preciso), eles também retornam moedas e têm um conversor de moeda: veja exemplos.
Eles têm 111 moedas atualizadas.
Para todos os iniciantes que procuram alguma dica sobre a conversão de moeda, dê uma olhada neste link. Datavoila.
Isso ajudou muito no meu projeto em C #. Apenas no caso de o site desaparecer, vou adicionar o código abaixo. Basta adicionar as etapas abaixo para o seu próprio projeto. Desculpe pela formatação.
Yahoo Currency Exchange.
Conversor de moeda do Yahoo! Finança. Encontre as últimas taxas de câmbio e converta todas as principais moedas do mundo com o conversor de moeda.
No Yahoo Finance, você obtém cotações de ações gratuitas, notícias atualizadas, recursos de gerenciamento de portfólio, dados do mercado internacional, fóruns e taxas de hipoteca.
Yahoo! Finanças é uma propriedade de mídia que faz parte da rede do Yahoo! # 8217 ;. Ele fornece notícias, dados e comentários financeiros, incluindo cotações de ações, comunicados de imprensa, relatórios financeiros e programação original. Ele também oferece algumas ferramentas on-line para gerenciamento de finanças pessoais.
Melhor momento para investir no mercado de ações?
Esperando o melhor momento para investir no mercado de ações? Talvez quando você tiver algum dinheiro extra por aí e a questão inevitável surgir: você deve manter a iluminação de charutos com cem dólares de contas ou, o que diabos, coloque algum dinheiro no mercado?
OK, então talvez você não queime seus ganhos com rapidez. Mas considere isso: a única maneira pela qual a maioria das pessoas tem alguma esperança de criar riqueza real é investindo no mercado de ações. Claro, você poderia inventar algo incrível, começar uma empresa de bilhões de dólares ou ganhar a loteria, mas deixe-a enfrentar: suas chances são escassas.
Lento e estável é a próxima melhor opção para uma safada repentina ou um sucesso selvagem. Investir regularmente ao longo do tempo dá-lhe o controle sobre o seu destino & # 8212; ao contrário da esperança de acordar um dia como herdeiro de uma grande fortuna.
Se você sofre ansiedade por investir nos mercados, considere estes seis motivos convincentes para o qual você deve superá-lo. Consulte Mais informação!
Função de taxa de câmbio no Excel.
Esta planilha do Excel possui uma função VBA (UDF) que estimula as taxas de câmbio ao vivo do Yahoo Finance. Leia mais para a planilha gratuita do Excel e VBA.
A função Excel é perfeita para sempre que você precisa de uma conversão de moeda. Eu uso isso para acompanhar o valor da libra britânica de uma conta bancária dos EUA e do dólar canadense.
As taxas são recuperadas do Yahoo Finance, e são em tempo real (mas atrasadas em 15 ou 20 minutos).
A UDF é simples de usar. Aqui está a sintaxe.
Este é um exemplo de como usar o FXRate () no Excel para uma conversão de moeda entre GBP e USD.
Os dois primeiros argumentos são a moeda que você está convertendo e a moeda na qual você está convertendo. Estes são códigos de moeda de três letras (por exemplo, GBP para libras esterlinas ou CAD para dólares canadenses) inseridos como cordas. O terceiro argumento é um do & # 8220; close & # 8221 ;, & # 8220; open & # 8221 ;, & # 8220; lance & # 8221; ou & # 8220; pergunte & # 8221; (novamente como uma string). O preço de fechamento é o fechamento anterior.
O link para a planilha do Excel está na parte inferior desta postagem, mas aqui é o VBA.
Opção Função explícita FXRate (currency1 As String, currency2 As String, rateType As String) Como Double Dim str Como String Dim temp Como String Dim bidStart Como Long Dim BidEnd Como Long Dim askStart Como Long Dim askEnd Como Long Dim openStart Como Long Dim openEnd Como Dim Dim CloseStart As Long Dim closeEnd Como Long Dim lances como Double Dim ask As Double Dim ropen Como Double Dim rclose As Double str = & quot; finance. yahoo/q? S = & quot; & amp; currency1 & amp; currency2 & amp; & quot; X & quot; temp = ExecuteWebRequest (str) bidStart = InStr (temp, & quot; Bid: & quot;) bidEnd = InStr (bidStart, temp, & quot; & quot;) bid = Mid (temp, bidStart + 65, bidEnd - bidStart - 72) askStart = InStr (temp, & quot; Ask: & quot;) askEnd = InStr (askStart, temp & quot; & quot;) ask = Mid (temp, askStart + 65, askEnd - askStart - 72) openStart = InStr (temp, & quot; Open: "openEnd = InStr (openStart, temp," quot; "ropen = Mid (temp, openStart + 38, openEnd - openStart - 38) closeStart = InStr (temp, & quot; Close Close: & quot;) closeEnd = InStr ( closeStart, temp, "quot;") rclose = Mid (temp, closeStart + 44, closeEnd - closeStart - 44) Se rateType = "perguntar & quot; Então FXRate = peça ElseIf rateType = & quot; lance & quot; Então FXRate = lance ElseIf rateType = & quot; open & quot; Então FXRate = ropen ElseIf rateType = & quot; close & quot; Então FXRate = rclose End If End Function Função ExecuteWebRequest (ByVal url As String) Como String Dim oXHTTP como objeto Se InStr (1, url, "quot ;," 1) & lt; & gt; 0 Então url = url & amp; & quot; & amp; cb = & quot; & amp; Timer () * 100 Else url = url & amp; "cb =" & amp; Timer () * 100 End If Set oXHTTP = CreateObject ("MSXML2.XMLHTTP") oXHTTP. Open "GET", url, Falso oXHTTP. send ExecuteWebRequest = oXHTTP. responseText Defina oXHTTP = Nothing End Function.
ExecuteWebRequest () foi copiado e modificado a partir daqui. ExecuteWebRequest () recupera o HTML de uma página da Web, enquanto o FXRate () processa o HTML para extrair as taxas de câmbio.
Tenha em mente que FXRate () raspa os dados do Yahoo Finance com algum processamento de string simples. Então, se a estrutura dos dados no Yahoo Finance for alterada, essa função pode não funcionar mais. Deixe-me saber se isso acontece, e eu atualizarei o VBA para que ele funcione novamente.
Se você quer taxas de conversão de moeda histórica durante um período, verifique esta planilha. Você também pode usar um QueryTable para extrair as taxas de câmbio.
Deixe um comentário se tiver dúvidas ou comentários.
27 pensamentos sobre & ldquo; Função de taxa de câmbio no Excel & rdquo;
Obrigado por este modelo acessível. Achei muito útil, mas parece que há um problema com a conversão de dólares de Hong Kong.
Eu verifiquei que a abreviatura de dólares de Hong Kong no Yahoo Finance é HKD.
Aprecio se você pode me informar se consertar isso.
Não tenho certeza exatamente o que você está fazendo, mas a seguinte conversão de USD para HKD funciona para mim (HKD é reconhecida como uma abreviatura)
Parece que este modelo não está funcionando mais. Eu usei na semana passada e funcionou perfeitamente (e foi uma ótima ferramenta UDF, graças!).
Algum por que o yahoo mudaria sua codificação?
Apenas tentei a planilha e ainda funciona.
A função quebra quando as localizações das buscas de substring excedem o valor máximo 32767 para o tipo de dados Integer. Se você alterar as declarações para bidStart, bidEnd, etc. para Long em vez de Integer, a função funcionará de forma confiável quando o comprimento da variável Temp for extremamente grande. Para uma página retornada hoje, o comprimento da variável Temp foi 76104 com o bidStart igual a 33422. As declarações longas permitem que a função funcione novamente conforme o esperado.
Obrigado! I & # 8217; mudou o tipo de dados para Long na VBA e na planilha eletrônica. Muito apreciado!
Obrigado pelo código acima. Estou tendo problemas com a posição das taxas fx na fonte HTML.
Estou tentando recuperar a taxa FPS GBPSGD.
Abaixo estão as posições para o & # 8220; lance & # 8221; (o primeiro preço que o código procura na fonte html)
bidStart + 65 = 31245.
bidEnd & # 8211; bidStart & # 8211; 72 = -72.
Então, porque o bidStart e o BidEnd são os mesmos, a função Mid pode encontrar a taxa de lance.
Por que você faz a posição bidEnd procurando por & # 8220; & # 8221; ?
Acabei de tentar usar a função FXRate () na planilha para aproveitar a taxa de câmbio GBPSGD com.
Parece que funciona bem # 8211; A UDF corretamente arranca o preço da oferta da Yahoo Finance.
> Então, porque o bidStart e o BidEnd são os mesmos, a função Mid não consegue encontrar a taxa de lances.
Parece encontrar a taxa de lance para mim.
Oi Samir, se eu estivesse faltando o motivo óbvio por que você definiu a posição do bidEnd & # 8217; s na fonte usando & # 8220; & # 8221; você pode me dar um ponteiro? 🙂
Este ótimo modelo tinha funcionado para mim até algumas semanas atrás. Eu não mudei nada recentemente, mas agora apenas relata & # 8220; #VALUE! & # 8221; na célula e o mouse sobre o pequeno ícone de erro diz & # 8220; Um valor usado na fórmula é do tipo de dados incorreto & # 8221 ;. Alguma sugestão sobre como resolver isso? obrigado.
Algo mudou na estrutura do Yahoo.
Mas eu concordo que começando com bidStart e terminando com CloseEnd, eles deveriam ser muito melhores.
Além disso, isso pode funcionar melhor:
bid = Mid (temp, bidStart + 65, bidEnd & # 8211; bidStart & # 8211; 72)
ask = Mid (temp, askStart + 65, askEnd & # 8211; askStart & # 8211; 72)
openEnd = InStr (openStart, temp, & # 8220; & # 8221;)
ropen = Mid (temp, openStart + 38, openEnd & # 8211; openStart & # 8211; 38)
closeStart = InStr (temp, & # 8220; Close Anterior: & # 8221;)
closeEnd = InStr (closeStart, temp, & # 8220; & # 8221;)
rclose = Mid (temp, closeStart + 44, closeEnd & # 8211; closeStart & # 8211; 44)
Função FXRate (currency1 As String, currency2 As String, rateType As String) como Double.
Dim url As String.
Resposta Dim como String.
FXRate = GetValue (resposta, & # 8220; Ask: & # 8221;)
ElseIf rateType = & # 8220; lance & # 8221; Então.
FXRate = GetValue (resposta, & # 8220; Bid: & # 8221;)
ElseIf rateType = & # 8220; abrir & # 8221; Então.
FXRate = GetValue (resposta, & # 8220; Abrir: & # 8221;)
ElseIf rateType = & # 8220; fechar & # 8221; Então.
FXRate = GetValue (resposta, & # 8220; Close Anterior: & # 8221;)
Função GetValue (ByVal temp As String, ByVal label As String) As Double.
Dim strStart As Long.
Dim strand como longo.
strStart = InStr (temp, & # 8220; Close Anterior: & # 8221;)
GetValue = Mid (temp, strStart + 2, strEnd & # 8211; strStart & # 8211; 2)
Função ExecuteWebRequest (ByVal url As String) As String.
Dim oXHTTP como objeto.
Definir oXHTTP = CreateObject (& # 8220; MSXML2.XMLHTTP & # 8221;)
oXHTTP. Open & # 8220; GET & # 8221 ;, url, False.
Definir oXHTTP = Nada.
Existe uma maneira de obter um único valor (diga & # 8220; lance & # 8221;) em uma célula definida? Eu só preciso do comércio mais recente para ser empurrado para uma célula.
Isso não funciona para mim. Ou o código original ou a atualização de anônimos em 22 de janeiro de 2014.
Eu tentei usar essa conversão, mas já não está funcionando ou não deixando mais um valor de resultado.
Eu usei antes de uma função semelhante: (veja abaixo), mas quando eu uso o abaixo e convertei de IDR para EUR, dê uma conversão de 5 euros em vez de 3.5Euro (o que eu recebo quando eu entrar em linha com o conversor do Yahoo)
Então eu procurei uma solução melhor e veio do seu lado, no entanto, nenhum resultado é dado:
Função YahooCurrencyConverter (ByVal strFromCurrency, ByVal strToCurrency, Opcional ByVal strResultType = & # 8220; Valor & # 8221;)
Em Erro Ir para ErrorHandler.
Dim strURL As String.
Dim objXMLHttp As Object.
Dim stres como String, dblRes As Double.
Defina objXMLHttp = CreateObject (& # 8220; MSXML2.ServerXMLHTTP & # 8221;)
& # 8216; strURL = & # 8220; finance. yahoo/d/quotes. csv? E =.csv & amp; f = c4l1 & amp; s = & # 8221; & amp; strFromCurrency & amp; strToCurrency & amp; & # 8220; = X & # 8221;
strURL = & # 8220; finance. yahoo/q? s = & # 8221; & amp; strFromCurrency & amp; strToCurrency & amp; & # 8221; = X & # 8221;
& # 8216; Enviar solicitação XML.
.setRequestHeader & # 8220; Content-Type & # 8221 ;, & # 8220; aplicação / x-www-form-URLEncoded & # 8221;
Selecione Case strResultType.
Case & # 8220; Value & # 8221 ;: YahooCurrencyConverter = dblRes.
Case Else: YahooCurrencyConverter = & # 8220; 1 & # 8221; & amp; strFromCurrency & amp; & # 8221; = & # 8221; & amp; dblRes & amp; & # 8221; & # 8221; & amp; strToCurrency.
Defina objXMLHttp = Nothing.
Por favor alguém pode me ajudar?
Preciso de uma planilha de excel para mostrar as taxas de câmbio em uma data específica.
Exemplos: taxa de câmbio de USD para GBP em 10 de outubro de 2014.
Taxa de câmbio de USD para BRL em 10 de outubro de 2014.
Eu acho que poderia ser uma função, por exemplo:
Isso é possível?
O outro é que ele deve funcionar com o meu laptop excel do Brasil, que usa, como separador decimal (International Units System)
Desde já, obrigado!
Junto com a taxa de câmbio aberta (que é a única parte que estou usando), eu também gostaria de extrair a data de troca em uma célula.
Você pode sugerir algo?
Isso ainda funciona? Porque não parece estar funcionando quando eu uso isso?
Caro todos, funcionou bem até o final de dezembro de 2016. Parece que o Yahoo mudou algo em seu site. Alguém poderia analisar o código e dar uma solução sobre o que precisa ser alterado, obrigado.
Este código ajustado parece funcionar. Eu não testei com todos os combos possíveis, mas funcionou para os poucos que eu testei!
Função FXRate (currency1 As String, currency2 As String, rateType As String) como Double.
Dim str As String.
Dim temp As String.
Dim bidStart As Long.
Dim bidEnd As Long.
Dim askStart As Long.
Dim askEnd As Long.
Dim openStart As Long.
Dim openEnd As Long.
Dim closeStart As Long.
Dim closeEnd As Long.
Dim lance As Double.
Dim ask As Double.
Dim ropen As Double.
Dim rclose As Double.
Dim i As Long, i1 As Long, i2 As Long.
Dim myArray () como variante.
ReDim myArray (1 a Len (temp) / 500)
Para i = 1 Para Len (temp) / 500.
Se (i2 & gt; Len (temp)) Então i2 = Len (temp)
myArray (i) = Mid (temp, i1, 500)
bidEnd = InStr (bidStart + 1, temp, & # 8220; & # 8221;) + 4.
askEnd = InStr (askStart + 1, temp, & # 8220; & # 8221;) + 7.
openEnd = InStr (openStart + 1, temp, & # 8220; & # 8221;) + 7.
closeEnd = InStr (closeStart + 1, temp, & # 8220; & lt; ")
lance = Mid (temp, bidStart, bidEnd & # 8211; bidStart)
ask = Mid (temp, askStart, askEnd & # 8211; askStart)
ropen = Mid (temp, openStart, openEnd & # 8211; openStart)
rclose = Mid (temp, closeStart, closeEnd & # 8211; closeStart)
Se rateType = & quot; ask & quot; Então.
ElseIf rateType = & quot; lance & quot; Então.
ElseIf rateType = & quot; open & quot; Então.
ElseIf rateType = & quot; close & quot; Então.
Função ExecuteWebRequest (ByVal url As String) As String.
Dim oXHTTP como objeto.
Definir oXHTTP = CreateObject (& # 8220; MSXML2.XMLHTTP & # 8221;)
oXHTTP. Open & # 8220; GET & # 8221 ;, url, False.
Definir oXHTTP = Nada.
Oops & # 8211; deixado em algum código de depuração. Você pode excluir essas coisas:
ReDim myArray (1 a Len (temp) / 500)
Para i = 1 Para Len (temp) / 500.
i1 = (i - 1) * 500 + 1.
Se (i2 & gt; Len (temp)) Então i2 = Len (temp)
myArray (i) = Mid (temp, i1, 500)
Grrr! Moderador & # 8211; elimine os comentários acima. O corte e a pasta não funcionaram corretamente e deixaram algum código. Espero que o que está abaixo seja completo e correto. Obrigado!
Função FXRate (currency1 As String, currency2 As String, rateType As String) como Double.
Dim str As String.
Dim temp As String.
Dim bidStart As Long.
Dim bidEnd As Long.
Dim askStart As Long.
Dim askEnd As Long.
Dim openStart As Long.
Dim openEnd As Long.
Dim closeStart As Long.
Dim closeEnd As Long.
Dim lance As Double.
Dim ask As Double.
Dim ropen As Double.
Dim rclose As Double.
Dim i As Long, i1 As Long, i2 As Long.
ReDim myArray (1 a Len (temp) / 500)
Para i = 1 Para Len (temp) / 500.
Se (i2 & gt; Len (temp)) Então i2 = Len (temp)
myArray (i) = Mid (temp, i1, 500)
bidEnd = InStr (bidStart + 1, temp, & # 8220; & # 8221;) + 4.
askEnd = InStr (askStart + 1, temp, & # 8220; & # 8221;) + 7.
openEnd = InStr (openStart + 1, temp, & # 8220; & # 8221;) + 7.
closeEnd = InStr (closeStart + 1, temp, & # 8220; & lt; ")
lance = Mid (temp, bidStart, bidEnd & # 8211; bidStart)
ask = Mid (temp, askStart, askEnd & # 8211; askStart)
ropen = Mid (temp, openStart, openEnd & # 8211; openStart)
rclose = Mid (temp, closeStart, closeEnd & # 8211; closeStart)
Se rateType = & quot; ask & quot; Então.
ElseIf rateType = & quot; lance & quot; Então.
ElseIf rateType = & quot; open & quot; Então.
ElseIf rateType = & quot; close & quot; Então.
Função ExecuteWebRequest (ByVal url As String) As String.
Dim oXHTTP como objeto.
Definir oXHTTP = CreateObject (& # 8220; MSXML2.XMLHTTP & # 8221;)
oXHTTP. Open & # 8220; GET & # 8221 ;, url, False.
Definir oXHTTP = Nada.
Eu apenas tentei o novo código, mas ele pára com um erro de compilação na linha:
i1 = (i - 1) * 500 + 1.
Não tenho certeza por que essa macro não está funcionando mais.
Talvez haja uma mudança na estrutura dos dados do Yahoo.
Você se importaria de atualizá-lo por favor?
com certeza, está na minha lista de tarefas.
Espero que você possa encontrar a correção em breve. Seu código é incrível e super útil. Eu tenho usado isso há quase 4 anos e gostaria de continuar usando isso.
Seu código é ótimo, quando você acha que irá corrigi-lo?
No comments:
Post a Comment