Forex Rates 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 é automatizado no VBA. O VBA pode ser visualizado e modificado. As porcas e parafusos do código é 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). O 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 bidask próximas, abertas e atuais anteriores para o par de moedas. Ao clicar no botão, atualiza as cotações com os valores mais recentes. Atualizado automaticamente em tempo real Forex no Excel Agora, aqui em que 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 automaticamente os dados no QueryTable, sem que você precise clicar em botões ou executar macros. Legal, eh uso uma variante desta planilha para acompanhar o valor da minha economia estrangeira. 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 Como as planilhas grátis Base de conhecimento mestre Posts recentes Função de taxa de câmbio estrangeira no Excel Esta planilha do Excel possui uma função VBA (UDF) que raspa as taxas de câmbio em tempo real do Yahoo Finance. Leia mais para a planilha gratuita do Excel e VBA. A função Excel é perfeita para sempre que você precisar de uma conversão de moeda. Eu uso isso para acompanhar o valor da libra esterlina 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 a sintaxe. FXRate (8220currency18221, 8220currency28221,8220close8221, 8220open8221, 8220bid8221, 8220ask8221) 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 conversão da moeda que você está convertendo e a conversão da moeda que 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 de 8220close8221, 8220open8221, 8220bid8221 ou 8220ask8221 (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 here8217s 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 As Long Dim openEnd As Long Dim closeStart As Long Dim closeEnd Como Long Dim lance Como Double Dim ask As Double Dim ropen Como Double Dim rclose As Double str quotfinance. yahooqsquot amp currency1 amp currency2 amp quotXquot temp ExecuteWebRequest (str) bidStart InStr (temp, quotBid: quot) bidEnd InStr (bidStart, temp, quotquot) bid Mid (temp, bidStart 65, bidEnd - bidStart - 72) askStart InStr (temp, quotAsk: quot) askEnd InStr (askStart, temp, quotquot) ask Mid (temp, askStart 65, askEnd - AskStart - 72) openStart InStr (temp, quotOpen: quot) openEnd InStr (openStart, temp, quotquot) ropen Mid (temp, openStart 38, openEnd - openStart - 38) closeStart InStr (temp, quotPrev Close: quot) closeEnd InStr (closeStart , Temp, quotquot) rclose Mid (temp, closeStart 4 4, closeEnd - closeStart - 44) Se rateType quotaskquot Então FXRate pedir ElseIf rateType quotbidquot Então FXRate lance ElseIf rateType quotopenquot Então FXRate ropen ElseIf rateType quotclosequot Então FXRate rclose End If End Function Função ExecuteWebRequest (ByVal url As String) Como String Dim oXHTTP As Object Se InStr (1, url, quotquot, 1) ltgt 0 Então url url amp quotampcbquot amp Timer () 100 Else url url amp quotcbquot amp Timer () 100 End If Set oXHTTP CreateObject (quotMSXML2.XMLHTTPquot) oXHTTP. Open quotGETquot, url, Falso oXHTTP. send ExecuteWebRequest oXHTTP. responseText Definir 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 () arranca 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 talvez não funcione mais. Deixe-me saber se isso acontece e atualizei a VBA para que ela funcione novamente. Se desejar 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. 18 pensamentos sobre ldquo Função de taxa de câmbio no Excel rdquo 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 I8217ve mudou o tipo de dados para Long no VBA e na planilha eletrônica. Muito apreciado Obrigado pelo código acima. I8217m tendo problemas com a posição das taxas de fx na fonte HTML. I8217m tentando recuperar a taxa FPS GBPSGD. Abaixo estão as posições para o 8220bid8221 (o primeiro preço que o código procura na fonte html) bidStart31180 bidEnd 31180 bidStart 65 31245 bidEnd 8211 bidStart 8211 72 -72 Então, como o bidStart eo BidEnd são os mesmos, a função Mid can8217t encontra a taxa de lance . Por que você faz a posição bidEnd procurando por 82208221 bidEnd InStr (bidStart, temp, 82208221) I8217ve só tentou usar a função FXRate () na planilha para pegar a taxa de câmbio GBPSGD com Ele parece funcionar bem 8211 a UDF corretamente raspa o lance Preço do 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 lance. Parece achar a taxa de lance para mim, tentei usar essa conversão, mas 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 estou online para o lado do 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 8220Value8221) On Error GoTo ErrorHandler 8216Init Dim strURL como String Dim objXMLHttp como objeto Dim strRes como String, dblRes como Double Set objXMLHttp CreateObject (8220MSXML2.ServerXMLHTTP8221) 8216strURL 8220finance. yahoodquotes. csve. csvampfc4l1amps8221 amp strFromCurrency amp strToCurrency amp 8220X8221 strURL 8220finance. yahooqs8221 amp strFromCurrency amp strToCurrency amp 8221 X8221 8216Send pedido XML Com objXMLHttp. Open 8220GET8221, strURL, False. setRequestHeader 8220Content-Type8221, 8220applicationx-www-form-URLEncoded8221.send strRes. responseText End Com 8216Parse resposta dblRes Val (Split (strRes, 8220,8221) (1)) Sel Ect Case strResultType Case 8220Value8221: YahooCurrencyConverter dblRes Case Else: YahooCurrencyConverter 82201 8221 amp strFromCurrency amplificador 8221 8221 amp dblRes amplificador 8221 8221 amplificador strToCurrency Final Selecionar CleanExit: Set objXMLHttp Nothing Exit Function ErrorHandler: YahooCurrencyConverter 0 GoTo CleanExit End Function Por favor, alguém pode me ajudar? Precisa 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. Penso que poderia ser uma função, por exemplo: FXRateatDate (currency1, currency2,8221Date8221) Isso é possível. O outro é que isso Deve trabalhar com o meu laptop excel do Brasil, que usa. Como separador decimal (Sistema de unidades internacionais) Obrigado antecipadamente VB funciona muito bem. 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 ele não parece estar funcionando quando eu uso isso. Eu tentei a seguinte fórmula: FXRate (8220EUR8221,8221USD8221,8221bid8221) e retornou 8220VALUE8221. Deixe uma resposta Cancelar resposta Como o Free Spreadsheets Master Knowledge Base Posts recentes