Live Forex Tariffe In Excel

wiki Come creare un convertitore di valuta con Microsoft Excel come scambio di denaro nel Regno Unito Come convertire i file di Microsoft Money per file di Microsoft Excel Come aggiungere due celle che contiene già Somma di altre formule Come recuperare un corrotto file Excel Come fare una decisione utilizzando un sistema di punteggio quantitativa Come usare Morningstar per valutare un titolo Come convertire Excel a PDF Come incorporare una query SQL in Microsoft Excel Come sottrarre in Excel Come fare un grafico a torta in ExcelForeign Tasso di cambio di funzione in Excel Questo foglio di calcolo Excel ha una funzione VBA (UDF) che raschia tassi di cambio in tempo reale dalla finanza di Yahoo. Continua a leggere per il foglio di calcolo gratuito Excel e VBA. La funzione di Excel è perfetto per ogni volta che hai bisogno di una conversione di valuta. Io lo uso per tenere traccia del valore sterlina britannica di una statunitense e conto bancario dollaro canadese. Le tariffe sono raschiati da Yahoo Finance, e sono in tempo reale (ma in ritardo di 15 o 20 minuti). L'UDF è semplice da usare. Here8217s la sintassi. FXRate (8220currency18221, 8220currency28221,8220close8221, 8220open8221, 8220bid8221, 8220ask8221) Questo è un esempio di come utilizzare FXRate () in Excel per una conversione di valuta tra il GBP e USD. I primi due argomenti sono la valuta you8217re conversione da e la valuta you8217re conversione in. Questi sono i codici di tre lettere di valuta (ad esempio GBP per sterline inglesi, o CAD per Dollari canadesi) sono entrati come stringhe. Il terzo argomento è uno dei 8220close8221, 8220open8221, 8220bid8221 o 8220ask8221 (ancora una volta come una stringa). Il prezzo di chiusura è la chiusura precedente. Il link per il foglio di calcolo Excel è in fondo a questo post, ma here8217s VBA. Option Explicit FXRate Function (currency1 come stringa, currency2 come stringa, rateType As String) As Double Dim str As String Dim Temp come String Dim bidStart As Long Dim bidEnd As Long Dim askStart As Long Dim askEnd As Long Dim openStart As Long Dim openend Come lungo Dim closeStart As Long Dim closeEnd Come offerta lungo Dim come doppio Dim chiedere come doppio Dim rAprire come doppio Dim rclose come doppio str ExecuteWebRequest quotfinance. yahooqsquot amp currency1 amp currency2 amp quotXquot temp (str) bidStart InStr (temp, quotBid: quot) bidEnd Instr (bidStart, temp, quotquot) offerta Mid (temp, bidStart 65, bidEnd - bidStart - 72) askStart InStr (temp, quotAsk: quot) askEnd InStr (askStart, temp, quotquot) chiedere Mid (temp, askStart 65, askEnd - askStart - 72) openStart InStr (temp, quotOpen: quot) openend InStr (openStart, temp, quotquot) rAprire Mid (temp, openStart 38, openend - openStart - 38) closeStart InStr (temp, quotPrev In prossimità: quot) closeEnd InStr (closeStart , temperatura, quotquot) rclose Mid (temp, closeStart 44, closeEnd - closeStart - 44) Se rateType quotaskquot Poi FXRate chiedere ElseIf rateType quotbidquot Poi FXRate offerta ElseIf rateType quotopenquot Poi FXRate rAprire ElseIf rateType quotclosequot Poi FXRate rclose End If ExecuteWebRequest End Function Function ( ByVal URL, String) As String Dim oXHTTP come oggetto Se 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 CreateObject ( quotMSXML2.XMLHTTPquot) oXHTTP. Open quotGETquot, url, false oXHTTP. send ExecuteWebRequest oXHTTP. responseText Set oXHTTP Nothing End Function ExecuteWebRequest () è stato copiato e modificato da qui. ExecuteWebRequest () recupera il codice HTML di una pagina web, mentre FXRate () elabora il codice HTML per estrarre i tassi di cambio. Tenete a mente che FXRate () raschia i dati da Yahoo Finance con qualche semplice elaborazione delle stringhe. Quindi, se la struttura dei dati su Yahoo Finance cambia, allora questa funzione potrebbe non funzionare più. Fatemi sapere se questo accade, e I8217ll aggiornare il VBA in modo che funzioni di nuovo. Se si desidera che i tassi di conversione di valuta storici nel corso di un intervallo di date, quindi controllare questo foglio di calcolo. È inoltre possibile utilizzare un QueryTable per estrarre i tassi di cambio. Lascia un commento se avete domande o commenti. 22 pensieri su ldquo Tasso di Foreign Exchange Funzione in Excel rdquo Le interruzioni di funzione quando le posizioni dei ricerche di sottostringa superano il valore massimo 32767 per il tipo di dati Integer. Se si modificano le dichiarazioni per bidStart, bidEnd, ecc a Long invece di Integer, la funzione funziona in modo affidabile quando la lunghezza della variabile Temp è molto grande. Per una pagina restituita oggi, la lunghezza della variabile Temp era 76104 con il bidStart pari 33422. I declaractions lunghi permettono la funzione a lavorare come previsto. Grazie I8217ve cambiato il tipo di dati a lungo in VBA e foglio di calcolo. Molto apprezzato Grazie per il codice di cui sopra. I8217m problemi con la posizione dei tassi di fx nel codice HTML. I8217m cercando di recuperare il tasso FX GBPSGD. Di seguito sono elencate le posizioni per le 8220bid8221 (il primo prezzo le ricerche di codice per nel codice HTML) bidStart31180 bidEnd 31180 bidStart 65 31245 bidEnd 8211 bidStart 8211 72 -72 Quindi perché il bidStart e BidEnd sono gli stessi della funzione can8217t Mid trovare la tariffa offerta . Perché la posizione di bidEnd ricercando 82208221 bidEnd InStr (bidStart, temp, 82208221) I8217ve appena provato utilizzando la funzione FXRate () nel foglio di calcolo per afferrare il tasso di cambio GBPSGD con Sembra funzionare bene 8211 UDF raschia correttamente l'offerta prezzo da Yahoo Finance. Quindi perché il bidStart e BidEnd sono gli stessi la funzione Mid riesci a trovare il tasso di offerta sembra trovare il tasso di offerta per me ho cercato di usare questa conversione, ma non funziona più o non più dando un valore del risultato. Ho usato prima funzione simile: (vedi qui di seguito). ma quando uso il sotto uno e convertire da IDR a EUR dà 5 conversione in euro invece di 3,5Euro (che ricevo quando vado online per lato convertitore Yahoo) Così ho cercato una soluzione migliore ed è venuto al vostro fianco, tuttavia, nessun risultato è dato: YahooCurrencyConverter Function (ByVal strFromCurrency, ByVal strToCurrency, opzionale ByVal strResultType 8220Value8221) On Error GoTo ErrorHandler 8216Init Dim strURL As String Dim objXMLHttp come oggetto strRes Dim come stringa, dblRes come 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 richiesta XML con objXMLHttp. Open 8220GET8221, strURL, false. setRequestHeader 8220Content-Type8221, 8220applicationx-www-form-URLEncoded8221 Trasmettami strRes. responseText End With 8216Parse risposta dblRes Val (Split (strRes, 8220,8221) (1)) Select Case strResultType caso 8220Value8221: YahooCurrencyConverter caso dblRes Else: YahooCurrencyConverter 82201 8221 amp strFromCurrency amp 8221 8221 amp dblRes amp 8221 8221 amp strToCurrency End Select CleanExit: Set objXMLHttp Niente Uscire la funzione ErrorHandler: YahooCurrencyConverter 0 GoTo CleanExit End Function per favore, qualcuno mi può aiutare ho bisogno di qualche foglio di calcolo Excel per mostrare i tassi di cambio in una data specifica. Esempi: USD al tasso di cambio GBP 10 ottobre 2014. USD a tasso di cambio BRL al 10 ° ottobre 2014. Penso che potrebbe essere una funzione, ad esempio: FXRateatDate (currency1, currency2,8221Date8221) è possibile questo L'altra cosa è che deve lavorare con il mio portatile brasiliano excel, che utilizza. come separatore decimale (unità del Sistema Internazionale) Grazie in anticipo VB grandi opere. Insieme con il tasso di cambio OPEN (che è l'unica parte che sto usando), vorrei estrarre anche la data di scambio in una cella. Si può suggerire qualcosa Questo ancora lavoro perché doesn8217t sembrano funzionare quando lo uso ho provato la seguente formula: FXRate (8220EUR8221,8221USD8221,8221bid8221) ed è tornato 8220VALUE8221. Cari tutti, ha funzionato bene fino alla fine di dicembre 2016. Sembra che Yahoo ha cambiato qualcosa sul loro sito. Qualcuno potrebbe si prega di esaminare il codice e dare una soluzione ciò che deve essere cambiato, grazie. Questo codice rettificato sembra funzionare. I didn8217t prova con tutte le possibili combinazioni, ma ha funzionato per i pochi che ho fatto Test funzionale FXRate (currency1 come stringa, currency2 come stringa, rateType As String) As Double Dim str As String Dim Temp come String Dim bidStart As Long Dim bidEnd Come lungo Dim askStart As Long Dim askEnd As Long Dim openStart As Long Dim openend As Long Dim closeStart As Long Dim closeEnd Come offerta lungo Dim come doppio Dim chiedere come doppio Dim rAprire come doppio Dim rclose come doppio Dim i As Long, i1 As Long, i2 As Long Dim myArray () As Variant str 8220finance. yahooqs8221 amp currency1 amp currency2 amp 8220X8221 temperatura ExecuteWebRequest (str) ReDim myArray (da 1 a Len (temp) 500) For i 1 Per Len (temp) 500 i1 (i 8211 1) 500 1 i2 i1 500 8211 1 Se (I2 gt Len (temp)) i2 Poi Len (temp) myArray (i) Mid (temp, i1, 500) Next i 8216ActiveSheet. Range (8220A508221) myArray bidStart InStr (1, temperatura, 8220Bid: 8221) bidStart InStr (bidStart, temp, 8220x82218221gt8221) 4 bidEnd InStr (bidStart 1, temperatura, 82.208.221) 4 askEnd InStr (askStart 1, temperatura, 82.208.221) 7 openend InStr (openStart 1, temperatura, 82.208.221) 7 closeEnd InStr ( closeStart 1, temperatura, 8220ltquot) offerta Mid (temp, bidStart, bidEnd 8211 bidStart) chiedere Mid (temp, askStart, askEnd 8211 askStart) rAprire Mid (temp, openStart, openend 8211 openStart) rclose Mid (temp, closeStart, closeEnd 8211 closeStart ) Se rateType quotaskquot Poi FXRate chiedere ElseIf rateType quotbidquot Poi FXRate offerta ElseIf rateType quotopenquot Poi FXRate rAprire ElseIf rateType quotclosequot Poi FXRate rclose End If Funzione ExecuteWebRequest (ByVal URL, String) As String Dim oXHTTP come oggetto Se InStr (1, URL, quotquot, 1) 0 Then URL URL amp 8220ampcb8221 amp Timer () 100 Else URL URL amp 8220cb8221 amp Timer () 100 End If Set oXHTTP CreateObject (8220MSXML2.XMLHTTP8221) oXHTTP. Open 8220GET8221, url, false oXHTTP. send ExecuteWebRequest oXHTTP. responseText Set oXHTTP nulla Spiacenti 8211 ha lasciato in qualche codice di debug. È possibile eliminare questa roba: ReDim myArray (da 1 a Len (temp) 500) For i 1 Per Len (temp) 500 i1 (i 1) 500 1 i2 i1 500 1 Se (I2 gt Len (temp)) I2 Poi Len ( Temp) myArray (i) Mid (temp, i1, 500) Next i ActiveSheet. Range (A50) myArray Grrr Moderatore 8211 si prega di eliminare i commenti di cui sopra. Il taglia e incolla non ha funzionato correttamente e ha lasciato un po 'di codice fuori. Speriamo che ciò che è in basso è completa e corretta. Grazie Funzione FXRate (currency1 come stringa, currency2 come stringa, rateType As String) As Double Dim str As String Dim Temp come 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 Come offerta lungo Dim come doppio Dim chiedere come doppio Dim rAprire come doppio Dim rclose come doppio Dim i As Long, i1 As Long, i2 As Long temperatura ExecuteWebRequest (str) ReDim myArray (da 1 a Len (temp) 500) For i 1 Per Len (temp) 500 i1 (i 8211 1) 500 1 i2 i1 500 8211 1 Se (I2 gt Len (temp)) i2 Poi Len (temp) myArray (i) Mid (temp, i1, 500 ) Next i 8216ActiveSheet. Range (8220A508221) myArray bidStart InStr (1, temperatura, 8220Bid: 8221) bidStart InStr (bidStart, temp, 8220x82218221gt8221) 4 bidEnd InStr (bidStart 1, temperatura, 82.208.221) 4 askEnd InStr (askStart 1, temperatura, 82208221) 7 openend InStr (openStart 1, temperatura, 82208221) 7 closeEnd InStr (closeStart 1, temperatura, 8220ltquot) offra Mid (temp, bidStart, bidEnd 8211 bidStart) chiedere Mid (temp, askStart, askEnd 8211 askStart) rAprire Mid (temp , openStart, openend 8211 openStart) rclose Mid (temp, closeStart, closeEnd 8211 closeStart) Se rateType quotaskquot Poi FXRate chiedere ElseIf rateType quotbidquot Poi FXRate offerta ElseIf rateType quotopenquot Poi FXRate rAprire ElseIf rateType quotclosequot Poi FXRate rclose End If ExecuteWebRequest Function (ByVal URL, String) As String Dim oXHTTP come oggetto Se InStr (1, URL, quotquot, 1) 0 Then URL URL amp 8220ampcb8221 amp Timer () 100 Else URL URL amp 8220cb8221 amp Timer () 100 End If Set oXHTTP CreateObject (8220MSXML2.XMLHTTP8221) oXHTTP. Open 8220GET8221, url, false oXHTTP. send ExecuteWebRequest oXHTTP. responseText Set oXHTTP Niente come il recente fogli gratuiti Maestro Knowledge Base tipo PostsWhat di fogli di calcolo supporta una formula simile al seguente: il risultato dovrebbe essere 3000 USD scambiati in Euro. Forse una data potrebbe essere previsto un tasso di cambio storico. In alternativa, la media per l'ultimo mese o giù di lì. Vorrei utilizzare tale funzione per tutto il tempo e deve essere rilevante per tanti altri utenti. Io preferisco lavorare in Excel, ma i fogli di calcolo online come Google o Zoho è anche bene. chiesto May 20 11 alle 12:07 Google Spreadsheets C'è uno script foglio di calcolo di Google che restituisce il tasso di cambio tra euro e una valuta che si specifica. I dati è presumibilmente da parte della Banca centrale europea. Aprire un foglio di calcolo di Google Docs. Fare clic su Inserisci script di ricerca per ECBExchangeRate Con le citazioni alla data Ciò restituirà il tasso di cambio tra il dollaro e l'euro per la data MMDDYYYY. Purtroppo, la fonte dei dati è neanche aggiornato. Calcolo tra 2 Valute: Per esempio, vogliamo ottenere il tasso di USDJPY per oggi. Get EURUSD e EURJPY utilizzando la formula di cui sopra. Dividere il tasso EURJPY dal tasso EURUSD. Si ottiene USDJPY. Io non credo esista una tale funzione per Excel (almeno di default). È possibile, tuttavia, impostare un foglio che le importazioni di dati da una tabella dei tassi di cambio in linea come quello sulla pagina Yahoo Finance (finance. yahoo Investire Valute Valute Investimenti Croce tariffe). È quindi possibile impostare un CERCA. VERT o una formula INDEXMATCH per ottenere i tassi di cambio rilevanti per voi. Creare un nuovo foglio (consigliato). Fare clic su Dati dal Web Immettere il seguente URL: Fare clic sulla freccia gialla accanto al tavolo dei tassi di cambio. La freccia deve trasformarsi in un segno di spunta verde. Fare clic su Importa. Fare clic su Proprietà. Sotto Refresh controllo. specificare la frequenza di Excel per recuperare nuovi dati, o scegliere Aggiorna dati all'apertura del file. Fare clic su OK quindi attendere per Excel per caricare i dati. Per aggiornare i dati, basta premere Ctrl-Alt-F5. I dati sulla pagina Yahoo Finance è piuttosto limitata, ma copre le valute più popolari. È possibile utilizzare altre fonti, come ad esempio: Il sito xeucc ha tavole di velocità storiche che è possibile consolidare. Non troverete nulla di costruito in qualsiasi foglio di calcolo per qualcosa che cambia continuamente, come i tassi di cambio. Per fortuna, ci sono soluzioni là fuori già che altri hanno creato per questo genere di cose, come ad esempio WikiHow. Yahoo Answers. OzGrid. EHow. Ci sono molte altre soluzioni, ma la maggior parte di loro seguono gli stessi modelli di progettazione generale. Se nessuno dei link sopra riportati sono quello che stai cercando, vorrei suggerire a cercare sul sito OzGrid. I loro forum sono spesso uno dei migliori per la ricerca di soluzioni di Excel. rispose May 20 11 alle 12:27 Nessuno dei collegamenti sono utili. Sarei ancora meglio copiare e incollare nel tasso di cambio aggiornato. Ci deve essere una soluzione migliore. ndash David May 20 11 alle 13:25 È possibile utilizzare Spearian per MS Excel, spearianforexcel. per lavorare e per scaricare tutta la storia di un tasso di cambio. E 'molto comodo per ottenere l'accesso a tutti i principali dati di mercato, tra cui Yahoo FinanceReal-Time Forex Tariffe in Excel Get real-time tassi di cambio dal vivo in Excel con questo foglio elettronico gratuito. Le citazioni sono in ritardo di circa 15 o 20 minuti, ma vengono aggiornate ogni minuto o giù di lì. Tutto è automatizzato in VBA. Il VBA può essere visualizzato e modificato. I dadi e bulloni del codice è un QueryTable che estrae i tassi forex più recenti da finance. yahoo per le due valute specificate. Tutto quello che dovete fare è digitare due codici di tre lettere, e clic su un pulsante (è possibile trovare un elenco dei codici valuta qui). La VBA poi scarica le più recenti tassi di cambio da Yahoo in Excel, utilizzando una tabella di query. Excel poi scarica la chiusura precedente, aperto, e tassi di bidask corrente per la coppia di valute. Facendo clic sul pulsante per aggiornare di nuovo le virgolette con i valori più recenti. Automaticamente aggiornata in tempo reale Forex in Excel Ora, here8217s dove possiamo essere intelligente e ottenere Excel per aggiornare automaticamente il cambio vivono. 1. Selezionare il QueryTable come mostrato di seguito, fare clic destro e selezionare Proprietà intervallo dati. 2. Nel menu Proprietà intervallo dati esterni, inserire un segno di spunta nella Refresh ogni opzione e scegliere un tempo di aggiornamento (è possibile scegliere solo un numero intero di minuti). Ora fare clic su OK. Excel ora aggiorna i dati nella QueryTable automaticamente, senza la necessità di fare clic sui pulsanti o eseguire macro. Fresco, eh io uso una variante di questo foglio di calcolo per tenere traccia del valore sterline dei miei risparmi esteri. È possibile, ad esempio, modificare il VBA per scaricare i tassi di Forex per molte coppie di valute (fatemi sapere se si desidera che questo foglio di calcolo). Un altro foglio di calcolo Excel recupera i tassi di cambio storici giornalieri tra due date. 9 pensieri su ldquo tempo reale Forex Tariffe a Excel rdquo Come i fogli di calcolo gratuiti Maestro Knowledge Base messaggi recenti