야후 파이낸스 외환 거래
야후 금융 외환 거래
App Store를 통해 가져 오기 우리의 응용 프로그램 에서이 게시물을 읽으십시오!
Yahoo Finance를 통해 환율에 대한 과거 데이터를 얻는 방법?
예를 들어, 2015-01-07에서 2015-03-07까지 JSON 또는 XML 응답을 환율의 연대순으로 가져와야합니다.
이 답변으로 선택한 통화에 대한 최신 환율 정보를 얻을 수 있습니다.
finance. yahoo/connection/currency-converter-cache? date=20150307 URL을 사용하여 특정 날짜의 환율을 구할 수 있고 얻은 JSON을 특정 통화로 파싱 할 수 있습니다.
하지만 날짜 범위에 대한 환율은 JSON 또는 XML 형식으로 받아야합니다.
그렇게 할 수있는 방법이 있습니까?
그런 다음 아래와 같은 쿼리를 사용하여 필요한 데이터를 검색 할 수 있습니다.
pandas DataFrame에 데이터를 저장하는 방법은 다음과 같습니다. 그런 다음 pandas. DataFrame. to_json과 같은 함수를 사용하여 DataFrame에서 JSON, XML 등으로 내보낼 수 있습니다.
기호는 사용중인 기호와 다를 수 있습니다.
pandas-datareader를 설치해야합니다. (나는 당신이 이미 판다를 가지고 있다고 가정하고있다).
야후 금융 외환 거래
App Store를 통해 가져 오기 우리의 응용 프로그램 에서이 게시물을 읽으십시오!
Google Finance와 같은 API를 통해 환율을 얻으려면 어떻게해야합니까? [닫은]
이제 Google Finance API를 찾아 보았습니다. 하지만 포트폴리오, 거래, 직책에 대한 많은 정보를 발견했습니다. 내가 알지 못하는 다른 것들.
나는 잘못된 문서를보고 있는가? GF에서 환율의 피드를 받으려면 어떻게해야합니까? 이것은 가능한가?
일을 좀 더 명확하게하기. 나는 기술적 인 것에 관심이 없으며 어떤 코드도 원합니다.
George Stocker & # 9830; 2 월 27 일 14시 20 분 12 초.
이 질문은 주제와는 다른 것으로 보입니다. 닫히기로 결정한 사용자는 다음과 같은 구체적인 이유를 제시했습니다. & quot; 도구, 라이브러리 또는 좋아하는 오프 사이트 리소스를 추천하거나 찾도록 요청하는 질문은 유인 된 답변과 스팸을 유치하는 경향이있어 스택 오버플로에 대해 주제를 벗어났습니다. 대신 문제를 설명하고 문제를 해결하기 위해 지금까지 수행 된 작업을 설명하십시오. & quot; & ndash; George Stocker이 질문을 도움말 센터의 규칙에 맞게 수정하려면 질문을 수정하십시오.
조지 스토커 & # 9830; 8 월 29 일 14시 18 분 22 초
이 질문의 답은 공동 작업입니다. 개선 할 수있는 것을 발견하면 대답을 편집하여 개선하십시오! 여기에 추가 답변을 추가 할 수 없습니다.
10 답변.
모든 답변을 주셔서 감사합니다.
후손을 위해 그들은 다른 가능한 대답과 함께 있습니다 :
Yahoo finance API 단종 된 2017-11-06.
메시지가있는 2017-11-06 현재 중단되었습니다.
이 서비스가 Yahoo 서비스 약관을 위반하여 사용되고 있음이 주목되었습니다. 따라서 서비스가 중단됩니다. 모든 장래 시장 및 주식 데이터 조사에 대해서는 finance. yahoo를 참조하십시오.
이 CSV는 Curry라는 jQuery 플러그인에서 사용되었습니다. 카레 (2017-08-29)는 안정성 문제로 인해 fixer. io를 사용하기 시작했습니다. 단순한 CSV 이상을 필요로 할 때 유용 할 수 있습니다.
(Keyo 덕분에) Yahoo Query Language를 사용하면 XML 또는 JSON에서 한 번에 많은 통화를 얻을 수 있습니다. 두 번째로 데이터가 업데이트되고 (유럽 중앙 은행은 하루 이전 데이터가 있음) 주말에 중지합니다. 어떤 종류의 가입도 요구하지 않습니다.
다음은 쿼리를 테스트하고 URL을 복사 할 수있는 YQL 쿼리 작성기입니다.
오픈 소스 환율 API.
Free 계정에서는 "base"( "USD")를 변경할 수 없습니다.
currencylayer API.
매월 1,000 회의 무료 히트 플랜.
Free 계정에서는 "소스"( "USD")를 변경할 수 없습니다.
유럽 중앙 은행 사료.
Fixer. io API (유럽 중앙 은행 데이터)
다음은 Google API를 기반으로하는 또 다른 JSON (P) API입니다 (출처 :이 설명).
Yahoo는 XML 또는 JSON에서 한 번에 전체 통화를 얻을 수있는 YQL 기능을 제공합니다. 나는 데이터가 ECB가 하루 이전 데이터를 가지고 있으며 주말에 멈추는 순간까지 최신 정보라는 것을 알았다.
다음은 쿼리 빌더입니다. 여기에서 쿼리를 테스트하고 URL을 복사 할 수 있습니다.
유럽 중앙 은행 (ECB)은 또한 내가 아는 가장 신뢰할 수있는 무료 사료를 제공합니다. 그것은 약 28 통화를 포함하고 적어도 매일 업데이 트됩니다.
한 통화를 다른 통화로 변환하기위한 무료이고 간단한 API가 필요한 경우 free. currencyconverterapi를 시도하십시오.
면책 조항, 나는 웹 사이트의 저자이며 다른 웹 사이트 중 하나에 사용합니다.
이 서비스는 상용 응용 프로그램에도 무료로 사용할 수 있지만 보증은 제공하지 않습니다. 성능상의 이유로 값은 30 분마다 업데이트됩니다.
다음은 PHP 예제를 사용하는 교환 API입니다.
[환율 공개 API]
한 달에 1,000 건의 요청을 무료로 제공합니다. 앱 ID를 등록하고 잡아야합니다. 무료 계정의 기본 통화 USD입니다. 지원되는 통화 및 설명서를 확인하십시오.
150 USD = 18039.09015 엔.
[통화 레이어 API]
한 달에 1,000 건의 요청을 무료로 제공합니다. 등록하고 액세스 키를 가져와야합니다. 맞춤 기본 통화는 무료 계정에서 지원되지 않습니다. 설명서를 확인하십시오.
150 USD = 18036.75045 엔.
이 문제에 대한 루비 기반 솔루션을 찾고 있다면 Google Calculator 메서드를 사용하여 다음과 유사한 솔루션을 사용하는 것이 좋습니다. j. mp / QIC564.
다음은 GBP와 USD 사이의 환율을받는 간단한 PHP 스크립트입니다.
Google 환율이 정확하지 않습니다. Google 자체에서 말합니다 ==> Google은 계산기에서 사용하는 환율의 정확성을 보장 할 수 없습니다. 환율 변동에 영향을받을 수있는 거래를하기 전에 현재 환율을 확인해야합니다. Citibank N. A.가 제공하는 외화 환율은 라이센스하에 표시됩니다. 요금은 정보 제공의 목적으로 만 사용되며 예고없이 변경 될 수 있습니다. 실제 거래의 환율은 다를 수 있으며 Citibank는 표시된 모든 비율로 거래를 제안하지 않습니다.
IP에 의해 수행 된 지리적 위치 정보 (IP는 공급자 IP이므로 정확하지는 않음) 외에도 통화를 반환하고 통화 변환기가 있습니다 (예제 참조).
111 개의 통화가 업데이트되었습니다.
통화 변환에 대한 힌트를 찾고있는 모든 초보자들에게이 링크를 살펴보십시오. Datavoila.
그것은 C #에서 내 자신의 프로젝트와 관련하여 많은 도움을주었습니다. 사이트가 사라질 경우를 대비하여 아래 코드를 추가하겠습니다. 자신의 프로젝트에 아래의 단계를 추가하기 만하면됩니다. 형식 지정에 대해 죄송합니다.
Yahoo 환전소.
Yahoo! 에서 환율 계산기 재원. 최신 통화 환율을 찾아 통화 변환기로 모든 주요 세계 통화를 변환합니다.
Yahoo Finance에서는 무료 주식 시세, 최신 뉴스, 포트폴리오 관리 자원, 국제 시장 데이터, 게시판 및 모기지 금리를받습니다.
야후! Finance는 야후! 네트워크의 일부인 미디어 자산입니다. 주식 시세, 보도 자료, 재무 보고서 및 독창적 인 프로그래밍을 포함한 금융 뉴스, 데이터 및 논평을 제공합니다. 또한 개인 금융 관리를위한 온라인 도구도 제공합니다.
주식 시장에 투자하기 가장 좋은시기?
주식 시장에 투자하기에 가장 좋은 시간을 기다리고 있습니까? 어쩌면 여분의 돈이있을 때 피할 수없는 질문이 생길 수 있습니다. 조명 시가를 100 달러짜리 지폐로 유지해야합니까, 아니면 도대체 어떤 돈을 시장에 뿌려야할까요?
좋아, 그래서 당신은 빨리 수입을 통해 타지 않을 것입니다. 그러나 이것을 고려하십시오 : 대부분의 사람들은 주식 시장에 투자함으로써 실질적인 부를 창출 할 수있는 유일한 방법이 있습니다. 물론, 당신은 무언가를 발명 할 수 있고, 수십억 달러짜리 회사를 시작하거나 복권에 당첨 될 수 있습니다. 그러나 그것에 직면하게하십시오 : 당신의 기회는 희박합니다.
천천히 그리고 꾸준히 갑작스러운 횡재 또는 야생의 성공을위한 최선의 선택입니다. 시간이 지남에 따라 정기적으로 투자하면 운명을 제어 할 수 있습니다. & # 8212; 언젠가 광대 한 재산에 대한 상속인으로 일하기를 바라는 것과는 달리.
시장에 투자하는 것에 대한 불안을 느낀다면, 왜 당신이 그것을 극복해야하는지에 대한이 6 가지의 강력한 이유를 고려하십시오. 더 읽기!
Excel의 외환 환율 함수.
이 Excel 스프레드 시트에는 Yahoo Finance로부터 실시간 환율을 긁어내는 VBA 기능 (UDF)이 있습니다. 무료 Excel 스프레드 시트 및 VBA를 읽으십시오.
Excel 기능은 통화 변환이 필요할 때 유용합니다. 나는 그것을 사용하여 미국과 캐나다 달러 은행 계좌의 영국 파운드 가치를 추적합니다.
요금은 Yahoo Finance에서 긁어내어 실시간으로 표시됩니다 (단, 15 ~ 20 분 지연).
UDF는 사용하기 간단합니다. 구문은 다음과 같습니다.
다음은 Excel에서 FXRate ()를 사용하여 GBP와 USD 사이의 통화 변환을 수행하는 방법의 예입니다.
처음 두 인수는 당신이 변환 한 통화와 당신이 변환하는 통화입니다. 문자열로 입력되는 3 자리의 통화 코드입니다 (예 : 영국 파운드의 경우 GBP 또는 캐나다 달러의 경우 CAD). 세 번째 인수는 닫기 & # 8221; 열기 & # 8221; & # 8220; 입찰 & # 8221; 중 하나입니다. 또는 & # 8220; ask & # 8221; (다시 문자열로). 마감 가격은 이전 종가입니다.
Excel 스프레드 시트에 대한 링크는이 게시물 하단에 있지만 VBA는 여기에 있습니다.
Option Explicit Function Option Explicit Function FXRate (currency1은 String, currency2는 String, rateType은 String) As Double Dim str As String 문자열의 값을 temp로 설정 Dim bidStart long Dim bidEnd Long Dim askStart As Long Long askEnd Long Dim openStart As Long Dim openEnd As Long Dim closeStart As Long Dim 닫음 As Long Dim bid As Double Dim as As Double Dim rclose As Double str = & quot; finance. yahoo/q? s = & quot; & amp; 통화 1 & amp; 통화 2 & amp; "= X" temp = ExecuteWebRequest (str) bidStart = InStr (temp, "Bid :") bidEnd = InStr (bidStart, temp, "") bid = 중간 (temp, bidStart + 65, bidEnd - bidStart - 72) askStart = openStart = InStr (Temp, "Open :", "Open : wait", " closeStnd = InStr (temp, "Prev Close :") closeEnd = InStr (endStart, openStart + 38, openEnd - openStart - 38) rclose = Mid (temp, closeStart + 44, closeEnd - closeStart-44) 만약 rateType = "ask"이면, 그런 다음 FXRate = ask ElseIf rateType = "bid" 그런 다음 FXRate = bid ElseIf rateType = "open" 그 다음, FXRate = ropen ElseIf rateType = "close" 그런 다음 FXRate = rclose End If End Function Function ExecuteWebRequest (ByVal url As String) 문자열로 Dim oXHTTP As Object InStr (1, url, "?", 1) & lt; 0 그러면 url = url & amp; & amp; cb = & quot; & amp; 타이머 () * 100 Else url = url & amp; "? cb =" & amp; oXHTTP = CreateObject ( "MSXML2.XMLHTTP") oXHTTP. Open "GET", url, False oXHTTP. send ExecuteWebRequest = oXHTTP. responseText oXHTTP = Nothing End Function.
여기에서 ExecuteWebRequest ()가 복사되고 수정되었습니다. ExecuteWebRequest ()는 웹 페이지의 HTML을 검색하고 FXRate ()는 HTML을 처리하여 환율을 추출합니다.
FXRate ()는 간단한 문자열 처리로 Yahoo Finance의 데이터를 긁어 버립니다. 따라서 Yahoo Finance의 데이터 구조가 변경되면이 기능이 더 이상 작동하지 않을 수 있습니다. 이런 일이 발생하면 알려주고 다시 작동하도록 VBA를 업데이트합니다.
특정 기간 동안 과거의 환율을 원한다면이 스프레드 시트를 확인하십시오. QueryTable을 사용하여 환율을 추출 할 수도 있습니다.
질문이나 의견이 있으면 의견을 남기십시오.
27 가지 생각 & ldquo; Excel의 외환 환율 기능 & rdquo;
이 편리한 템플릿을 가져 주셔서 감사합니다. 그것을 발견 매우 유용하지만 홍콩 달러 변환에 문제가있는 것 같습니다.
나는 yahoo finance에서 홍콩 달러의 약어가 HKD임을 확인했다.
문제를 해결할 지 알려 주시면 감사하겠습니다.
네가하는 일을 정확히 모르겠지만 다음과 같은 USD에서 HKD 로의 변환이 가능하다. (HKD는 약어로 인식된다.)
이 템플릿이 더 이상 작동하지 않는 것 같습니다. 지난 주에 사용했는데 완벽하게 작동했습니다 (그리고 훌륭한 UDF 도구 덕분이었습니다!).
야후가 코딩을 변경하는 이유는 무엇입니까?
방금 스프레드 시트를 시도했지만 여전히 작동합니다.
하위 문자열 검색의 위치가 Integer 데이터 형식의 최대 값 32767을 초과하면 함수가 중단됩니다. bidStart, bidEnd 등의 선언을 Integer 대신 Long으로 변경하면 Temp 변수의 길이가 너무 길면 함수가 안정 적으로 작동합니다. 오늘 반환 된 페이지의 경우 Temp 변수의 길이는 76104이고 bidStart는 33422와 같습니다. Long 선언은 함수가 다시 예상대로 작동 할 수있게합니다.
감사! VBA 및 스프레드 시트에서 데이터 유형을 Long으로 변경했습니다. 매우 감사!
위의 코드를 보내 주셔서 감사합니다. HTML 소스에서 fx 속도의 위치에 문제가 있습니다.
GBPSGD fx 속도를 검색하려고합니다.
다음은 & # 8220; 입찰가 & # 8221; (html 소스에서 코드가 검색하는 첫 번째 가격)
bidStart + 65 = 31245.
bidEnd & # 8211; bidStart & # 8211; 72 = -72.
따라서 bidStart와 BidEnd가 동일하기 때문에 Mid 함수는 입찰 비율을 찾을 수 없습니다.
& # 8220; & # 8221;을 (를) 검색하여 bidEnd 위치를 사용하는 이유는 무엇입니까? ?
나는 방금 스프레드 시트에서 FXRate () 함수를 사용하여 GBPSGD 환율을 얻으려고 시도했다.
잘 작동하는 것 같습니다. & # 8211; UDF는 Yahoo Finance로부터 입찰 가격을 정확하게 긁어 낸다.
> bidStart와 BidEnd가 같기 때문에 Mid 함수는 입찰 비율을 찾을 수 없습니다.
나를위한 입찰 비율을 찾은 것 같습니다.
안녕하세요, 사미르 님, & # 8221; & # 8221;을 사용하여 소스에서 입찰가 & # 8217; 위치를 설정 한 분명한 이유가 누락 된 경우 & # 8221; 포인터 줄 수있어? 🙂
이 위대한 템플릿은 몇 주 전까지 나에게 도움이되었다. 나는 최근에 아무것도 변경하지 않았지만 지금은 단지 #VALUE! & # 8221;라고보고합니다. 셀에 마우스가 있고 작은 오류 아이콘 위에 마우스가 표시되면 & # 8220; 수식에 사용 된 값의 유형이 잘못되었습니다. & # 8221; 이 문제를 해결하는 방법에 대한 제안? 감사.
야후 구조에서 뭔가가 변경되었습니다.
그러나 나는 bidStart로 시작하고 closeEnd로 끝나는 것이 Long보다 좋음에 동의합니다.
또한이 방법이 더 효과적 일 수 있습니다.
bid = 중간 (temp, bidStart + 65, bidEnd & bidstnd & # 8211; 72)
ask = 중간 (temp, askStart + 65, askEnd & nbsp; askStart & # 8211; 72)
openEnd = InStr (openStart, temp, & # 8220; & # 8221;)
ropen = Mid (임시, openStart + 38, openEnd & openStart & # 3811; 38)
closeStart = InStr (임시, & # 8220; 이전 닫기 : & # 8221;)
closeEnd = InStr (닫기 시작, 임시, & # 8220; & # 8221;)
rclose = Mid (temp, closeStart + 44, closeEnd & # 8211; closeStart & # 8211; 44)
Function FXRate (currency1은 String, currency2는 String, rateType은 String) Double로 사용됩니다.
String으로 희미한 URL.
Dim 응답을 String으로 지정합니다.
FXRate = GetValue (응답, & # 8220; 질문 : & # 8221;)
ElseIf rateType = & # 8220; bid & # 8221; 그때.
FXRate = GetValue (응답, & # 8220; Bid : & # 8221;)
ElseIf rateType = & # 8220; 열기 & # 8221; 그때.
FXRate = GetValue (응답, & # 8220; 열기 : & # 8221;)
ElseIf rateType = & # 8220; 닫기 & # 8221; 그때.
FXRate = GetValue (응답, & # 8220; 이전 닫기 : & # 8221;)
함수 GetValue (ByVal temp로 String, ByVal 레이블로 String) Double로.
긴 strStart As Long.
Dim strEnd Long.
strStart = InStr (임시, & # 8220; 이전 닫기 : & # 8221;)
GetValue = Mid (임시, strStart + 2, str 끝 & strStart & # 8211; 2)
함수 ExecuteWebRequest (ByVal url As String) 문자열입니다.
객체로 Dim oXHTTP.
oXHTTP = CreateObject (& # 8220; MSXML2.XMLHTTP & # 8221;)를 설정하십시오.
oXHTTP. Open & # 8220; GET & # 8221; url, False.
oXHTTP = Nothing을 설정하십시오.
정의 된 셀에서 하나의 가치 (예 : 입찰가)를 얻는 방법이 있습니까? 가장 최근의 거래가 셀에 푸시 되기만하면됩니다.
이것은 나를 위해 일하지 않습니다. 2014 년 1 월 22 일 익명의 원본 코드 또는 업데이트입니다.
이 변환을 사용하려고했지만 더 이상 작동하지 않거나 더 이상 결과 값을 제공하지 않습니다.
나는 비슷한 기능을하기 전에 : (아래 참조),하지만 아래의 하나를 사용하고 IDR에서 EUR로 변환 할 때 그것은 3 유로의 대신에 5 유로 변환을 제공합니다 (나는 야후 변환기 측에 온라인으로 갈 때 얻을 수 있습니다)
그래서 나는 더 나은 해결책을 찾았고 당신쪽에 왔습니다. 그러나 결과는 주어지지 않았습니다 :
기능 YahooCurrencyConverter (ByVal strFromCurrency, ByVal strToCurrency, 선택 ByVal strResultType = & # 8220; 값 & # 8221;)
Error GoTo ErrorHandler.
strURL을 String으로 희미하게합니다.
개체로 objXMLHttp을 어둡게합니다.
Dim strRes String으로, dblRes는 Double로 표시됩니다.
objXMLHttp = CreateObject (& # 8220; MSXML2.ServerXMLHTTP & # 8221;)를 설정하십시오.
& # 8216; strURL = & # 8220; finance. yahoo/d/quotes. csv? e =.csv & f = c4l1 & amp; s = & # 8221; & amp; strFromCurrency & amp; strToCurrency & amp; & # 8220; = X & # 8221;
strURL = & finance. yahoo/q? s = & # 8221; & amp; strFromCurrency & amp; strToCurrency & amp; & # 8221; = X & # 8221;
& # 8216; XML 요청 보내기.
.setRequestHeader & # 8220; 콘텐츠 유형 & # 8221; & # 8220; 애플리케이션 / x-www-form-URL 인코딩 됨 & # 8221;
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.
objXMLHttp = Nothing을 설정하십시오.
제발, 누가 도와 줄 수 있니?
특정 날짜에 환율을 표시하는 스프레드 시트가 필요합니다.
예 : 2014 년 10 월 10 일의 미국 달러에서 GBP 환율.
2014 년 10 월 10 일 USD - BRL 환율.
나는 그것이 함수 일 수 있다고 생각한다. 예를 들면 :
이것이 가능한가?
다른 하나는 브라질의 랩탑 엑셀과 작동해야하며, 소수점 구분 기호 (International Units System)로 사용됩니다.
미리 감사드립니다!
OPEN 환율 (내가 사용하는 유일한 부분)과 함께, 교환 날짜를 셀로 추출하고 싶습니다.
뭔가 제안 할 수 있니?
여전히 작동합니까? 내가 사용할 때 작동하지 않는 것 같습니까?
친애하는 모든 것, 2016 년 12 월 말까지 잘 작동했습니다. 야후는 사이트에서 뭔가 바뀌 었습니다. 누군가 코드를 살펴보고 변경해야 할 사항을 고맙게 받아 들일 수 있습니까? 감사합니다.
이 조정 된 코드가 작동하는 것 같습니다. 모든 가능한 콤보로 테스트하지는 않았지만 테스트 한 적은 몇 가지 경우에 효과가있었습니다!
Function FXRate (currency1은 String, currency2는 String, rateType은 String) Double로 사용됩니다.
String으로 Dim str.
Dim temp는 문자열입니다.
Dim bidStart As Long.
Dim bidEnd As Long.
잠시 askStart를 어둡게하십시오.
Dim askEnd As Long.
Dim openStart를 길게 누릅니다.
어둡게 openEnd 길게.
Dim close로 시작하십시오.
Dim closeEnd As Long.
Dim bid as Double.
Dim Double As로 질문하십시오.
더블로 낮추십시오.
Double로 rclose 어둡게.
i는 오랫동안, i1은 길게, i2는 길게.
변형으로 myArray ()를 희미하게합니다.
ReDim myArray (1 Len (temp) / 500)
i = 1 ~ Len (임시) / 500.
If (i2> Len (temp)) then i2 = Len (temp)
myArray (i) = 중간 (임시, 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, & lt; "& quot;)
bid = 중간 (temp, bidStart, bidEnd & bidst; bidStart)
ask = 중간 (temp, askStart, askEnd & # 8211; askStart)
ropen = 중간 (temp, openStart, openEnd & # 8211; openStart)
rclose = 중간 (temp, closeStart, closeEnd & # 8211; closeStart)
rateType = "ask" 그때.
ElseIf rateType = "bid" 그때.
ElseIf rateType = "open" 그때.
ElseIf rateType = "close" 그때.
함수 ExecuteWebRequest (ByVal url As String) 문자열입니다.
객체로 Dim oXHTTP.
oXHTTP = CreateObject (& # 8220; MSXML2.XMLHTTP & # 8221;)를 설정하십시오.
oXHTTP. Open & # 8220; GET & # 8221; url, False.
oXHTTP = Nothing을 설정하십시오.
죄송합니다. & # 8211; 일부 디버그 코드에 남아 있습니다. 이 물건을 지울 수 있습니다 :
ReDim myArray (1 Len (temp) / 500)
i = 1 ~ Len (임시) / 500.
i1 = (i-1) * 500 + 1이다.
If (i2> Len (temp)) then i2 = Len (temp)
myArray (i) = 중간 (임시, i1, 500)
Grrr! 진행자 & # 8211; 위의 의견을 삭제하십시오. 잘라 붙이기가 제대로 작동하지 않아 일부 코드가 남았습니다. 바라건대 아래의 내용이 완전하고 정확합니다. 감사!
Function FXRate (currency1은 String, currency2는 String, rateType은 String) Double로 사용됩니다.
String으로 Dim str.
Dim temp는 문자열입니다.
Dim bidStart As Long.
Dim bidEnd As Long.
잠시 askStart를 어둡게하십시오.
Dim askEnd As Long.
Dim openStart를 길게 누릅니다.
어둡게 openEnd 길게.
Dim close로 시작하십시오.
Dim closeEnd As Long.
Dim bid as Double.
Dim Double As로 질문하십시오.
더블로 낮추십시오.
Double로 rclose 어둡게.
i는 오랫동안, i1은 길게, i2는 길게.
ReDim myArray (1 Len (temp) / 500)
i = 1 ~ Len (임시) / 500.
If (i2> Len (temp)) then i2 = Len (temp)
myArray (i) = 중간 (임시, 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, & lt; "& quot;)
bid = 중간 (temp, bidStart, bidEnd & bidst; bidStart)
ask = 중간 (temp, askStart, askEnd & # 8211; askStart)
ropen = 중간 (temp, openStart, openEnd & # 8211; openStart)
rclose = 중간 (temp, closeStart, closeEnd & # 8211; closeStart)
rateType = "ask" 그때.
ElseIf rateType = "bid" 그때.
ElseIf rateType = "open" 그때.
ElseIf rateType = "close" 그때.
함수 ExecuteWebRequest (ByVal url As String) 문자열입니다.
객체로 Dim oXHTTP.
oXHTTP = CreateObject (& # 8220; MSXML2.XMLHTTP & # 8221;)를 설정하십시오.
oXHTTP. Open & # 8220; GET & # 8221; url, False.
oXHTTP = Nothing을 설정하십시오.
방금 새 코드를 시도했지만 컴파일 오류로 멈 춥니 다.
i1 = (i-1) * 500 + 1이다.
이 매크로가 더 이상 작동하지 않는 이유를 잘 모릅니다.
어쩌면 야후의 데이터 구조가 변경되었을 수도 있습니다.
업데이트 하시겠습니까?
물론, 나의 할 일 목록에있다.
조만간 그 해결책을 찾을 수 있기를 바랍니다. 코드가 멋지고 매우 유용합니다. 나는 이것을 거의 4 년 동안 사용해 왔으며 그것을 계속 사용하고 싶다.
코드가 훌륭 할 때, 언제 고칠 것이라고 생각하십니까?
App Store를 통해 가져 오기 우리의 응용 프로그램 에서이 게시물을 읽으십시오!
Google Finance와 같은 API를 통해 환율을 얻으려면 어떻게해야합니까? [닫은]
이제 Google Finance API를 찾아 보았습니다. 하지만 포트폴리오, 거래, 직책에 대한 많은 정보를 발견했습니다. 내가 알지 못하는 다른 것들.
나는 잘못된 문서를보고 있는가? GF에서 환율의 피드를 받으려면 어떻게해야합니까? 이것은 가능한가?
일을 좀 더 명확하게하기. 나는 기술적 인 것에 관심이 없으며 어떤 코드도 원합니다.
George Stocker & # 9830; 2 월 27 일 14시 20 분 12 초.
이 질문은 주제와는 다른 것으로 보입니다. 닫히기로 결정한 사용자는 다음과 같은 구체적인 이유를 제시했습니다. & quot; 도구, 라이브러리 또는 좋아하는 오프 사이트 리소스를 추천하거나 찾도록 요청하는 질문은 유인 된 답변과 스팸을 유치하는 경향이있어 스택 오버플로에 대해 주제를 벗어났습니다. 대신 문제를 설명하고 문제를 해결하기 위해 지금까지 수행 된 작업을 설명하십시오. & quot; & ndash; George Stocker이 질문을 도움말 센터의 규칙에 맞게 수정하려면 질문을 수정하십시오.
조지 스토커 & # 9830; 8 월 29 일 14시 18 분 22 초
이 질문의 답은 공동 작업입니다. 개선 할 수있는 것을 발견하면 대답을 편집하여 개선하십시오! 여기에 추가 답변을 추가 할 수 없습니다.
10 답변.
모든 답변을 주셔서 감사합니다.
후손을 위해 그들은 다른 가능한 대답과 함께 있습니다 :
Yahoo finance API 단종 된 2017-11-06.
메시지가있는 2017-11-06 현재 중단되었습니다.
이 서비스가 Yahoo 서비스 약관을 위반하여 사용되고 있음이 주목되었습니다. 따라서 서비스가 중단됩니다. 모든 장래 시장 및 주식 데이터 조사에 대해서는 finance. yahoo를 참조하십시오.
이 CSV는 Curry라는 jQuery 플러그인에서 사용되었습니다. 카레 (2017-08-29)는 안정성 문제로 인해 fixer. io를 사용하기 시작했습니다. 단순한 CSV 이상을 필요로 할 때 유용 할 수 있습니다.
(Keyo 덕분에) Yahoo Query Language를 사용하면 XML 또는 JSON에서 한 번에 많은 통화를 얻을 수 있습니다. 두 번째로 데이터가 업데이트되고 (유럽 중앙 은행은 하루 이전 데이터가 있음) 주말에 중지합니다. 어떤 종류의 가입도 요구하지 않습니다.
다음은 쿼리를 테스트하고 URL을 복사 할 수있는 YQL 쿼리 작성기입니다.
오픈 소스 환율 API.
Free 계정에서는 "base"( "USD")를 변경할 수 없습니다.
currencylayer API.
매월 1,000 회의 무료 히트 플랜.
Free 계정에서는 "소스"( "USD")를 변경할 수 없습니다.
유럽 중앙 은행 사료.
Fixer. io API (유럽 중앙 은행 데이터)
다음은 Google API를 기반으로하는 또 다른 JSON (P) API입니다 (출처 :이 설명).
Yahoo는 XML 또는 JSON에서 한 번에 전체 통화를 얻을 수있는 YQL 기능을 제공합니다. 나는 데이터가 ECB가 하루 이전 데이터를 가지고 있으며 주말에 멈추는 순간까지 최신 정보라는 것을 알았다.
다음은 쿼리 빌더입니다. 여기에서 쿼리를 테스트하고 URL을 복사 할 수 있습니다.
유럽 중앙 은행 (ECB)은 또한 내가 아는 가장 신뢰할 수있는 무료 사료를 제공합니다. 그것은 약 28 통화를 포함하고 적어도 매일 업데이 트됩니다.
한 통화를 다른 통화로 변환하기위한 무료이고 간단한 API가 필요한 경우 free. currencyconverterapi를 시도하십시오.
면책 조항, 나는 웹 사이트의 저자이며 다른 웹 사이트 중 하나에 사용합니다.
이 서비스는 상용 응용 프로그램에도 무료로 사용할 수 있지만 보증은 제공하지 않습니다. 성능상의 이유로 값은 30 분마다 업데이트됩니다.
다음은 PHP 예제를 사용하는 교환 API입니다.
[환율 공개 API]
한 달에 1,000 건의 요청을 무료로 제공합니다. 앱 ID를 등록하고 잡아야합니다. 무료 계정의 기본 통화 USD입니다. 지원되는 통화 및 설명서를 확인하십시오.
150 USD = 18039.09015 엔.
[통화 레이어 API]
한 달에 1,000 건의 요청을 무료로 제공합니다. 등록하고 액세스 키를 가져와야합니다. 맞춤 기본 통화는 무료 계정에서 지원되지 않습니다. 설명서를 확인하십시오.
150 USD = 18036.75045 엔.
이 문제에 대한 루비 기반 솔루션을 찾고 있다면 Google Calculator 메서드를 사용하여 다음과 유사한 솔루션을 사용하는 것이 좋습니다. j. mp / QIC564.
다음은 GBP와 USD 사이의 환율을받는 간단한 PHP 스크립트입니다.
Google 환율이 정확하지 않습니다. Google 자체에서 말합니다 ==> Google은 계산기에서 사용하는 환율의 정확성을 보장 할 수 없습니다. 환율 변동에 영향을받을 수있는 거래를하기 전에 현재 환율을 확인해야합니다. Citibank N. A.가 제공하는 외화 환율은 라이센스하에 표시됩니다. 요금은 정보 제공의 목적으로 만 사용되며 예고없이 변경 될 수 있습니다. 실제 거래의 환율은 다를 수 있으며 Citibank는 표시된 모든 비율로 거래를 제안하지 않습니다.
IP에 의해 수행 된 지리적 위치 정보 (IP는 공급자 IP이므로 정확하지는 않음) 외에도 통화를 반환하고 통화 변환기가 있습니다 (예제 참조).
111 개의 통화가 업데이트되었습니다.
통화 변환에 대한 힌트를 찾고있는 모든 초보자들에게이 링크를 살펴보십시오. Datavoila.
그것은 C #에서 내 자신의 프로젝트와 관련하여 많은 도움을주었습니다. 사이트가 사라질 경우를 대비하여 아래 코드를 추가하겠습니다. 자신의 프로젝트에 아래의 단계를 추가하기 만하면됩니다. 형식 지정에 대해 죄송합니다.
Yahoo 환전소.
Yahoo! 에서 환율 계산기 재원. 최신 통화 환율을 찾아 통화 변환기로 모든 주요 세계 통화를 변환합니다.
Yahoo Finance에서는 무료 주식 시세, 최신 뉴스, 포트폴리오 관리 자원, 국제 시장 데이터, 게시판 및 모기지 금리를받습니다.
야후! Finance는 야후! 네트워크의 일부인 미디어 자산입니다. 주식 시세, 보도 자료, 재무 보고서 및 독창적 인 프로그래밍을 포함한 금융 뉴스, 데이터 및 논평을 제공합니다. 또한 개인 금융 관리를위한 온라인 도구도 제공합니다.
주식 시장에 투자하기 가장 좋은시기?
주식 시장에 투자하기에 가장 좋은 시간을 기다리고 있습니까? 어쩌면 여분의 돈이있을 때 피할 수없는 질문이 생길 수 있습니다. 조명 시가를 100 달러짜리 지폐로 유지해야합니까, 아니면 도대체 어떤 돈을 시장에 뿌려야할까요?
좋아, 그래서 당신은 빨리 수입을 통해 타지 않을 것입니다. 그러나 이것을 고려하십시오 : 대부분의 사람들은 주식 시장에 투자함으로써 실질적인 부를 창출 할 수있는 유일한 방법이 있습니다. 물론, 당신은 무언가를 발명 할 수 있고, 수십억 달러짜리 회사를 시작하거나 복권에 당첨 될 수 있습니다. 그러나 그것에 직면하게하십시오 : 당신의 기회는 희박합니다.
천천히 그리고 꾸준히 갑작스러운 횡재 또는 야생의 성공을위한 최선의 선택입니다. 시간이 지남에 따라 정기적으로 투자하면 운명을 제어 할 수 있습니다. & # 8212; 언젠가 광대 한 재산에 대한 상속인으로 일하기를 바라는 것과는 달리.
시장에 투자하는 것에 대한 불안을 느낀다면, 왜 당신이 그것을 극복해야하는지에 대한이 6 가지의 강력한 이유를 고려하십시오. 더 읽기!
Excel의 외환 환율 함수.
이 Excel 스프레드 시트에는 Yahoo Finance로부터 실시간 환율을 긁어내는 VBA 기능 (UDF)이 있습니다. 무료 Excel 스프레드 시트 및 VBA를 읽으십시오.
Excel 기능은 통화 변환이 필요할 때 유용합니다. 나는 그것을 사용하여 미국과 캐나다 달러 은행 계좌의 영국 파운드 가치를 추적합니다.
요금은 Yahoo Finance에서 긁어내어 실시간으로 표시됩니다 (단, 15 ~ 20 분 지연).
UDF는 사용하기 간단합니다. 구문은 다음과 같습니다.
다음은 Excel에서 FXRate ()를 사용하여 GBP와 USD 사이의 통화 변환을 수행하는 방법의 예입니다.
처음 두 인수는 당신이 변환 한 통화와 당신이 변환하는 통화입니다. 문자열로 입력되는 3 자리의 통화 코드입니다 (예 : 영국 파운드의 경우 GBP 또는 캐나다 달러의 경우 CAD). 세 번째 인수는 닫기 & # 8221; 열기 & # 8221; & # 8220; 입찰 & # 8221; 중 하나입니다. 또는 & # 8220; ask & # 8221; (다시 문자열로). 마감 가격은 이전 종가입니다.
Excel 스프레드 시트에 대한 링크는이 게시물 하단에 있지만 VBA는 여기에 있습니다.
Option Explicit Function Option Explicit Function FXRate (currency1은 String, currency2는 String, rateType은 String) As Double Dim str As String 문자열의 값을 temp로 설정 Dim bidStart long Dim bidEnd Long Dim askStart As Long Long askEnd Long Dim openStart As Long Dim openEnd As Long Dim closeStart As Long Dim 닫음 As Long Dim bid As Double Dim as As Double Dim rclose As Double str = & quot; finance. yahoo/q? s = & quot; & amp; 통화 1 & amp; 통화 2 & amp; "= X" temp = ExecuteWebRequest (str) bidStart = InStr (temp, "Bid :") bidEnd = InStr (bidStart, temp, "") bid = 중간 (temp, bidStart + 65, bidEnd - bidStart - 72) askStart = openStart = InStr (Temp, "Open :", "Open : wait", " closeStnd = InStr (temp, "Prev Close :") closeEnd = InStr (endStart, openStart + 38, openEnd - openStart - 38) rclose = Mid (temp, closeStart + 44, closeEnd - closeStart-44) 만약 rateType = "ask"이면, 그런 다음 FXRate = ask ElseIf rateType = "bid" 그런 다음 FXRate = bid ElseIf rateType = "open" 그 다음, FXRate = ropen ElseIf rateType = "close" 그런 다음 FXRate = rclose End If End Function Function ExecuteWebRequest (ByVal url As String) 문자열로 Dim oXHTTP As Object InStr (1, url, "?", 1) & lt; 0 그러면 url = url & amp; & amp; cb = & quot; & amp; 타이머 () * 100 Else url = url & amp; "? cb =" & amp; oXHTTP = CreateObject ( "MSXML2.XMLHTTP") oXHTTP. Open "GET", url, False oXHTTP. send ExecuteWebRequest = oXHTTP. responseText oXHTTP = Nothing End Function.
여기에서 ExecuteWebRequest ()가 복사되고 수정되었습니다. ExecuteWebRequest ()는 웹 페이지의 HTML을 검색하고 FXRate ()는 HTML을 처리하여 환율을 추출합니다.
FXRate ()는 간단한 문자열 처리로 Yahoo Finance의 데이터를 긁어 버립니다. 따라서 Yahoo Finance의 데이터 구조가 변경되면이 기능이 더 이상 작동하지 않을 수 있습니다. 이런 일이 발생하면 알려주고 다시 작동하도록 VBA를 업데이트합니다.
특정 기간 동안 과거의 환율을 원한다면이 스프레드 시트를 확인하십시오. QueryTable을 사용하여 환율을 추출 할 수도 있습니다.
질문이나 의견이 있으면 의견을 남기십시오.
27 가지 생각 & ldquo; Excel의 외환 환율 기능 & rdquo;
이 편리한 템플릿을 가져 주셔서 감사합니다. 그것을 발견 매우 유용하지만 홍콩 달러 변환에 문제가있는 것 같습니다.
나는 yahoo finance에서 홍콩 달러의 약어가 HKD임을 확인했다.
문제를 해결할 지 알려 주시면 감사하겠습니다.
네가하는 일을 정확히 모르겠지만 다음과 같은 USD에서 HKD 로의 변환이 가능하다. (HKD는 약어로 인식된다.)
이 템플릿이 더 이상 작동하지 않는 것 같습니다. 지난 주에 사용했는데 완벽하게 작동했습니다 (그리고 훌륭한 UDF 도구 덕분이었습니다!).
야후가 코딩을 변경하는 이유는 무엇입니까?
방금 스프레드 시트를 시도했지만 여전히 작동합니다.
하위 문자열 검색의 위치가 Integer 데이터 형식의 최대 값 32767을 초과하면 함수가 중단됩니다. bidStart, bidEnd 등의 선언을 Integer 대신 Long으로 변경하면 Temp 변수의 길이가 너무 길면 함수가 안정 적으로 작동합니다. 오늘 반환 된 페이지의 경우 Temp 변수의 길이는 76104이고 bidStart는 33422와 같습니다. Long 선언은 함수가 다시 예상대로 작동 할 수있게합니다.
감사! VBA 및 스프레드 시트에서 데이터 유형을 Long으로 변경했습니다. 매우 감사!
위의 코드를 보내 주셔서 감사합니다. HTML 소스에서 fx 속도의 위치에 문제가 있습니다.
GBPSGD fx 속도를 검색하려고합니다.
다음은 & # 8220; 입찰가 & # 8221; (html 소스에서 코드가 검색하는 첫 번째 가격)
bidStart + 65 = 31245.
bidEnd & # 8211; bidStart & # 8211; 72 = -72.
따라서 bidStart와 BidEnd가 동일하기 때문에 Mid 함수는 입찰 비율을 찾을 수 없습니다.
& # 8220; & # 8221;을 (를) 검색하여 bidEnd 위치를 사용하는 이유는 무엇입니까? ?
나는 방금 스프레드 시트에서 FXRate () 함수를 사용하여 GBPSGD 환율을 얻으려고 시도했다.
잘 작동하는 것 같습니다. & # 8211; UDF는 Yahoo Finance로부터 입찰 가격을 정확하게 긁어 낸다.
> bidStart와 BidEnd가 같기 때문에 Mid 함수는 입찰 비율을 찾을 수 없습니다.
나를위한 입찰 비율을 찾은 것 같습니다.
안녕하세요, 사미르 님, & # 8221; & # 8221;을 사용하여 소스에서 입찰가 & # 8217; 위치를 설정 한 분명한 이유가 누락 된 경우 & # 8221; 포인터 줄 수있어? 🙂
이 위대한 템플릿은 몇 주 전까지 나에게 도움이되었다. 나는 최근에 아무것도 변경하지 않았지만 지금은 단지 #VALUE! & # 8221;라고보고합니다. 셀에 마우스가 있고 작은 오류 아이콘 위에 마우스가 표시되면 & # 8220; 수식에 사용 된 값의 유형이 잘못되었습니다. & # 8221; 이 문제를 해결하는 방법에 대한 제안? 감사.
야후 구조에서 뭔가가 변경되었습니다.
그러나 나는 bidStart로 시작하고 closeEnd로 끝나는 것이 Long보다 좋음에 동의합니다.
또한이 방법이 더 효과적 일 수 있습니다.
bid = 중간 (temp, bidStart + 65, bidEnd & bidstnd & # 8211; 72)
ask = 중간 (temp, askStart + 65, askEnd & nbsp; askStart & # 8211; 72)
openEnd = InStr (openStart, temp, & # 8220; & # 8221;)
ropen = Mid (임시, openStart + 38, openEnd & openStart & # 3811; 38)
closeStart = InStr (임시, & # 8220; 이전 닫기 : & # 8221;)
closeEnd = InStr (닫기 시작, 임시, & # 8220; & # 8221;)
rclose = Mid (temp, closeStart + 44, closeEnd & # 8211; closeStart & # 8211; 44)
Function FXRate (currency1은 String, currency2는 String, rateType은 String) Double로 사용됩니다.
String으로 희미한 URL.
Dim 응답을 String으로 지정합니다.
FXRate = GetValue (응답, & # 8220; 질문 : & # 8221;)
ElseIf rateType = & # 8220; bid & # 8221; 그때.
FXRate = GetValue (응답, & # 8220; Bid : & # 8221;)
ElseIf rateType = & # 8220; 열기 & # 8221; 그때.
FXRate = GetValue (응답, & # 8220; 열기 : & # 8221;)
ElseIf rateType = & # 8220; 닫기 & # 8221; 그때.
FXRate = GetValue (응답, & # 8220; 이전 닫기 : & # 8221;)
함수 GetValue (ByVal temp로 String, ByVal 레이블로 String) Double로.
긴 strStart As Long.
Dim strEnd Long.
strStart = InStr (임시, & # 8220; 이전 닫기 : & # 8221;)
GetValue = Mid (임시, strStart + 2, str 끝 & strStart & # 8211; 2)
함수 ExecuteWebRequest (ByVal url As String) 문자열입니다.
객체로 Dim oXHTTP.
oXHTTP = CreateObject (& # 8220; MSXML2.XMLHTTP & # 8221;)를 설정하십시오.
oXHTTP. Open & # 8220; GET & # 8221; url, False.
oXHTTP = Nothing을 설정하십시오.
정의 된 셀에서 하나의 가치 (예 : 입찰가)를 얻는 방법이 있습니까? 가장 최근의 거래가 셀에 푸시 되기만하면됩니다.
이것은 나를 위해 일하지 않습니다. 2014 년 1 월 22 일 익명의 원본 코드 또는 업데이트입니다.
이 변환을 사용하려고했지만 더 이상 작동하지 않거나 더 이상 결과 값을 제공하지 않습니다.
나는 비슷한 기능을하기 전에 : (아래 참조),하지만 아래의 하나를 사용하고 IDR에서 EUR로 변환 할 때 그것은 3 유로의 대신에 5 유로 변환을 제공합니다 (나는 야후 변환기 측에 온라인으로 갈 때 얻을 수 있습니다)
그래서 나는 더 나은 해결책을 찾았고 당신쪽에 왔습니다. 그러나 결과는 주어지지 않았습니다 :
기능 YahooCurrencyConverter (ByVal strFromCurrency, ByVal strToCurrency, 선택 ByVal strResultType = & # 8220; 값 & # 8221;)
Error GoTo ErrorHandler.
strURL을 String으로 희미하게합니다.
개체로 objXMLHttp을 어둡게합니다.
Dim strRes String으로, dblRes는 Double로 표시됩니다.
objXMLHttp = CreateObject (& # 8220; MSXML2.ServerXMLHTTP & # 8221;)를 설정하십시오.
& # 8216; strURL = & # 8220; finance. yahoo/d/quotes. csv? e =.csv & f = c4l1 & amp; s = & # 8221; & amp; strFromCurrency & amp; strToCurrency & amp; & # 8220; = X & # 8221;
strURL = & finance. yahoo/q? s = & # 8221; & amp; strFromCurrency & amp; strToCurrency & amp; & # 8221; = X & # 8221;
& # 8216; XML 요청 보내기.
.setRequestHeader & # 8220; 콘텐츠 유형 & # 8221; & # 8220; 애플리케이션 / x-www-form-URL 인코딩 됨 & # 8221;
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.
objXMLHttp = Nothing을 설정하십시오.
제발, 누가 도와 줄 수 있니?
특정 날짜에 환율을 표시하는 스프레드 시트가 필요합니다.
예 : 2014 년 10 월 10 일의 미국 달러에서 GBP 환율.
2014 년 10 월 10 일 USD - BRL 환율.
나는 그것이 함수 일 수 있다고 생각한다. 예를 들면 :
이것이 가능한가?
다른 하나는 브라질의 랩탑 엑셀과 작동해야하며, 소수점 구분 기호 (International Units System)로 사용됩니다.
미리 감사드립니다!
OPEN 환율 (내가 사용하는 유일한 부분)과 함께, 교환 날짜를 셀로 추출하고 싶습니다.
뭔가 제안 할 수 있니?
여전히 작동합니까? 내가 사용할 때 작동하지 않는 것 같습니까?
친애하는 모든 것, 2016 년 12 월 말까지 잘 작동했습니다. 야후는 사이트에서 뭔가 바뀌 었습니다. 누군가 코드를 살펴보고 변경해야 할 사항을 고맙게 받아 들일 수 있습니까? 감사합니다.
이 조정 된 코드가 작동하는 것 같습니다. 모든 가능한 콤보로 테스트하지는 않았지만 테스트 한 적은 몇 가지 경우에 효과가있었습니다!
Function FXRate (currency1은 String, currency2는 String, rateType은 String) Double로 사용됩니다.
String으로 Dim str.
Dim temp는 문자열입니다.
Dim bidStart As Long.
Dim bidEnd As Long.
잠시 askStart를 어둡게하십시오.
Dim askEnd As Long.
Dim openStart를 길게 누릅니다.
어둡게 openEnd 길게.
Dim close로 시작하십시오.
Dim closeEnd As Long.
Dim bid as Double.
Dim Double As로 질문하십시오.
더블로 낮추십시오.
Double로 rclose 어둡게.
i는 오랫동안, i1은 길게, i2는 길게.
변형으로 myArray ()를 희미하게합니다.
ReDim myArray (1 Len (temp) / 500)
i = 1 ~ Len (임시) / 500.
If (i2> Len (temp)) then i2 = Len (temp)
myArray (i) = 중간 (임시, 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, & lt; "& quot;)
bid = 중간 (temp, bidStart, bidEnd & bidst; bidStart)
ask = 중간 (temp, askStart, askEnd & # 8211; askStart)
ropen = 중간 (temp, openStart, openEnd & # 8211; openStart)
rclose = 중간 (temp, closeStart, closeEnd & # 8211; closeStart)
rateType = "ask" 그때.
ElseIf rateType = "bid" 그때.
ElseIf rateType = "open" 그때.
ElseIf rateType = "close" 그때.
함수 ExecuteWebRequest (ByVal url As String) 문자열입니다.
객체로 Dim oXHTTP.
oXHTTP = CreateObject (& # 8220; MSXML2.XMLHTTP & # 8221;)를 설정하십시오.
oXHTTP. Open & # 8220; GET & # 8221; url, False.
oXHTTP = Nothing을 설정하십시오.
죄송합니다. & # 8211; 일부 디버그 코드에 남아 있습니다. 이 물건을 지울 수 있습니다 :
ReDim myArray (1 Len (temp) / 500)
i = 1 ~ Len (임시) / 500.
i1 = (i-1) * 500 + 1이다.
If (i2> Len (temp)) then i2 = Len (temp)
myArray (i) = 중간 (임시, i1, 500)
Grrr! 진행자 & # 8211; 위의 의견을 삭제하십시오. 잘라 붙이기가 제대로 작동하지 않아 일부 코드가 남았습니다. 바라건대 아래의 내용이 완전하고 정확합니다. 감사!
Function FXRate (currency1은 String, currency2는 String, rateType은 String) Double로 사용됩니다.
String으로 Dim str.
Dim temp는 문자열입니다.
Dim bidStart As Long.
Dim bidEnd As Long.
잠시 askStart를 어둡게하십시오.
Dim askEnd As Long.
Dim openStart를 길게 누릅니다.
어둡게 openEnd 길게.
Dim close로 시작하십시오.
Dim closeEnd As Long.
Dim bid as Double.
Dim Double As로 질문하십시오.
더블로 낮추십시오.
Double로 rclose 어둡게.
i는 오랫동안, i1은 길게, i2는 길게.
ReDim myArray (1 Len (temp) / 500)
i = 1 ~ Len (임시) / 500.
If (i2> Len (temp)) then i2 = Len (temp)
myArray (i) = 중간 (임시, 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, & lt; "& quot;)
bid = 중간 (temp, bidStart, bidEnd & bidst; bidStart)
ask = 중간 (temp, askStart, askEnd & # 8211; askStart)
ropen = 중간 (temp, openStart, openEnd & # 8211; openStart)
rclose = 중간 (temp, closeStart, closeEnd & # 8211; closeStart)
rateType = "ask" 그때.
ElseIf rateType = "bid" 그때.
ElseIf rateType = "open" 그때.
ElseIf rateType = "close" 그때.
함수 ExecuteWebRequest (ByVal url As String) 문자열입니다.
객체로 Dim oXHTTP.
oXHTTP = CreateObject (& # 8220; MSXML2.XMLHTTP & # 8221;)를 설정하십시오.
oXHTTP. Open & # 8220; GET & # 8221; url, False.
oXHTTP = Nothing을 설정하십시오.
방금 새 코드를 시도했지만 컴파일 오류로 멈 춥니 다.
i1 = (i-1) * 500 + 1이다.
이 매크로가 더 이상 작동하지 않는 이유를 잘 모릅니다.
어쩌면 야후의 데이터 구조가 변경되었을 수도 있습니다.
업데이트 하시겠습니까?
물론, 나의 할 일 목록에있다.
조만간 그 해결책을 찾을 수 있기를 바랍니다. 코드가 멋지고 매우 유용합니다. 나는 이것을 거의 4 년 동안 사용해 왔으며 그것을 계속 사용하고 싶다.
코드가 훌륭 할 때, 언제 고칠 것이라고 생각하십니까?
Comments
Post a Comment