바이낸스 API 연결 엑셀로 거래하기 - VBA

거래하기 위해 등록 필요한 레퍼런스 아래 이미지처럼 2개입니다.

 

바이낸스 API를 연결하여 엑셀로 거래하는 VBA 코드입니다.

Sub ORDER()
Dim Query As New Dictionary
Dim WH As New WinHttp.WinHttpRequest

TIMESTAMP = TimeStamps(ServerTimeGet)

APIKEY = "APIKEY 입력"
SECRETKEY = "SECRETKEY 입력"
With Query
    .Add "symbol", 거래코인
    .Add "side", 구매또는판매
    .Add "type", 지정가시장가
    .Add "quantity", 거래량
    .Add "price", 가격
    .Add "recvWindow", "5000"
    .Add "timestamp", TIMESTAMP
    .Add "timeInForce", "GTC"
End With

For Each i In Query
    쿼리값 = Array(i, Query(i))
    쿼리결과 = 쿼리결과 & "&" & Join(쿼리값, "=")
Next

쿼리결과 = Mid(쿼리결과, 2, Len(쿼리결과))
쿼리암호화 = digest_HMACSHA256(쿼리결과, SECRETKEY)

URL = "https://api.binance.com/api/v3/order?" & 쿼리결과 & "&signature=" & 쿼리암호화

WH.Open "post", URL
WH.SetRequestHeader "X-MBX-APIKEY", APIKEY
WH.Send
WH.WaitForResponse

End Sub

추가 필요한 함수 주소 (아래 코드를 다 복사해서 넣으셔야 됩니다.)

바이낸스 API 적용을 위한 서버시간 찾기 - VBA (tistory.com)

바이낸스API 적용을 위한 서버시간 찾기 - VBA

바이낸스API 적용을 위한 HMAC_SHA256_ToHex - VBA (tistory.com)

바이낸스API 적용을 위한 HMAC_SHA256_ToHex - VBA

바이낸스 API 적용을 위해 엑셀에서 Unix TimeStamp 만들기 - VBA (tistory.com)

바이낸스 API 적용을 위해 엑셀에서 Unix TimeStamp 만들기 - VBA

그리고 아래는 수정해야 되는 쿼리입니다.

Field	내용	값
APIKEY	APIKEY	내용없음
SECRETKEY	SECRETKEY	내용없음
SYMBOL	코인 거래 형태	바이낸스에 코인 거래 형태 SYMBOL 예) BTCUSDT , BNBUSDT 등...
SIDE	구매 또는 판매	구매 : BUY 판매 : SELL
TYPE	가격 형태	지정가 : LIMIT 시장가 : MARKET
QUANTITY	거래량	내용없음
PRICE	가격	MARKET일때는 필요 없음