Taxas de forex ao vivo em excel

Taxas Forex em tempo real no Excel.
Obtenha taxas de câmbio ao vivo em tempo real no Excel com esta planilha gratuita. As citações são atrasadas em cerca de 15 ou 20 minutos, mas são atualizadas a cada minuto ou mais.
Tudo está automatizado no VBA. O VBA pode ser visualizado e modificado. As porcas e parafusos do código são um QueryTable que extrai as taxas de forex mais recentes do finance. yahoo para as duas moedas especificadas.
Tudo o que você precisa fazer é digitar dois códigos de moeda de três letras e clicar em um botão (você pode encontrar uma lista de códigos de moeda aqui).
A VBA então baixa as taxas de câmbio mais recentes do Yahoo no Excel, usando uma tabela de consulta.
O Excel, em seguida, baixa as taxas de lances / pedidos anteriores, abertas e atuais anteriores para o par de moedas. Ao clicar no botão, atualiza as cotações com os valores mais recentes.
Atualização em tempo real atualizada automaticamente no Excel.
Agora, aqui é onde podemos ser inteligentes e obter o Excel para atualizar automaticamente as taxas de câmbio ao vivo.
1. Selecione o QueryTable como mostrado abaixo, clique com o botão direito do mouse e selecione Propriedades do intervalo de dados.
2. No menu Propriedades do intervalo de dados externos, coloque uma verificação na opção Atualizar cada opção e escolha um horário de atualização (você só pode escolher um número inteiro de minutos). Agora, clique em OK.
O Excel agora atualiza os dados no QueryTable automaticamente, sem que você precise clicar em botões ou executar macros. Legal, eh?
Eu uso uma variante desta planilha para acompanhar o valor da libra esterlina da minha poupança externa. Você pode, por exemplo, modificar o VBA para baixar as taxas Forex para muitos pares de moedas (deixe-me saber se você quer essa planilha).
Outra planilha do Excel recupera as taxas de câmbio históricas diárias entre duas datas.
9 pensamentos sobre & ldquo; Taxas Forex em tempo real no Excel & rdquo;
Eu appriciate seu site.
mas em vez de adicionar 40 perguntas, basta salvar um arquivo. iqy e alterar a consulta para:
e atribua uma célula de entrada a este parâmetro (data-connections-properties-definition).
Não foi necessário vba e combinado com offset, etc., uma ferramenta muito útil.
Houve um erro de formatação no meu comentário anterior.
Isso é muito útil. Estou executando o Excel 2013 e tentei copiar a folha, mas tinha linhas e colunas diferentes para copiar as células para o meu caderno de trabalho, mas obter um erro de tempo de execução 1004.
Idealmente, eu gostaria de ter 3 conversões em uma única folha no final do meu caderno de trabalho financeiro para que eu possa capturar as taxas de câmbio em reais / EUR / GBP, AUD / GBP e EURO / GBP. Como eu faço isso?
Obrigado pela sua ajuda, Anthony.
Eu recebendo a seguinte mensagem de erro:
Não foi possível abrir finance. yahoo/q? s=USDCAD=X. Não é possível baixar as informações que você solicitou.
Eu quero exportar o lance e o pedido para outro aplicativo que aceita DDE (Dynamic Data Exchange). Como faço isso?
Faço tudo por mim. Eu não posso pesquisar ou nada, então eu confio em pessoas que trabalham arduamente para me fornecer algo de grande valor para absolutamente nada, da bondade de seus corações e sem esforço da minha parte. Corrija MEUS problemas para mim!
Grande planilha eletrônica! Isso será muito útil para mim e agradeço o seu trabalho árduo. Posso ter alguns problemas com isso funcionando, mas eu vou corrigi-lo sozinho. Obrigado!
Ótimo código! Funciona lindamente.
Você também pode compartilhar o par de moedas múltiplas XLS?
Ei, obrigado por isso! Salve uma tonelada de tempo 🙂
Muito bom código & # 8230;; mas eu estou enfrentando algum problema .. (eu não sou um programador ... 🙁 & # 8230;) e fiquei preso ... Eu tentei adicionar o segundo par de taxas (USD e BRL) simplesmente copiando a tabela em outra folha alterando o nome da folha & # 8230; e a Macro imediatamente caiu ... Você certamente definiu o nome da folha na Macro & # 8230; mas não consegui modificá-la ..
Você será tão gentil de me ajudar e # 8230 e me enviará a macro corrigida?
Desculpe ser tão insolente ... mas eu realmente não sei como sair ...

Taxas de Forex ao vivo em excel
Obter através da App Store Leia esta publicação em nosso aplicativo!
Fórmula para taxas de câmbio atualizadas no Excel ou outras planilhas?
Que tipos de planilhas suportam uma fórmula como a seguinte:
O resultado deve ser de 3000 USD trocados em Euros. Possivelmente, uma data poderia ser fornecida para uma taxa de câmbio histórica. Alternativamente, a média para o último mês ou assim.
Gostaria de usar esse recurso o tempo todo e tem que ser relevante para tantos outros usuários. Eu prefiro trabalhar no Excel, mas planilhas em linha como Google ou Zoho também estão bem.
10 Respostas.
No Google Spreadsheets, obter taxas de câmbio atuais é muito fácil com a função de consulta incorporada do Google Finance. E. g, para obter a taxa atual para USD / EUR:
Aqui estão algumas opções para você:
GOOGLE SPREADSHEETS.
Existe um script do Google Spreadsheet que retorna a taxa de câmbio entre o EURO e uma moeda que você especifica. Os dados são supostamente do Banco Central Europeu.
Abra uma planilha do Google Docs.
Clique em Inserir> Script> Procurar por ECBExchangeRate.
** Com cotações na data.
Isto irá devolver a taxa de câmbio entre USD e EUR para a data dd / mm / aaaa. Infelizmente, a fonte de dados não é atualizada.
Calculando entre 2 Moedas:
Por exemplo, queremos obter a taxa USD / JPY para hoje. Obtenha EUR / USD e EUR / JPY usando a fórmula acima. Divida a taxa EUR / JPY pela taxa EUR / USD. Você obtém USD / JPY.
Não acredito que exista tal função para o Excel (pelo menos, por padrão). No entanto, você pode configurar uma folha que importa dados de uma tabela de taxas de câmbio on-line como a da página de Finanças do Yahoo (finance. yahoo> Investir> Moedas> Investimentos de moedas> Taxas cruzadas).
Você pode então configurar uma fórmula VLOOKUP ou INDEX / MATCH para obter as taxas de câmbio relevantes para você.
Crie uma nova folha (recomendada).
Clique em Dados> Na Web> Digite o seguinte URL:
Clique na seta amarela ao lado da tabela de taxa de câmbio. A seta deve se transformar em uma marca de verificação verde. Clique em Importar.
Clique em Propriedades. Em Refresh Control, especifique com que frequência você deseja que o Excel recupere novos dados ou escolha Atualizar dados ao abrir o arquivo. Clique em OK e espere que o Excel carregue os dados.
Para atualizar os dados, basta clicar em Ctrl-Alt-F5.
Aqui está uma amostra de planilha eletrônica:
Os dados da Página de Finanças do Yahoo são bastante limitados, mas cobrem as moedas mais populares. Você pode usar outras fontes, como:
O site xe / ucc / tem tabelas de taxas históricas que você pode consolidar.
Baixe dados no formato CSV do Yahoo Finances e importe-o para o Excel como uma consulta.
Como importar os dados do Yahoo Finances para o Excel?
Vá para Dados → Da Web.
Pressione Carregar. A nova folha com os dados necessários será automaticamente criada.
Você pode ocultar o cabeçalho e o estilo da célula, desmarcando as linhas de cabeçalho e as bandas, respectivamente.
Isso é tudo, agora você tem uma célula com os dados desejados. Você pode se referir à célula como a qualquer outra célula no Excel.
O URL no exemplo acima contém o fragmento & amp; f = b, o que significa lance. Para os parâmetros detalhados dos dados da consulta do Yahoo Finances, consulte: financialwisdomforum / gummy-stuff / Yahoo-data. htm.
Esta planilha do Excel se conecta a um serviço da Web (Oanda) para baixar automaticamente as taxas de câmbio históricas.
A VBA está exposta, então você pode cortar o código que escrevi. Você deve ser capaz de criar uma função como.
que usa uma taxa de câmbio média de 30 dias ou algo assim.
Eu tenho usado o plug-in abaixo por algum tempo. Funciona muito bem para mim. Ele usa o Yahoo API e o site de dinheiro do MSN para obter taxas de câmbio ao vivo no Excel expostas como funções personalizadas. ou seja, = Fx_Convert (100, "USD", "EUR")
Você pode usar a função GOOGLEFINANCE incorporada que obtém informações de títulos atuais ou históricos da Google Finance. Você pode usá-lo com a seguinte sintaxe:
Você pode usar Spearian para MS Excel, spearianforexcel, para trabalhar e baixar todo o histórico de qualquer taxa de câmbio. É muito confortável para obter acesso a todos os principais dados do mercado, incluindo o Yahoo Finance!
Existe uma ferramenta de conversão de moeda gratuita disponível para excel que converte entre mais de 160 moedas. A versão pro também pode usar dados históricos:
Existe uma UDF do Excel que corrige os dados da taxa de câmbio do Yahoo Finance aqui.
Esta é a sintaxe.
Então, para converter 30 GBP para USD, você escreveria.
Eu acho que é isso que você queria.
Você não encontrará nada construído em qualquer planilha para algo que muda constantemente como as taxas de câmbio. Felizmente, há soluções já existentes que já criaram para esse tipo de coisa, como WikiHow, Yahoo Answers, OzGrid, EHow.
Existem muitas outras soluções, mas a maioria deles segue os mesmos padrões gerais de design. Se nenhum dos links acima for o que você procura, sugiro pesquisar no site OzGrid. Os fóruns são muitas vezes um dos melhores para encontrar soluções do Excel.

Como criar um conversor de moeda com o Microsoft Excel.
Este wikiComo ensina como criar uma calculadora de conversão de moeda usando o Microsoft Excel. Se você quiser simplesmente converter um valor de moeda para o valor de outra moeda, você pode usar a fórmula de multiplicação do Excel para aplicar a taxa de conversão aos dados existentes, que é um processo simples. Se você estiver usando um computador com Windows, você também pode instalar o plugin do Kutools para converter grandes quantidades de valores de moeda com taxas de conversão atualizadas; Este processo é mais avançado, mas também é mais preciso.
Steps Edit.
Método um dos dois:
Método Dois dos Dois:
Usando o Kutools for Excel Edit.
Você está ajudando as pessoas lendo o wiki.
A missão de wikiHow é ajudar as pessoas a aprender, e esperamos que este artigo o ajude. Agora você está ajudando os outros, apenas visitando o wiki.
World Possible é uma organização sem fins lucrativos com a missão de conectar aprendentes off-line ao conhecimento do mundo. Eles trabalham para garantir que qualquer pessoa possa acessar os melhores recursos educacionais da web a qualquer hora e em qualquer lugar, mesmo que não tenham uma conexão com a Internet.
Clique abaixo para nos informar que você lê este artigo, e wikiHow vai doar para o Mundo Possível em seu nome. Obrigado por nos ajudar a alcançar a nossa missão de ajudar todos a aprender a fazer qualquer coisa.
Community Q & amp; A.
Warnings Edit.
Related wikiHows Edit.
Troque dinheiro no Reino Unido.
Converta arquivos do Microsoft Money para arquivos do Microsoft Excel.
Adicione duas células já contendo soma de outras fórmulas.
Recupere um arquivo Excel corrompido.
Faça uma decisão usando um sistema de pontuação quantitativa.

Taxas de câmbio ao vivo no Excel.
Taxas de câmbio ao vivo no Excel.
Re: Taxas de câmbio ao vivo no Excel.
Re: Taxas de câmbio ao vivo no Excel.
Dados> Importar dados externos> Nova consulta da Web.
Re: Taxas de câmbio ao vivo no Excel.
Direitos autorais e cópia; 2018 vBulletin Solutions, Inc. Todos os direitos reservados.
vBulletin Optimization fornecido pelo vB Optimize (Pro) - vBulletin Mods & amp; Addons Copyright & copy; 2018 DragonByte Technologies Ltd.
Botões de Feedback fornecidos por Advanced Post Obrigado / Curto (Pro) - vBulletin Mods & amp; Addons Copyright & copy; 2018 DragonByte Technologies Ltd.
Sistema de alerta de usuário fornecido pelo Advanced User Tagging (Pro) - vBulletin Mods & amp; Addons Copyright & copy; 2018 DragonByte Technologies Ltd.
Redirecionamento de usuários banidos fornecidos por Redirect Banned Users (Pro) - vBulletin Mods & amp; Addons Copyright & copy; 2018 DragonByte Technologies Ltd.
Todos os conteúdos Copyright 1998-2017 by MrExcel Publishing.

Taxas de Forex ao vivo em excel
Se você instalou o Kutools para Excel, você pode usar a Conversão de Moedas para adicionar a taxa de câmbio atual ao comentário, e quando precisar atualizar a taxa de câmbio, basta clicar em Taxa de atualização.
Teste grátis 60 dias de compra.
1. Selecione os valores que deseja converter para outra moeda e mostre a taxa de câmbio. Ver captura de tela:
3. Na caixa de diálogo Conversão de Moedas, especifique as moedas que deseja converter, aqui vou converter Euro para Dólar dos Estados Unidos. Ver captura de tela:
4. Em seguida, clique em Opções de preenchimento para especificar a opção de saída que você precisa. Ver captura de tela:
Nota: Se você quiser mostrar a taxa de câmbio, você só pode escolher Somente comentário ou Células e comentar.
5. Clique em Fechar & gt; Está bem . Agora, o resultado da conversão e a taxa de câmbio foram adicionados ao comentário.
Dica: você pode clicar em Revisar & gt; Mostrar todos os comentários para ver todos os comentários.
Se você deseja atualizar a taxa de câmbio, basta selecionar os dados novamente e aplicar a Conversão de Moedas, então especifique as moedas e clique em Atualizar taxa.
Em seguida, clique em OK e você pode ver todos os conteúdos do comentário atualizados.
Conversão de moeda.
Conversão de unidades.
Ferramentas de produtividade recomendadas.
Tabulação Office.
Traga guias úteis para o Excel e outros softwares do Office, como o Chrome, o Firefox e o novo Internet Explorer.
Kutools para Excel.
Surpreendente! Aumente sua produtividade em 5 minutos. Não precisa de habilidades especiais, economize duas horas por dia!
200 Novos recursos para o Excel, Faça o Excel muito fácil e poderoso:
Mesclar células / linhas / colunas sem perder dados. Combine e Consolide várias folhas e pastas de trabalho. Comparar intervalos, copiar intervalos múltiplos, converter texto para data, unidade e conversão de moeda. Contagem por cores, subtotais de paginação, classificação avançada e super filtro, mais Selecionar / Inserir / Excluir / Texto / Formato / Link / Comentário / Ferramentas / Ferramentas de planilhas.

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?