VBA 일정 시간 간격으로 업비트 코인가격 갱신하기

아래 사이트에 업비트 api를 이용한 시세를 정리하고 있었습니다.

 

업비트 api 활용 모든 코인 시세 정리하기 - VBA (tistory.com)

업비트 api 활용 모든 코인 시세 정리하기 - VBA

근데 사용하다보니 반드시 필요한 기능이 하나 있었습니다.

 

그것은 바로 일정 시간 간격으로 계속 가격이 갱신되면 좋을것 같은데 계속 버튼을 눌러줘야 하는 문제점이였습니다.

 

그래서 이것을 어떻게 하면 좋을지 찾다보니 일정 시간 간격으로 이벤트를 호출하는 기능이 VBA에 존재했습니다.

 

이름하여

 

Application.onTime Now() + TimeValue("시간:분:초") , "호출할 함수 코드"

입니다.

 

그냥 단순하게 이렇게만 작성하면 예약을 종료할 수 없습니다.

 

왜냐면 예약을 종료하기 위해서는 다시 예약에 의해 실행되는 시간을 확인할 수 있어야 합니다.

 

그래서 실제 코드에 적용되는 방법은

Public ret As Date '예약이 발생하는 시간 저장

Sub Ref()

ret = Now() + TimeValue("0:00:10")

Application.OnTime ret, "NewUpbitCoinSearch"

End Sub



Sub stopref()

Application.OnTime ret, "NewUpbitCoinSearch", , False

MsgBox "정상적으로 멈췄습니다."

End Sub

이렇게 들어가야 합니다.

 

그러면 10초 단위로 가격은 갱신되게 됩니다.

업비트조회_1_자동갱신.xlsm

0.03MB