vb6.0/vba [vba] Tether의 KRW 시세 데이터 가져오기(CoinMarketCap)
페이지 정보
본문
Tether의 KRW 시세 데이터 가져오고자 합니다.
해당 URL : https://coinmarketcap.com/ko/currencies/tether/
WinHttp 통신의 문제점 443 포트 통신으로 오류발생!!
답변 URL : https://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=336731985
Sub program1472_com()
Dim URL As String, T As String, Cookie As String
Dim USD As Double, KRW As Double
With CreateObject("MSXML2.XMLHTTP.6.0")
.Open "GET", URL
.SetRequestHeader "Host", "coinmarketcap.com"
.SetRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 10.0; WOW64; rv:56.0) Gecko/20100101 Firefox/56.0"
.SetRequestHeader "Accept", "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8"
.SetRequestHeader "Accept-Language", "ko-KR,ko;q=0.8,en-US;q=0.5,en;q=0.3"
.SetRequestHeader "Connection", "keep-alive"
If Len(Cookie) Then .SetRequestHeader "Cookie", Cookie
.SetRequestHeader "Upgrade-Insecure-Requests", "1"
.Send
T = .ResponseText
End With
USD = Split(Split(T, "data-usd=")(1), """")(1)
KRW = Split(Split(T, "data-krw=")(1), """")(1)
Debug.Print USD / KRW
End Sub
- 이전글[vba] 선택한 텍스트 파일(다중 파일) 특정행(간격)만 가지고 오기 19.09.29
- 다음글[vb6.0/vba/vb.net] HTTP 관련 CreateObject문으로 내용과 같이 5개 정도로 사용할 수 있다. 19.09.28
댓글목록
등록된 댓글이 없습니다.