엑셀 시스템 트레이딩 자동매매 XingAPI ch#8 - 재무제표 part1

일반적으로 주식을 분석하는 방법에는 두가지가 있습니다.
기술적 분석과 기본적 분석인데요. 이중에서 기본적 분석을 위한 데이타구축에 대해서 짚어봅니다.

전자공시사이트 (http://dart.fss.or.kr/) 에서 제공하는 API 를 이용하여 주식 상장 기업의 재무제표를 엑셀로 불러와서 데이타를 구축하고 기본적 분석을 위한 기본 지표를 만드는 방법에 대해서 알아봅니다.

이전시간에 다루었던 t1857 종목검색기능을 이용하여 기본 종목들을 선택하고
이 종목들에 대한 재무제표 데이타를 기반으로 기업의 안정성, 성장성으로 필터하는 방법에 대해서 소개합니다.

총 3 part 로 나누어서 동영상을 올리도록 할께요.
작업파일은 part 3 가 완료되면 공유하도록 하겠습니다.

감사합니다. 구독바로가기

덧글

[고추잠자리]

업종구분명(E6),종목코드(F6),종목명(G6) 이렇게 표시해보려고, 아래와 같이 했습니다.
왜 안되는지 봐주세요~^^

Dim WithEvents XAQuery_t3320 As XAQuery
--------------------------------------------------------

Private Sub Indstry_class()
Dim gicode As String

gicode = Cells(6, "F").Value

Call Request_t3320(gicode)

End Sub

Private Sub Request_t3320(gicode As String)

If XAQuery_t3320 Is Nothing Then
Set XAQuery_t3320 = CreateObject("XA_DataSet.XAQuery")
XAQuery_t3320.ResFileName = "res3320.res"
End If

' 데이터 세팅
Call XAQuery_t3320.SetFieldData("t3320InBlock", "gicode", 0, gicode)

' 데이터 요청
nReturn = XAQuery_t3320.Request(False)
If nReturn < 0 Then
MsgBox "전송오류: " & nReturn
End If
End Sub

Private Sub XAQuery_t3320_ReceiveData(ByVal szTrCode As String)

Cells(6, "E") = XAQuery_t3320.GetFieldData("t3320OutBlock", "upgubunnm", 0)

End Sub

[고추잠자리]

XAQuery_t3320.ResFileName ="|res|3320.res"

역슬러시 대신 '|' 를 사용한 것은
카피해서 붙이고(이 경우 역슬러시가 ''로 표시되고),
덧글올리면 이렇게("res3320.res") 표시되어서 그렇습니다-.-

[씽알못]

XAQuery_t3320.ResFileName ="\res\3320.res"
이번에도 잘됩니다. 단, 3320.res 가 아니라 t3320.res 가 맞겠죠 ??

그리고 Sub XAQuery_t3320_ReceiveMessage 이 함수도 넣으신건지 모르겠는데,
꼭 만들어 넣는 습관을 가지시기 바랍니다. 수신시 에러코드를 해석해서 보여줍니다.

굳이 말씀드리지 않아도 아시겠지만,
시간이 좀 걸리더라도 자기가 직접 찾아보면서 디버깅하는게 젤 좋아요.
약간만 냉정하게 자기 코드를 바라보셨으면 합니다. 잘 하실 거에요.

[고추잠자리]

감사합니다.^^