Live Forex Preise In Excel

Real-Time Forex Preise in Excel Holen Sie sich Echtzeit-Wechselkurse in Excel mit dieser kostenlosen Kalkulationstabelle. Die Anführungszeichen werden um ungefähr 15 oder 20 Minuten verzögert, aber werden jede Minute oder so aktualisiert. Alles ist in VBA automatisiert. Die VBA kann angesehen und geändert werden. Die Nüsse und Schrauben des Codes ist eine QueryTable, die die aktuellsten Devisenkurse aus finance. yahoo für die beiden angegebenen Währungen extrahiert. Alles, was Sie tun müssen, ist, geben Sie zwei Drei-Buchstaben-Währungscodes, und klicken Sie auf eine Schaltfläche (Sie können eine Liste der Währungscodes finden Sie hier). Die VBA lädt dann die neuesten Wechselkurse von Yahoo in Excel, mit einer Abfrage-Tabelle. Excel lädt dann die vorherigen close, open und aktuelle Bidask-Raten für das Währungspaar herunter. Durch erneutes Klicken auf die Schaltfläche werden die Zitate mit den aktuellsten Werten aktualisiert. Automatisch aktualisierte Echtzeit-Forex in Excel Nun, hier8217s wo können wir clever und erhalten Sie Excel automatisch aktualisiert die Wechselkurse live. 1. Wählen Sie die QueryTable aus, klicken Sie mit der rechten Maustaste und wählen Sie Data Range Properties. 2. Legen Sie im Menü External Data Range Properties (Eigenständiger externer Datenbereich) die Option Refresh jeder Option auf, und wählen Sie eine Aktualisierungszeit aus (Sie können nur eine ganzzahlige Anzahl von Minuten auswählen). Klicken Sie nun auf OK. Excel aktualisiert jetzt die Daten in der QueryTable automatisch, ohne dass Sie auf Schaltflächen klicken oder Makros ausführen müssen. Cool, eh Ich benutze eine Variante dieser Kalkulationstabelle, um den Sterling-Wert meiner ausländischen Einsparungen zu verfolgen. Sie können zum Beispiel die VBA ändern, um Forex-Tarife für viele Währungspaare herunterzuladen (lassen Sie mich wissen, ob Sie diese Kalkulationstabelle benötigen). Eine andere Excel-Tabelle ruft täglich historische Wechselkurse zwischen zwei Daten ab. 9 Gedanken auf ldquo Real-Time Forex Preise in Excel rdquo Wie die kostenlose Spreadsheets Master Knowledge Base Aktuelle BeiträgeForeign Exchange Rate-Funktion in Excel Diese Excel-Tabelle hat eine VBA-Funktion (UDF), die scharfe Live-Devisenkurse von Yahoo Finance. Lesen Sie für die kostenlose Excel-Kalkulationstabelle und VBA. Die Excel-Funktion ist perfekt, wenn Sie eine Währungsumrechnung benötigen. Ich benutze es, um den britischen Pfund Wert eines US-und kanadischen Dollar Bankkonto zu halten. Die Preise sind von Yahoo Finance gekratzt, und sind in Echtzeit (aber um 15 oder 20 Minuten verzögert). Die UDF ist einfach zu bedienen. Hier8217s die Syntax. FXRate (8220currency18221, 8220currency28221,8220close8221, 8220open8221, 8220bid8221, 8220ask8221) Dies ist ein Beispiel für die Verwendung von FXRate () in Excel für eine Währungsumrechnung zwischen GBP und USD. Die ersten beiden Argumente sind die Währung you8217re Umwandlung von und die Währung you8217re Umwandlung in. Dies sind drei Buchstaben-Währungscodes (z. B. GBP für britische Pfund oder CAD für kanadische Dollar), die als Strings eingegeben werden. Das dritte Argument ist eine von 8220close8221, 8220open8221, 8220bid8221 oder 8220ask8221 (wieder als String). Der nahe Preis ist der vorherige Abschluss. Die Verbindung zur Excel-Kalkulationstafel ist an der Unterseite dieses Pfostens, aber hier8217s die VBA. Option Explicit Function FXRate (currency1 Als String, Währung2 Als String, rateType Als String) Als Double Dim Str As String Dim temp Als String Dim bidStart As Long Dim bidEnd As Long Dim AskStart As Long Dim AskEnd As Long Dim OpenStart As Long Dim openEnd As Lange Dim closeStart As Long Dim closeEnd As Long Dim Gebot As Double Dim fragen As Double Dim ropen As Double Dim rclose As Double str quotfinance. yahooqsquot amp Währungen1 amp Währung2 amp quotXquot Temp ExecuteWebRequest (str) bidStart InStr (temp, quotBid: quot) bidEnd InStr (bidStart, temp, quotquot) bieten Mid (temp, 65 bidStart, bidEnd - bidStart - 72) askStart InStr (temp, quotAsk: quot) askEnd InStr (askStart, temp, quotquot) fragen Mid (temp, 65 askStart, 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 , Temperatur, quotquot) rclose Mid (temp, 44 closeStart, closeEnd - closeStart - 44) Wenn rateType quotaskquot Dann FXRate ElseIf rateType quotbidquot fragen Dann FXRate Gebot ElseIf rateType quotopenquot Dann FXRate ropen ElseIf rateType quotclosequot Dann FXRate rclose End If End Function Function ExecuteWebRequest ( ByVal url As String) As String Dim oXHTTP As Object If InStr (1, url, quotquot, 1) ltgt 0 Then url url amp quotampcbquot amp Timer () 100 Else url url amp quotcbquot amp Timer () 100 End If Set oXHTTP Create ( quotMSXML2.XMLHTTPquot) oXHTTP. Open quotGETquot, url, Falsch oXHTTP. send ExecuteWebRequest oXHTTP. responseText Set oXHTTP Nothing End Function ExecuteWebRequest () wurde von hier kopiert und modifiziert. ExecuteWebRequest () ruft das HTML einer Webseite ab, während FXRate () das HTML verarbeitet, um die Wechselkurse zu extrahieren. Beachten Sie, dass FXRate () die Daten von Yahoo Finanzen mit einer einfachen Textverarbeitung kratzt. Wenn sich die Struktur der Daten auf Yahoo Finance ändert, funktioniert diese Funktion möglicherweise nicht mehr. Lassen Sie mich wissen, wenn dies geschieht, und I8217ll Update der VBA, so dass es wieder funktioniert. Wenn Sie historische Währungsumrechnungskurse über einen Zeitraum wünschen, können Sie diese Kalkulationstabelle überprüfen. Sie können auch eine QueryTable verwenden, um Wechselkurse zu extrahieren. Hinterlassen Sie einen Kommentar, wenn Sie Fragen oder Kommentare haben. 18 Gedanken auf ldquo Devisenkurs Funktion in Excel rdquo Die Funktion bricht, wenn die Positionen der Substring-Suchvorgänge den 32767-Maximalwert für den Integer-Datentyp überschreiten. Wenn Sie die Deklarationen für bidStart, bidEnd usw. auf Long anstelle von Integer ändern, funktioniert die Funktion zuverlässig, wenn die Länge der Temp-Variablen extrem groß ist. Für eine heute zurückgegebene Seite war die Länge der Temp-Variable 76104 mit dem bidStart-Wert 33422. Mit den Long-Deklarationen kann die Funktion wieder wie erwartet funktionieren. Danke I8217ve änderte den Datentyp zu lang in der VBA und der Kalkulationstabelle. Vielen Dank für den oben stehenden Code. I8217m Probleme mit der Position der fx Preise in der HTML-Quelle. I8217m versuchen, die GBPSGD fx Rate abzurufen. Im Folgenden sind die Positionen für die 8220bid8221 (der erste Preis für die Codesuche in der HTML-Quelle) bidStart31180 bidEnd 31180 bidStart 65 31245 bidEnd 8211 bidStart 8211 72 -72, weil die bidStart und BidEnd die gleiche die Mid-Funktion can8217t die Geldkurs finden sind . Warum wollen Sie das bidEnd Position bei der Suche nach 82208221 bidEnd InStr (bidStart, temp, 82208221) I8217ve nur versucht, die FXRate () Funktion in der Tabelle mit dem GBPSGD Wechselkurs zu greifen mit Es scheint, kratzt das Gebot richtig die UDF Fein 8211 arbeiten Preis von Yahoo Finanzen. Also, weil die bidStart und BidEnd sind die gleichen die Mid-Funktion kann nicht finden, die Bid-Rate Scheint, um die Bid-Rate für mich Ich habe versucht, diese Umwandlung zu verwenden, ist aber nicht mehr arbeiten oder geben nicht mehr ein Ergebnis Wert. Ich habe vor ähnlicher Funktion: (siehe unten). Aber wenn ich die unten ein und konvertieren von IDR in EUR gibt es 5 Euro Umwandlung statt 3,5 Euro (was ich bekomme, wenn ich online gehen, um die Yahoo-Konverter Seite) Also suchte ich für eine bessere Lösung und kam auf Ihrer Seite, jedoch kein Ergebnis gegeben: Funktion YahooCurrencyConverter (ByVal strFromCurrency, ByVal strToCurrency, Optional ByVal strResultType 8220Value8221) On Error GoTo Fehlerbehandler 8216Init Dim strURL As String Dim objXMLHttp As Object Dim strRes As String, dblRes As Double Set objXMLHttp Create (8220MSXML2.ServerXMLHTTP8221) 8216strURL 8220finance. yahoodquotes. csve. csvampfc4l1amps8221 amp strFromCurrency amp strToCurrency amp 8220X8221 strURL 8220finance. yahooqs8221 amp strFromCurrency amp strToCurrency amp 8221 X8221 8216Send XML Anfrage Mit objXMLHttp. Open 8220GET8221, strURL false. setRequestHeader 8220Content-Type8221, 8220applicationx-www-form-URLEncoded8221.send strRes. responseText End With 8216Parse Antwort dblRes Val (Split (strRes, 8220,8221) (1)) Select Case strResultType Fall 8220Value8221: YahooCurrencyConverter dblRes Case Else: YahooCurrencyConverter 82201 8221 Ampere strFromCurrency amp 8221 8221 amp dblRes amp 8221 8221 Ampere strToCurrency Ende Wählen Sie CleanExit: Set objXMLHttp Nichts Exit Funktion ErrorHandler: YahooCurrencyConverter 0 GoTo CleanExit End Function Bitte, kann mir jemand helfen Ich brauche ein Excel-Kalkulationstabelle, um die Wechselkurse zu einem bestimmten Datum anzuzeigen. Beispiele: USD zu GBP Wechselkurs in 10. Oktober 2014. USD zu BRL Wechselkurs in 10. Oktober 2014. Ich denke, es könnte eine Funktion, zum Beispiel: FXRateatDate (Währung1, Währung2,8221Date8221) Ist dies möglich Die andere Sache ist, dass es Muss mit meinem brasilianischen Laptop Excel arbeiten, das benutzt. Als Dezimaltrennzeichen (International Units System) Vielen Dank im Voraus VB funktioniert super. Zusammen mit dem OPEN-Wechselkurs (der der einzige Teil ist, den ich verwende) möchte ich auch das Austauschdatum in eine Zelle extrahieren. Können Sie etwas vorschlagen, funktioniert dies immer noch Da es doesn8217t scheinen zu funktionieren, wenn ich es Ich versuchte die folgende Formel: FXRate (8220EUR8221,8221USD8221,8221bid8221) und es zurückgegeben 8220VALUE8221. Leave a Reply Hier klicken, um die Antwort abzubrechen, Name des Absenders: E-Mail-Adresse des Empfängers: E-Mail-Adresse des Empfängers: Formeln wie man eine korrupte Excel-Datei Wie man eine Entscheidung mit einem quantitativen Scoring-System Wie man eine Entscheidung mit einem quantitativen Scoring-System Wie man eine Entscheidung mit einem quantitativen Scoring-System Wie man eine Entscheidung mit einem quantitativen Scoring-System Kreisdiagramm in Excel